دانلود دیتابیس و مولتی پنل

[amir1999 81]

سلام

دوستان من میخوام برای برنامه آنلاینم دیتابیس رو اول دانلود کنم و بعد بضورت مولتی پنل نمایش بدم

اما هرکاری میکنم درست نمیشه و هر بار یه خطایی میده

کد هارو اینجا قرار میدم تورو خدا راهنمایی کنید

درضمن ممکنه که نشه از این طریق برنامه آنلاین ساخت؟آخه چرا درست نمیشه

کاملا گیج شدم:(

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: False
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	Private Button1 As Button
    Dim ht As HttpJob
    Dim sql1 As SQL
	Dim cur1 As Cursor
	Private ScrollView1 As ScrollView
	Dim stop As Int = 3%y
	Private Label1 As Label
	Private Label3 As Label
	Private Label4 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("chanels")
'	این پایین گفتم اگه دیتابیس در اکسترنال یا اینترنال بود حذفش کن که دیتابیس جدید رو دانلود کنه
    If File.Exists(File.DirInternal,"tb.db") = True Then
	    File.Delete(File.DirInternal,"tb.db")	
    End If
	If File.Exists(File.DirRootExternal & "/KanalKade" , "tb.db") = True Then
	    File.Delete(File.DirRootExternal & "/KanalKade" , "tb.db")
	End If
	
	ht.Initialize("ht",Me)
	ht.Download("http://telegram-yar.blogsky.com/")
	ToastMessageShow("در حال بارگذاری...",True)
	
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
	Activity.Finish
	StartActivity(homepage)
End Sub

Sub JobDone(Job As HttpJob)
	If Job.Success = True Then
		If File.IsDirectory(File.DirRootExternal,"KanalKade") = False Then
	     File.MakeDir(File.DirRootExternal,"KanalKade")
	End If
	Dim i1 As InputStream
	Dim o1 As OutputStream
	i1 = Job.GetInputStream
	o1 = File.OpenOutput(File.DirRootExternal & "/KanalKade" , "tb.db" , False)
	File.Copy2(i1,o1)
	i1.Close
	o1.Close
	
	
	If File.Exists(File.DirRootExternal & "/KanalKade" , "tb.db") = False Then
		Msgbox("دیتابیس نیست","")
		End If
	
	
	

	If File.Exists(File.DirRootExternal & "/KanalKade" , "tb.db") = True Then
		Msgbox("دیتابیس هست","")
	
	End If
	
	
	
	'گفتم اگه اینشیالایز نشده بود انجامش بده
    If sql1.IsInitialized = False Then
		 sql1.Initialize(File.DirRootExternal & "/KanalKade" , "tb.db" , True)
		 Msgbox("ایشیالایز شد","")
    End If
'	گفتم اگه توی اینترنال نیود از اکسترنال کپی کن توی اینترنال
   If File.Exists(File.DirInternal,"tb.db") = False Then
   File.Copy(File.DirRootExternal & "/KanalKade" , "tb.db",File.DirInternal,"tb.db")
   End If
'   این پایین تیبیلم رو آوردم که توی حالت آفلاین درست کار میکنه
	cur1 = sql1.ExecQuery("SELECT * FROM bala2k")
	For i = 0 To cur1.RowCount - 1
		cur1.Position = i
		Dim p As Panel
		p.Initialize("p")
		ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
		stop = stop + 35%y
'		خط پایین لایه ایی که پنل(مولتی پنل)داخلشه لود کردم
		p.LoadLayout("view")
'		اسم ستونامه این پایینیا
		Label3.Text=cur1.GetString("name")
		Label4.Text=cur1.GetString("member")
		ScrollView1.Panel.Height = stop
		Next
	
	

	ToastMessageShow("دانلود شد!",False)
	Else
	ToastMessageShow("کاربر جان اینترنت داری؟:|",False)
	End If
	
End Sub

واقعا متوجه نمیشم

[amir386 39]

سلام ببین من خودم قبلا رو هاست اینکارو کردم بعد از اپلود کردن دیتابیس خودت یه بار دانلودش کن . چون بعضی سرویس دهنده ها فایل های دیتابیس رو یا خراب میکنن یا کلا ساپورت نمیشه بعد از اپلود خودت یه بار دانلودش کن چون مال منم قبلا انجام دادم دوباره که دانلودش کردم حتی با خوده navicat فایل دیتابیس باز نمیشد و میگفت فایل خرابه...

[amir1999 81]

من روی هاست آپلود نمیکنم

میریزم توی یکی از آپلودر ها مثل پیکو فایل

و بعد توی یه وبلاگ که ساختم با یه اسکریپت کاربرو منتقل میکنم به لینک دانلود که در نهایت با سرعت عالی دقیقا مثل هاست دانلود میشه

و خوبیش اینه که رایگانه

[مهدی کفشگر 548]

سلام.ببینید اصلا این راه، راه منطقی و اصولی نیست برای ساخت برنامه آنلاین!آموزش های زیادی هست تو انجمن که خیلی خوبن! لینک پایین رو هم یه نگاهی بندازی بند نیست!

ساخت برنامه پیامکی در B4A توسط دیتابیس آنلاین + سورس

امیدوارم مدیران با لینک بالا مشکلی نداشته باشن

[amir386 39]

بهتره از ftp. رایگان استفاده کنی برای این کار اگه هم که ftp از قبل خریداری شده داری ک چه بهتر..

 

اینم ادرس یه اف تی پی و هاست عالی xzn.ir

[amir1999 81]

ما همچنان منتظر پاسخ هستیم:|