If Text1 = "" Or Text2 = "" ThenMsgBox " Sorry,You Must Type The Username And Password ", vbCritical + vbMsgBoxRight, " ErrorLogin "
Exit Sub
End If
SQLs = "SELECT * FROM users WHERE name ='" & Text1.Text & "' and password='" & Text2.Text & "'"
If rs.State = adStateOpen Then rs.Close
rs.Open SQLs, db, adOpenKeyset, adLockPessimistic
If rs.EOF Then
MsgBox " Sorry, The Username And Password Is Wrong ! ", vbCritical + vbMsgBoxRight, " Error Login "
Text2 = ""
Text2.SetFocus
Else
'Save This Inforamtion
UserNames = Text1
UserPassword = Text2
Set rs = Nothing
Set db = Nothing
Me.Hide
MDIForm1.Show
End If
مثل ما توقعت الخطأ طلع فى تسمية الحقول كانت خاطئة
سبحان الله وبحمده سبحان اللهالعظيم آللهملگآلحمد حتى ترضى .. ولگآلحمدإذا رضيِت .. ولگآلحمدبعد آلرضآ
انت لم تختر طريقة الربط ADO
اذهب الى Project ---> References وإختر Microsoft ActiveX Data Objects 2.7 Library
اذهب للـــ Module
عرف الاتى :
PHP كود :
Public db As New ADODB.Connection Public rs As New ADODB.Recordset Dim SQLs As String
فى حدث الفورم لود :
PHP كود :
If db.State = adStateOpen Then db.Close db.Provider = "Microsoft.JET.OLEDB.4.0;" db.Open App.Path & "\database.mdb"
اما فى كود دخول غير الاتى :
PHP كود :
SQLs = "SELECT * FROM users WHERE name ='" & Text1.Text & "' and password='" & Text2.Text & "'"
انت كاتب فى الكود Username وهى فى قاعدة البيانات users
ليصبح الكود النهائى لكوماند الدخول :
PHP كود :
If Text1 = "" Or Text2 = "" Then MsgBox " Sorry,You Must Type The Username And Password ", vbCritical + vbMsgBoxRight, " ErrorLogin " Exit Sub End If SQLs = "SELECT * FROM users WHERE name ='" & Text1.Text & "' and password='" & Text2.Text & "'" If rs.State = adStateOpen Then rs.Close rs.Open SQLs, db, adOpenKeyset, adLockPessimistic If rs.EOF Then MsgBox " Sorry, The Username And Password Is Wrong ! ", vbCritical + vbMsgBoxRight, " Error Login " Text2 = "" Text2.SetFocus Else 'Save This Inforamtion users= Text1 password= Text2 Set rs = Nothing Set db = Nothing Me.Hide MDIForm1.Show End If
فى مشكلة فى المحرر لذلك ارفقت لك التعديل على النوت باد
بالتوفيق
سبحان الله وبحمده سبحان اللهالعظيم آللهملگآلحمد حتى ترضى .. ولگآلحمدإذا رضيِت .. ولگآلحمدبعد آلرضآ
