ایجاد فرم لاگین در VB6 تست یوزر و پسورد در SQL

[maxilla]

با سلام به همه
من میخوام یه فرم لاگین تو VB6 درست کنم که با تست کردن یوزر و پسورد تو بانک SQl و صحیح بودن به صفحه بعد برنامه بره
ممنوم میشم اگه کمکم کنید
اگر کد آماده یا سورس دارید

[naeim_1369]

سلام ، یه مقداری دیر شد ، به بزرگی خودت ببخش(آخه 18آذر88 رفته بودم سربازی وگرنه جواب میدادم!!) :لبخند:


Dim msg1 As Integer
Adodc1.RecordSource = "select * from Tbllog where user='" & Text1.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 1 Then
If Adodc1.Recordset.Fields!pass = Text2.Text Then
Form2.Show
Unload Me
Else
msg1 = MsgBox("Invalid Password", vbExclamation, "Error2")
End If
ElseIf Adodc1.Recordset.RecordCount < 1 Then
msg1 = MsgBox("UserName is Incorrected", vbExclamation, "Error1")
Else
msg1 = MsgBox("There is multiple users by this name, please call Manager!", vbCritical, "Critical Error")
End
End If






البته پیوستی که من آماده کردم برا اکسس هست ولی از کد اسکیوال استفاده شده (یعنی برا اسکیوال هم تقریبا به همین روشه)