ورود

View Full Version : سوال: ارتباط نام کاربری و رمز عبور در صفحه ورود کاربر با بانک اطلاعاتی


msnooran
سه شنبه 12 بهمن 1389, 18:09 عصر
سلام
من یک نرم افزار نوشتم و در قسمت لوگ این میخواهم کاربر نام کاربری و رمز عبور را که وارد میکند نرم افزار صحت آن را از بانک اطلاعاتی گرفته و در صورت و جود نام و رمز اجازه ورود به کاربر را بدهد
باتشکر
gohari244
سه شنبه 12 بهمن 1389, 19:03 عصر
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
سه شنبه 12 بهمن 1389, 19:44 عصر
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
البته این هم بگم که با کلمات فارسی مشکل داره

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

http://farshidshd.persiangig.com/ForSite/Errorvb6.jpg
gohari244
سه شنبه 12 بهمن 1389, 22:19 عصر
این کد برای من ارور میده

http://farshidshd.persiangig.com/ForSite/Errorvb6.jpg
سعی کن user و pass رو به صورت عدد یا حروف انگلیسی استفاده کنی
gohari244
سه شنبه 12 بهمن 1389, 22:59 عصر
این هم یک فایل تست که دانلودش کن و کارت رو راه بنداز البته با زبان فارسی مشکل داره که خودت روش کار کن
farshidshd
چهارشنبه 13 بهمن 1389, 13:21 عصر
انگلیسی هستن ولی نمیشه

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

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

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

user = Adodc1.Recordset.Fields!nameuser
pass = Adodc1.Recordset.Fields!pas
gohari244
چهارشنبه 13 بهمن 1389, 14:02 عصر
شرمنده من فکر کردم اکسس رو می خوای من با sql کار نکردم
farshidshd
پنج شنبه 14 بهمن 1389, 10:13 صبح
خودم درستش کردم

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