[sameerah]

السلام عليكم 

ممكن كود التأكد من السجل إذا كان موجود فالجدول ؟ 

اذا كان موجود تظهرلي رسالة البيانات مسجلة مسبقا 

واذا كانت غير موجوده يحفظ البيانات 


شكرا

[walkady]

'التحقق من اسم الصنف
Dim sqlstr As String = "Select nameitem From items Where nameitem=@nameitem"
Dim cmd As New OleDb.OleDbCommand(sqlstr, con)
cmd.Parameters.AddWithValue("@nameitem", TextBox3.Text)
If con.State = ConnectionState.Closed Then con.Open()

dr = cmd.ExecuteReader
If dr.HasRows Then
MsgBox("الإسم موجود مسبقا في قاعدة البيانات")
TextBox3.Focus()
Return
End If
dr.Close()
con.Close()
End If

[hamada558]

انا شفت واحد من حبايبنا مش متذكره وضع سطر واحد يعرف بيه اذا السجل موجود ولا لا، بصراحة عجبني الاختصار، شوفو معايا

كود :

Dim ret As Integer = (New OleDb.OleDbDataAdapter("SELECT id FROM table1 WHERE id=" & Val(textBox1.Text), cnn).Fill(New DataTable))
If ret > 0 Then
    MsgBox("البيانات مسجلة مسبقا")
Else
    ' هنا يتم الحفظ
End If

[sameerah]

شكرا لكم الاكواد شغاله تمام