اشکال این چند خط کد کجاست من میخوام وقتی روی یک اس ام اس از لیست زدم فیلد 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 گزینه ی انتخابی رو یک نمیکنه در دیتابیس
لینک ارسال
به اشتراک گذاری در سایت های دیگر
23 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.