دوستان من یه دیتابیس دارم که اطلاعات آن را در یک لیست ویو به نمایش میزارم
cur1=sql1.ExecQuery("SELECT * FROM tab1 where id_yad=1")
For i=0 To cur1.RowCount-1
cur1.Position=i
ListView1.AddSingleLine(cur1.Getint("id_roz"))
--------------------------------------------------------------------
میخام روی هر کدام از گزینه های لیست ویو کلیک شد ، Id_yad مربوط به همان را در دیتابیس برابر با صفر قرار بده،
من از کد زیر استفاده میکنم که متاسفانه ارور میده
ممنون میشم راهنمایی کنید
Sub ListView1_ItemLongClick (Position As Int, Value As Object)
Dim cur As Cursor
Dim x As Int
cur = sql1.ExecQuery("SELECT * FROM tab1 where id_yad=1")
x=cur.GetInt("id")
cur.Position = Value - 1
sql1.ExecNonQuery("UPDATE tab1 SET id_yad = 0 WHERE id = "&x)
End Sub
سوال
afshin006 6
دوستان من یه دیتابیس دارم که اطلاعات آن را در یک لیست ویو به نمایش میزارم
cur1=sql1.ExecQuery("SELECT * FROM tab1 where id_yad=1") For i=0 To cur1.RowCount-1 cur1.Position=i ListView1.AddSingleLine(cur1.Getint("id_roz")) --------------------------------------------------------------------
میخام روی هر کدام از گزینه های لیست ویو کلیک شد ، Id_yad مربوط به همان را در دیتابیس برابر با صفر قرار بده،
من از کد زیر استفاده میکنم که متاسفانه ارور میده
ممنون میشم راهنمایی کنید
Sub ListView1_ItemLongClick (Position As Int, Value As Object) Dim cur As Cursor Dim x As Int cur = sql1.ExecQuery("SELECT * FROM tab1 where id_yad=1") x=cur.GetInt("id") cur.Position = Value - 1 sql1.ExecNonQuery("UPDATE tab1 SET id_yad = 0 WHERE id = "&x) End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
8 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.