رفتن به مطلب
  • 0

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


mehrad

سوال

 با سلام 

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

2 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

درود

 

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

در ۱ ساعت قبل، 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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...