[حريف برمجة]

كود :

Dim ret As Integer = (New OleDb.OleDbDataAdapter("SELECT BUYCODE FROM Sell_Det1 WHERE BUYCODE=" & Val(textBox1.Text), con).Fill(New DataTable))

If ret > 0 Then
' هنا يتم التعديل
Else
' هنا يتم الحفظ
End If

بالتوفيق للجميع