ساخت علاقه مندی

[love 15]

سلام من میخواستم در صفحه متنم یه دکمه بزارم که وقتی روی اون کلیک شد اون متن بره علاقه مندی اموزش های دیگه رو دیدم همه با لیست ویو و کلیک طولانی این کار رو کردن ولی من میخوام با زدن دکمه اون متن انتخاب بشه واسه بخش علاقه مندی کدی که واسه دکمه فرستادم اینه لطفا راهنمایی کنید با سپاس.

Sub Button1_Click	Dim cur As Cursor
cur =cheshm.sql1.ExecQuery("SELECT * FROM cheshm") 
Dim f As Int
f= cur.GetInt("fav")
If f = 0 Then
	sql1.ExecNonQuery("UPDATE cheshm SET fav = 1 WHERE id =  "&cur.GetInt("id"))
	ToastMessageShow("به علاقه مندی اضافه شد",False)
Else
	sql1.ExecNonQuery("UPDATE cheshm SET fav = 0 WHERE id =  "&cur.GetInt("id"))
	ToastMessageShow("حذف شد",False)
End If
End Sub

[Farzad Musavi 576]

cheshm رو قبل از sql1 پاک کن تست کن ببین درست میشه

[love 15]

وقتی پاک میکنم ارور میده که sql قابل شناسایی نیست inisilize

[love 15]

چه کدی بنویسم که متنم وارد علاقه مندی بشه با زدن دکمه ؟

[Farzad Musavi 576]

cheshm رو چی تعریف کردی تو؟ رنگش قرمز نیس تو کد نویسیت؟

اگه میتونی سورستو بذار ببینیم

[مجید آرتا 5,874]

چه کدی بنویسم که متنم وارد علاقه مندی بشه با زدن دکمه ؟

خب بستگی داره متنو کجا ذخیره کنید.

توی دیتابیس یا یک لیست توی برنامه؟

واسه دیتابیس کافیه یک جدول بسازید و با زدن کلیک کوئری Insert رو فراخوانی و به علاقمندی اضافه کنید

و اگه میخواهید داخل خود برنامه ذخیره کنید از کنترل لیست ویو میتونید استفتده کنید و اطلاعاتشو یه جایی مثه فایل txt ذخیره کنید