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

[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

[manoochehr_sh 55]

چرا نمینویسی:

"update tblnote set id = id-1 where id>" & id