+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : Ado : مساعدة في كود دخول المستخدمين للبرنامج (/showthread.php?tid=7158)
الصفحات:
1
2
Ado : مساعدة في كود دخول المستخدمين للبرنامج - المبرمج البسيط - 29-11-12
رجاء لا تعدل المشروع وترفقة لي
فقط اعلمني على موقع الخطأ
وانا اصححه
Ado : مساعدة في كود دخول المستخدمين للبرنامج - hago - 29-11-12
الكد بعد التعديل :
مثل ما توقعت الخطأ طلع فى تسمية الحقول كانت خاطئة
كود :
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 IfAdo : مساعدة في كود دخول المستخدمين للبرنامج - hago - 29-11-12
انت لم تختر طريقة الربط 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 & "'"
ليصبح الكود النهائى لكوماند الدخول :
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
بالتوفيق
Ado : مساعدة في كود دخول المستخدمين للبرنامج - المبرمج البسيط - 29-11-12
الف شكر لك اخي العزيز ما اعرف كيف اشكرك
والله انت تستاهل ان تحصل على وسام الاشراف على قسم الفيجوال بيسك