[dleesh]

حفظ السجل بدون تكرار .. من تجربتي
Sub SaveRecords()

Dim SaveMyCmd As New OleDbCommand
SaveMyCmd.Connection = Con
Con.Open()
SaveMyCmd.CommandText = "select * from Students where Stud_Num= " & TxtNum.Text & ""
Dim reader As OleDbDataReader = SaveMyCmd.ExecuteReader
If reader.Read Then
MsgBox(" البيانات موجودة مسبقا؟؟", MsgBoxStyle.Critical, "تنبيه")
reader.Close()

Exit Sub
Else
reader.Close()
End If
With SaveMyCmd
.Connection = Con
.CommandType = CommandType.Text
.CommandText = "insert into Students (Stud_Name,Stud_Num,Stud_Nat,Stud_Age,Stud_Phone,Stud_Mobile,Stud_Address,Stud_Notes) values(?,?,?,?,?,?,?,?)"
.Parameters.Clear()
.Parameters.AddWithValue("@Stud_Name", OleDbType.VarChar).Value = TxtName.Text.Trim
.Parameters.AddWithValue("@Stud_Num", OleDbType.Integer).Value = TxtNum.Text.Trim
.Parameters.AddWithValue("@Stud_Nat", OleDbType.VarChar).Value = TxtNat.Text.Trim
.Parameters.AddWithValue("@Stud_Age", OleDbType.Integer).Value = TxtAge.Text.Trim
.Parameters.AddWithValue("@Stud_Phone", OleDbType.VarChar).Value = TxtTel.Text.Trim
.Parameters.AddWithValue("@Stud_Mobile", OleDbType.VarChar).Value = TxtMobile.Text.Trim
.Parameters.AddWithValue("@Stud_Address", OleDbType.VarChar).Value = TxtAddress.Text.Trim
.Parameters.AddWithValue("@Stud_Notes", OleDbType.VarChar).Value = TxtNotes.Text.Trim

End With
SaveMyCmd.ExecuteNonQuery()
Con.Close()
FrmTree1List2Grid3_Load(Nothing, Nothing)


MsgBox(" تم حفظ البيانات بنجاح ", MsgBoxStyle.Information)

End Su