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

[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]

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

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