ساخت فرم لوگين با ديتابيس اكسس

[amiralex]

سلام

ببخشيد كه شايد سوالم تكراري باشه ولي چون به پاسخ مناسبي نرسيدم مجبوربه پرسيدن شدم

من تو برنامم يه فرم دارم
ميخوام در يك تكست باكس نام كاربري و در يكي پسورد رو وارد كنم بعدش وارد فرم مثلا دو بشم

از اين كدي كه آقا محسن دوست عزيز نوشتن استفاده كردم ( ديتابيسم اكسس هست).

username=adodc1.Fields(0)
password=adodc1.Fields(1)
if username = text1 and password = text2 then
Form2.show
unload me
else
msgbox "password is not correct."
end if

اما مشكل اينجاست كه من چند تا نام كاربري و پسورد دارم و وقتي در كادر يوزنيم و پسورد رو وارد ميكنم فقط سطر اول ديتابيس و ميخونه و اگه درست بود وارد ميشه اما اگه يوزنيم و پسوردي كه در سطر دوم باشه رو وارد كنم ميگه نام كاربري اشتباه است.

چي كار بايد بكنم كه اين مشكل حل بشه؟

[محسن واژدی]

سلام علیکم
کد زیر را بررسی کنید:
Private Sub Command1_Click()
With Adodc1
.RecordSource = "SELECT * FROM tblUsers WHERE UName='" & Text1 & "' AND UPass='" & Text2 & "'"
.Refresh
If .Recordset.RecordCount > 0 Then
MsgBox "OK.", vbInformation
Else
MsgBox "Incorrect username or password", vbCritical, "Error"
End If
End With
End Sub
بجای tblUsers، UName، UPass نام جدول و فیلدها رو جایگزین کنید

موفق باشید

[amiralex]

آقا محسن بسيار سپاسگذارم

كاملا دقيق و درست عمل كرد