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

اخوان ممكن المساعده....مافائده هذه الاكواد البرمجية
...
ارجو الرد بسرعه تحياتي لكم...

Dim db As Database
Dim Rs As Recordset

Private Sub Combo1_DropDown()
Do While Not Rs.EOF
Combo1.AddItem Rs("name")
Rs.MoveNext
Loop
End Sub

Private Sub Command1_Click()

Dim cn As ADODB.Connection
Dim Rs1 As ADODB.Recordset
Dim strsql As String, dbPassWord As String

Set cn = New ADODB.Connection
'التصال بقاعدة البيانات
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\clinc.mdb;" & _
"Jet OLEDBatabase "

Set Rs1 = New ADODB.Recordset

strsql = "SELECT * FROM login where name='" & Trim$(Combo1.Text) & "'"

Set Rs1 = cn.Execute(strsql)

If Rs1.RecordCount = 0 Then MsgBox "المستخدم غير موجود": Exit Sub

If Combo1.Text = "" And Text2.Text = "" Then
MsgBox "لم تدخل اسم مستخدم ولا كلمة مرور يرجى ادخال المعلومات المناسبة للدخول الى البرنامج", vbOKOnly + vbCritical + vbMsgBoxRight, "خطأ"
Exit Sub
ElseIf Combo1.Text = "" Then
MsgBox "لم تدخل اسم مستخدم يرجى ادخال المعلومات المناسبة للدخول الى البرنامج", vbOKOnly + vbCritical + vbMsgBoxRight, "خطأ"
Exit Sub
End If
dbPassWord = Rs1.Fields("password").Value
'التحقق من الباسورد
If StrComp(dbPassWord, Trim$(Text2.Text)) = 0 Then


Records.Show
Unload Me

Else
MsgBox "أسم المستخدم او كلمة المرور خطأ.. حاول مرة اخرى", vbOKOnly + vbCritical + vbMsgBoxRight, "خطأ"

End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Set db = OpenDatabase("clinc.mdb")
Set Rs = db.OpenRecordset("login", 2)



End Sub

يا أخي العزيز ...
هذه الاكواد بلغة VB6 وانت في قسم اسئلة VB .Net
وهي أكواد مستخدمة لشاشة تسجيل دخول بالاسم وكلمة المرور عن طريق قاعدة بيانات Access