ارتباط نام کاربری و رمز عبور در صفحه ورود کاربر با بانک اطلاعاتی

[msnooran]

سلام
من یک نرم افزار نوشتم و در قسمت لوگ این میخواهم کاربر نام کاربری و رمز عبور را که وارد میکند نرم افزار صحت آن را از بانک اطلاعاتی گرفته و در صورت و جود نام و رمز اجازه ورود به کاربر را بدهد
باتشکر

[gohari244]

 

if text1.text=data1.recordset.fields!user and text2.text=data1.recordset.fields!pass then

form2.show

else

msgbox "verify user and pass"

end if

البته این هم بگم که با کلمات فارسی مشکل داره

[farshidshd]

 

if text1.text=data1.recordset.fields!user and text2.text=data1.recordset.fields!pass then

form2.show

else

msgbox "verify user and pass"

end if

البته این هم بگم که با کلمات فارسی مشکل داره

این کد برای من ارور میده

[gohari244]

این کد برای من ارور میده

سعی کن user و pass رو به صورت عدد یا حروف انگلیسی استفاده کنی

[gohari244]

این هم یک فایل تست که دانلودش کن و کارت رو راه بنداز البته با زبان فارسی مشکل داره که خودت روش کار کن

[farshidshd]

انگلیسی هستن ولی نمیشه

این فایلی رو هم که فرستادین ، بانکش اکسس هست ، فکر میکنم دستوراتش با SQL فرق داشته باشه

من دستورات SQL رو میخوام

به این دوتا خط گیر میده و همون ارور رو میده

user = Adodc1.Recordset.Fields!nameuser

    pass = Adodc1.Recordset.Fields!pas

[gohari244]

شرمنده من فکر کردم اکسس رو می خوای من با sql کار نکردم

[farshidshd]

خودم درستش کردم

Adodc1.Refresh

    Adodc1.Recordset.Find "nameuser= '" & txtuser.Text & "'"

    u = Adodc1.Recordset.Fields("nameuser")

    Adodc1.Recordset.Find "Pas= '" & txtpass.Text & "'"

    p = Adodc1.Recordset.Fields("Pas")

    m = Adodc1.Recordset.Fields("model")

    n = Adodc1.Recordset.Fields("nameh")

    If u = Adodc1.Recordset.Fields("nameuser") And p = Adodc1.Recordset.Fields("Pas") Then

      mainform.Label6.Caption = m

    mainform.Label7.Caption = n

    Unload Me

    mainform.Show

    

    

    ''''''''''''''''''''''''''''''''''''''''''''''''''  ''''''''

    

    Else

    ss = MsgBox("Error In UserName Or Password", vbCritical, "Error")

    txtuser.Text = ""

    txtpass.Text = ""

                 End If