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

[mojcom 22]

سلام لطف کمک کنید. این کد یکم گیژ کننده بود واسم - یه دکمه 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