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

[shoeyb1990]

با سلام به دوستان
من برای ورود به برنامه یه فرم لوگین گزاشتم که اطلاعات رو هم تو بانک ذخیره میکنه برای یک کاربر مشکلی ندارم اما اگه تعداد کاربران بیشتر بشه کار نمیکنه و فقط نام کاربرب و رمز عبور اولی رو فقط قبول میکنه از دوستان میخوام که اگه منظور منو فهمیدن یه نمونه برنامه با همین خصوصیات بزارن .
استفاده از adodc و بانک اکسس

با تشکر................................

[M.T.P]

سلام
میتونید از یک Sub به این شکل استفاده کنید:



Sub CheckAccount()
Dim R As New ADODB.Recordset
R.ActiveConnection = Cn
R.LockType = adLockOptimistic
R.CursorType = adOpenStatic
R.CursorLocation = adUseClient
R.Open "Select * From Accounts Where Account = '" & TXTAccount & "'"
If R.RecordCount = 0 Then
MsgBox "User Not Found.", vbCritical
Exit Sub
End If
'User Exist.
If R("Password") = TXTPassword.Text Then
MsgBox "Log in Successfull."
Else
MsgBox "Password is wrong."
End If
Set R = Nothing
End Sub

و اما توضیحات راجع به Sub بالا:

در این قسمت از کد بالا Accountی را که کاربر وارد کرده از جدول Accounts پیدا میکند و در صورت عدم وجود اکانت در جدول کرسر از Sub خارج میشود.


R.Open "Select * From Accounts Where Account = '" & TXTAccount & "'"
If R.RecordCount = 0 Then
MsgBox "User Not Found.", vbCritical
Exit Sub
End If
خب اگر شرط بالا درست نبود یعنی RecordCount مخالف 0 بود به این معنی هست که Account وارد شده در جدول Accounts وجود دارد و نوبت به بررسی پسورد هست ، در این قسمت پسورد وارد شده با فیلد پسورد مقایسه میشود و پاسخی متناسب داده خواهد شد:


If R("Password") = TXTPassword.Text Then
MsgBox "Log in Successful."
Else
MsgBox "Password is wrong."
End If

[shoeyb1990]

با تشکر از دوست عزیز اکه میشه یه نمونه(سورس) بزارید
باز هم ممنون................

[M.T.P]

این یک نمونه هست اگه اکسس نداری 3 تا کاربر با مشخصات زیر تو بانک هست:

1.
کاربر: Ali
کلمه عبور: 123

2.
کاربر: Ahmad
کلمه عبور: 1234

3.
کاربر: Reza
کلمه عبور: 12345

تست کن ببین چطوره!

[shoeyb1990]

با تشکر از دوست عزیز من از adodc استفاده میکنم اگه میشه رو رو این مثال که میزارم(البته فقط اولین کاربر رو اجازه ی ورود میده) با adodc تکمیلش کنید.
باز هم ممنون..................

[M.T.P]

پروژه تون اصلاح شد.
ببینید طوره...

[shoeyb1990]

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

فایل ضمیمه. فرمش رو ببینید............باز هم ممنون.......................................

[shoeyb1990]

کسی نمیتونه در این ضمینه کمکی کنی ؟
لطفا کمک کنید ...ممنون........................

[M.T.P]

کسی نمیتونه در این ضمینه کمکی کنی ؟ :متفکر:
ها ای که الان وگفتی ای یعنی چه؟
:متفکر: :متفکر: :متفکر:
:متفکر: :متفکر:
:متفکر: