[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