آپدیت دیتابیس بصورت آنلاین

آپدیت دیتابیس بصورت آنلاین

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

در این آموزش یاد میگیریم که چطور دیتابیس خود را بصورت آنلاین آپدیت کنیم...مثلا در برنامه یه دکمه با عنوان آپدیت وجود داشته باشد که با زدن آن یک دیتابیس را از اینترنت با فرمت db دانلود کند و جایگزین دیتابیس فعلی (مثلا در internal )بکند.
ابتدا کتابخانه HttpUtils2 را فعال کنید.
سپس در رویداد دکمه آپدیت بنویسید:

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

توی توضیح باید بهتون بگم ما اول اومدیم چک کردیم که آیا موفقیت آمیز بوده یا نه...سپس چک کردیم که آیا نام کار که در بالا در قسمت ht.Initialize مشخص کرده بودیم هست یا نه...سپس دیتابیس قبلی را حذف کردیم و دیتابیس دانلود شده را جایگزین آن کردیم.
پایان آموزش
امیدوارم مورد استفاده همگان قرار گیرد.