25-10-16, 07:11 PM
السلام عليكم
لدي كود الحفظ حقبل الحفظ واريد فهمه + افضل منه وابسط ان وجد
اتمنى المساعدة شباب
لدي كود الحفظ حقبل الحفظ واريد فهمه + افضل منه وابسط ان وجد
كود :
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