منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

رجاء لا تعدل المشروع وترفقة لي
فقط اعلمني على موقع الخطأ
وانا اصححه

انت لم تختر طريقة الربط 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 


فى مشكلة فى المحرر لذلك ارفقت لك التعديل على النوت باد
بالتوفيق

الف شكر لك اخي العزيز ما اعرف كيف اشكرك

والله انت تستاهل ان تحصل على وسام الاشراف على قسم الفيجوال بيسك