[0theghost0]

السلام عليكم

لدي كود الحفظ حقبل الحفظ واريد فهمه + افضل منه وابسط ان وجد

كود :

Dim str As String = ("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\Employe.mdb;user id=admin;jet oledb:database password=12345b#")
       Dim con As New OleDbConnection(str)
       Dim issql As String = "select * from main where b2='" & Me.TextBox2.Text & "'"
       Dim isds As New DataSet
       Dim isda As New OleDb.OleDbDataAdapter(issql, con)
       isda.Fill(isds, "b2")
       If Me.BindingContext(isds, "b2").Count > 0 Then
           MsgBox("اسم الموظف موجود مسبقا ", MsgBoxStyle.Critical, "خطا")
           Exit Sub
       End If

اتمنى المساعدة شباب