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

حذف رکورد و آپدیت شدن رکوردها


mojcom

سوال

سلام لطف کمک کنید. این کد یکم گیژ کننده بود واسم - یه دکمه delete گذاشتم میخوام با کلیک روی اون مثلا رکوردی از دیتابیس حذف بشه - و در همین حین رکوردهای دیگر فیلد کلیدشون جایگزین این رکورد بشه - مثلا اگه ما چهار تا رکورد داریم که فیلد id اونها 1 و2 و3 و 4هست با حذف شدن رکورد دومی فیلد id رکورد سومی از 3 به 2 آپدیت بشه و همچنین رکورد چهارمی فیلد id اون بشه 3 یعنی همه ی رکوردهایی که از اون رکوردی که حذف شده فیلد آیدیشون بیشتر از اونه یکی کم بشه. من این کد رو نوشتم اما جواب نگرفتم .


در ضمن اون متغییر id که تو دستور select نوشتم حاوی اون مقدار آیدی هست که میخوام از توی دیتابیس حذف بشه و نوشتم اونهایی انتخاب بشه که از اون آیدی بیشترن و میخوام آپدیت روی اونها انجام بشه


 


 


Dim sq9 As SQL


sq9.Initialize(File.DirInternal,"data.db",True)


sq9.ExecNonQuery2("delete from tblnote where id=?",Array As String(id)) cs=sql.ExecQuery("select * from tblnote where id>"&id)


If (cs.RowCount<>0) Then


Dim add As Int=id


For i=0 To cs.RowCount-1


cs.Position=i


sq9.ExecNonQuery("update tblnote set id="&add&"where id="&cs.GetString(id))


add=id+1


 


Next


 


End If

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

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

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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