اشکال این چند خط کد کجاست من میخوام وقتی روی یک اس ام اس از لیست زدم فیلد fav به یک تغییر کنه
در یک اکتیویتی جداگانه هم خودم علاقه مندی ها رو یعنی اونایی که فیلد fav برابر با یک هست رو لود میکنم
اما مشکل من با خط هفتم از این کد هست که فیلد fav گزینه ی انتخابی رو یک نمیکنه در دیتابیس
Dim btn3 As Button
btn3=Sender
Dim cursor3 As Cursor
cursor3 = SQL1.ExecQuery("SELECT * FROM smstb where sms='تهران' ORDER BY id DESC")
cursor3.Position=btn3.Tag
If cursor3.GetInt("fav")=0 Then
SQL1.ExecNonQuery("UPDATE smstb SET fav=1 WHERE sms2="& btn3.Tag)
Msgbox("به علاقه مندیها افزوده شد","افزودن به علاقه مندیها")
Else
Msgbox("در لیست علاقه مندیها وجود دارد","تکراری")
End If
سوال
moein921 2
اشکال این چند خط کد کجاست من میخوام وقتی روی یک اس ام اس از لیست زدم فیلد fav به یک تغییر کنه
در یک اکتیویتی جداگانه هم خودم علاقه مندی ها رو یعنی اونایی که فیلد fav برابر با یک هست رو لود میکنم
اما مشکل من با خط هفتم از این کد هست که فیلد fav گزینه ی انتخابی رو یک نمیکنه در دیتابیس
Dim btn3 As Button btn3=Sender Dim cursor3 As Cursor cursor3 = SQL1.ExecQuery("SELECT * FROM smstb where sms='تهران' ORDER BY id DESC") cursor3.Position=btn3.Tag If cursor3.GetInt("fav")=0 Then SQL1.ExecNonQuery("UPDATE smstb SET fav=1 WHERE sms2="& btn3.Tag) Msgbox("به علاقه مندیها افزوده شد","افزودن به علاقه مندیها") Else Msgbox("در لیست علاقه مندیها وجود دارد","تکراری") End Ifلینک ارسال
به اشتراک گذاری در سایت های دیگر
23 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.