نحوه آپدیت دیتابیس آفلاین با حفظ اطلاعات ذخیره شده؟

[arfan2x 15]

سلام خدمت دوستان عزیز.

دوستان چطور میشه دیتابیس آفلاین رو با حفظ اطلاعات ذخیره شده اون آپدیت کرد؟

مثلاً کتابی رو درنظر بگیرید که کاربر اومده یه سری مطالب اون رو به لیست علاقمندی ها اضافه کرده حالا وقتی آپدیت جدید بزاریم واسه کتاب دیگه اون

علاقمندی ها حذف میشه. لطفاً راهنمایی بفرمایید اونم در حد مبتدی. تشکر

[AMiN.M7892 1,029]

خب شما قبل از اینکه دیتابیس آپدیت بشه، کدی بنویس که ID هایی که به علاقه مندی ها اضافه شدن رو در یک List ذخیره کن و بعد دیتابیس رو آپدیت کن و بعد از آپدیت دوباره اون آیدی ها رو به علاقه مندی ها اضافه کن.

[arfan2x 15]

در 3 ساعت قبل، AMiN.M7892 گفته است :

خب شما قبل از اینکه دیتابیس آپدیت بشه، کدی بنویس که ID هایی که به علاقه مندی ها اضافه شدن رو در یک List ذخیره کن و بعد دیتابیس رو آپدیت کن و بعد از آپدیت دوباره اون آیدی ها رو به علاقه مندی ها اضافه کن.

تشکر از شما. فقط بفرمایید کدها رو چه جوری بنویسم؟

[AMiN.M7892 1,029]

کد زیر، یک کد مثالی هست و در حالت کلی نوشتم، اما شما بسته به کدهای خودتون باید مقادیری رو توش تغییر بدید:

Sub Globals
	Dim FavIDs As List
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("Layout1")
	AddToFavorites
End Sub

Sub AddToFavorites
	Dim Sql1 As SQL
	Sql1.Initialize(File.DirInternal,"database.db",False)
	Dim Cur As Cursor
	Cur = Sql1.ExecQuery("SELECT ID FROM tblTABLENAME WHERE Fav = 1")
	FavIDs.Initialize
	For i = 0 To Cur.RowCount-1
		FavIDs.Add(Cur.Getint("ID"))
	Next
	Update_Database
End Sub

Sub Update_Database
	'کدهایی که دیتابیس را آپدیت میکنند
End Sub

Sub Database_Updated
	'رویدادی که پس از اتمام آپدیت دیتابیس، احرا میشود
	Dim Sql1 As SQL
	Sql1.Initialize(File.DirInternal,"database.db",False)
	For i = 0 To FavIDs.Size-1
		Sql1.ExecNonQuery("UPDATE tblTABLENAME SET Fav = 1 WHERE ID = "&FavIDs.Get(i))
	Next
End Sub

مقادیری که باید تغییر کنند : نام و آدرس فایل دیتابیس، نام جدول دیتابیس و نام فیلد علاقه مندی ها در دیتابیس.

رویداد ها هم باید تغییر کنند که متناسب با هر رویداد، یک رویداد مثالی هم نوشتم.

موفق باشید

[arfan2x 15]

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

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

اگه لطف کنید کدهای قسمت

Sub Update_Database
	'کدهایی که دیتابیس را آپدیت میکنند
End Sub

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

 

[arfan2x 15]

درود بر شما.

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