السلام عليكم
سؤال لو سمحتم
انا عندي مشكله اريد ان اعمل user name and password عندما ادخلهما يذهب و يتحقق من ال database اذا كان يطابق يذهب للصفحة الاخرى تكون اسمه و رقمه الوظيفي
Public Function GetRecords(ByVal sql As String) As DataTable
tbl = New DataTable
Dim da = New OleDbDataAdapter(sql, con)
da.Fill(tbl)
Return tbl
End Function
Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
sql = "Select * from Users where User_Name='" & Username.Text & "' And User_Pass='" & Password.Text & "'"
tbl = GetRecords(sql)
If tbl.Rows.Count > 0 Then
Me.Hide()
FrmMain.Show()
Else
MsgBox("خطـأ اسم المستخدم/كلمة المرور", MsgBoxStyle.Critical)
End If
End Sub
الساعة معتمدة بتوقيت جرينتش +3 الساعة الآن: 11:49 AM
موقع القرية الالكترونية غير مسؤول عن أي اتفاق تجاري أو تعاوني بين الأعضاء
فعلى كل شخص تحمل مسئولية نفسه إتجاه مايقوم به من بيع وشراء وإتفاق وأعطاء معلومات موقعه
التعليقات المنشورة لا تعبر عن رأي موقع القرية الالكترونية ولايتحمل الموقع أي مسؤولية قانونية حيال ذلك (ويتحمل كاتبها مسؤولية النشر)