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