06-04-14, 06:44 PM
عندي فورم فيها اثنين تكست بوكس
1- اسم المستخدم
2- كلمة المرور
عند ادخال المعلومات والضغط على دخول ... المفروض البرنامج يقارن المعلومات بقاعدة البيانات ..
عملت الكود كامل بس يعترض على جملة .. dataadapter1.Fill(dataset1, "table1")
والكود هو ..
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = Trim(" ") Then Exit Sub
sql = "select * from table1 where name='" & TextBox1.Text & "' and number='" & TextBox2.Text & "'"
conn.Open()
Dim dataadapter1 As New OleDbDataAdapter(sql, conn)
dataadapter1.Fill(dataset1, "table1")
conn.Close()
If Me.BindingContext(dataset1, "table1").Count = 0 Then
MsgBox("اسم المستخدم أو كلمة المرور خاطئة")
Exit Sub
End If
MsgBox("مرحبا")
TextBox1.DataBindings.Add("text", dataset1, "table1.name")
TextBox2.DataBindings.Add("text", dataset1, "table1.number")
Form5.Show()
End Sub
1- اسم المستخدم
2- كلمة المرور
عند ادخال المعلومات والضغط على دخول ... المفروض البرنامج يقارن المعلومات بقاعدة البيانات ..
عملت الكود كامل بس يعترض على جملة .. dataadapter1.Fill(dataset1, "table1")
والكود هو ..
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = Trim(" ") Then Exit Sub
sql = "select * from table1 where name='" & TextBox1.Text & "' and number='" & TextBox2.Text & "'"
conn.Open()
Dim dataadapter1 As New OleDbDataAdapter(sql, conn)
dataadapter1.Fill(dataset1, "table1")
conn.Close()
If Me.BindingContext(dataset1, "table1").Count = 0 Then
MsgBox("اسم المستخدم أو كلمة المرور خاطئة")
Exit Sub
End If
MsgBox("مرحبا")
TextBox1.DataBindings.Add("text", dataset1, "table1.name")
TextBox2.DataBindings.Add("text", dataset1, "table1.number")
Form5.Show()
End Sub