مشكل با adodoc

[sevigol]

با سلام من یه فرم دار كه میخواهم كاربر با دادن username ,password به فرم بعدی دسترسی داشته باشه
هر كدی قرار میدم مشكلداره ممكنه كمكم كنید

Private Sub Command1_Click()

Dim Response As Integer
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Database Path;Persist Security Info=False"
.RecordSource = "SElECT * from Table1 where username = '" & Trim(Text1.Text) & "' AND password = '" & Trim(Text2.Text) & "'"
' Refresh


End With


if text1.text=usrename and text2.text=password then form 4.show
else exit sub
End If


مشكل اینجاست كه شرط if مشكل داره اما نمي دونم كجاش

End Sub

[maryamb]

چرا شما یه بار تو اولین خط گفتید FORM4.SHOW بعد دوباره شرط بررسی کردین که اگه شرط برقرار بود اونوقت فرم 4 رو نشون بده ؟؟؟
احتمالا اشکال از همین جاست .اون خط اول رو بردارید و دوباره امتحان کنین . نتیجه رو بگین

[sevigol]

با سلام من یه فرم دار كه میخواهم كاربر با دادن username ,password به فرم بعدی دسترسی داشته باشه
هر كدی قرار میدم مشكلداره ممكنه كمكم كنید

Private Sub Command1_Click()


Dim Response As Integer
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Database Path;Persist Security Info=False"
.RecordSource = "SElECT * from Table1 where username = '" & Trim(Text1.Text) & "' AND password = '" & Trim(Text2.Text) & "'"
' Refresh


End With


if text1.text=usrename and text2.text=password then form 4.show
else exit sub
End If


مشكل اینجاست كه شرط if مشكل داره اما نمي دونم كجاش


End Sub

من ابن كارو كردم اما بازم جواب تگرفتم

[محسن بابائی]

دستور if را به این شکل تغییر بده


If Adodc1.Recordset.EOF = False Then form4.Show

یا این


If Text1.Text = Adodc1.Recordset.Fields("UserName") And Text2.Text = Adodc1.Recordset.Fields("Password") Then form4.Show

[maryamb]

شما قبلا مقادیر یوزر نیم و پس ورد رو از داخل پایگاه برای مقایسه داخل یکی متغیر نریختید .اشکال از همونه
(کد دوم آقای بابایی کاملا صحیح است )

[اوبالیت به بو]

http://barnamenevis.org/forum/showpost.php?p=524814&postcount=20