26-03-18, 03:02 AM
السلام عليكم ورحمة الله وبركاته
عندي مشكلة انا مسوية داتا اسمها user
وداخلها تيبل اسمه Admin
وفيها
Id
Ad_Name
Ad_password
>>>>>>>>>>>>>>>>>>>>
فأبي اسوي تسجيل دخول عن طريق بيانات موجودة داخل الداتا لكن
لما اسوي الاكواد يطلع خطأ في هذا الجزء
ممكن حل
عندي مشكلة انا مسوية داتا اسمها user
وداخلها تيبل اسمه Admin
وفيها
Id
Ad_Name
Ad_password
>>>>>>>>>>>>>>>>>>>>
فأبي اسوي تسجيل دخول عن طريق بيانات موجودة داخل الداتا لكن
لما اسوي الاكواد يطلع خطأ في هذا الجزء
كود :
Me.AdminTableAdapter.Fill(Me.UserDataSet1.Admin, TextBox1.Text.Trim, TextBox2.Text.Trim)
كود :
Public Class Adminlogin
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text.Trim = "" Or TextBox2.Text.Trim = "" Then
MsgBox("you should complet ypur deails")
Else
Me.AdminTableAdapter.Fill(Me.UserDataSet1.Admin, TextBox1.Text.Trim, TextBox2.Text.Trim)
If Me.UserDataSet1.user.Count > 0 Then
Me.Close()
Test.Show()
Else
MsgBox("Logon failure, user name or password are incorrect!", MsgBoxStyle.Critical)
End If
End If
End Sub
Private Sub Ad_NameTextBox_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If IsNumeric(e.KeyChar.ToString()) Then
MessageBox.Show("Letters only!")
SendKeys.Send("{Backspace}")
End If
End Sub
Private Sub Ad_NameTextBox_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
Form1.Show()
End Sub
Private Function Ad_Name() As Object
Throw New NotImplementedException
End Function
End Class
ممكن حل