Sub favorite_Click
cursor1=sql1.ExecQuery("SELECT id FROM smstb")
If cursor1.RowCount>0 Then
For i=0 To cursor1.RowCount-1
cursor1.Position=i
Dim new_num As Int
new_num=cursor1.GetInt("id")
Next
End If
new_num=new_num+1
sql1.ExecNonQuery("INSERT INTO smstb VALUES('" &new_num&"','" &lbl.Text&"')")
End Sub
سوال
طاها 480
سلام دوستان. چطوری میتونم توی دیتابیسم کاری کنم که مطلب تکراری ذخیره نشه؟
کد ذخیره مطلب در دیتابیس
لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.