ديتابيس انلاين در افلاين

[mehrad 37]

 با سلام 

من ميخوام بدونم با چه كدي ديتابيس انلاين ذخيره ميشه يا كپي ميشه رو ديتابيس افلاين 

اموزش لازم ندارم چون همشو خودندم فقط لطفا كد رو بگين

[peyman007 8]

درود

 

Sub btnUpdate_Click
Dim ht As HttpJob
ht.Initialize("update",Me)
ProgressDialogShow("updating")
ht.Download("http://www.example.com/databases/data.db")
End Sub

به جای http://www.example.c...tabases/data.db آدرس دیتابیس خودتون که قبلا در هاست خود آپلود کردید رو بنویسید.
سپس یک ساب بنویسید:

Sub JobDone(Job As HttpJob)
ProgressDialogHide
 If Job.Success Then
  If Job.JobName = "update" Then
   Dim ou As OutputStream
   File.Delete(File.DirInternal,"data.db")
   ou = File.OpenOutput(File.DirInternal,"data.db",False)
   File.Copy2(Job.GetInputStream,ou)
   ou.Close
   ToastMessageShow("updated successfully",False)
  End If
 End If
End Sub

[mehrad 37]

در ۱ ساعت قبل، peyman007 گفته است :

درود

 

Sub btnUpdate_Click
Dim ht As HttpJob
ht.Initialize("update",Me)
ProgressDialogShow("updating")
ht.Download("http://www.example.com/databases/data.db")
End Sub

به جای http://www.example.c...tabases/data.db آدرس دیتابیس خودتون که قبلا در هاست خود آپلود کردید رو بنویسید.
سپس یک ساب بنویسید:

Sub JobDone(Job As HttpJob)
ProgressDialogHide
 If Job.Success Then
  If Job.JobName = "update" Then
   Dim ou As OutputStream
   File.Delete(File.DirInternal,"data.db")
   ou = File.OpenOutput(File.DirInternal,"data.db",False)
   File.Copy2(Job.GetInputStream,ou)
   ou.Close
   ToastMessageShow("updated successfully",False)
  End If
 End If
End Sub

دمت گرم خوش دست