Организовать авторизацию в программе, использующей БД - VB

Формулировка задачи:

Народ..мне нужно в программе сделать админку...ну с доступом сам разберусь - это легко... у меня в базе в таблице users хранятся логины и пароли некоторых юзеров. при в ходе в программу, открывается форма авторизации пользователя. и пользователь должен ввести свой логин в первое текстовое поле, а пароль во второе и нажать на кнопку войти. логин и пароль должен проверяться с базой. если логин одного человека верный, а пароль нет, то вывести соответствующее сообщение, что пароль не верный. если не правильно введено логин юзера, то выдать ошибку: "юзер не зарегистрирован". то есть надо сделать как то привязку полей и проверку... может кто нибудь на подобе что то писал..или в инете кто нашел, кинте пожалуйста. буду рад любой помощи или код кинте...плиз..помогите!!!

Код к задаче: «Организовать авторизацию в программе, использующей БД - VB»

textual
Private db As Database
Private rs As Recordset
 
Private Sub Form_Load()
    Set db = OpenDatabase(App.Path + "\1.mdb", False, False, ";pwd=" + MyPassword)
    ' MyPassword - пароль на 1.mdb
End Sub
 
Private Sub Command1_Click()
    Set rs = db.OpenRecordset("select * from users", dbOpenDynaset)
    rs.FindFirst "Name=""" + Text1.Text + """"
    If Text2.Text = rs.Fields("Password") Then
        MsgBox "Г…Г±ГІГј"
    Else
        MsgBox "ГЌГҐГІГі"
    End If
    rs.Close
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    db.Close
End Sub

6   голосов, оценка 4.333 из 5


СОХРАНИТЬ ССЫЛКУ