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

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


textual

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

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



Похожие ответы
  1. Всем привет! Решил сделать свою Графическую Оболочку для Шахматного Движка, но не знаю как организовать обмен данными. Несколько дней ворошил инет - и ничего вразумительного(( Вот цитата из описания движка: "Шахматный движок представляет собой обычное приложение (чаще всего консольное). Оно получает различные команды по стандартному устройству ввода (stdin), как-то их обрабатывает и результат подаёт на стандартное устройство вывода (stdout)." Подскажите, ПЛЗ, что это за "стандартное устройство"!! Пробовал через через создание консоли - не идёт... Для начала наладил передачу команд через AppActivate->SendKeys, а ответ вытаскиваю из ЛогФайла (благо у движка есть такая опция), но очень уж это вычурно... Подскажите хоть в каком направлении копать, а лучше примерчик дайте...

  1. Помогите переделать программу под эти задания. задание: 1.Организовать ввод элементов двумерного массива размерностью N*M из текстового файла(открытие файла через объекты DriveListBox,DirListBox,FileListBox) 2.Вывести исходный массив в таблицу MSFlexGrid. 3.Определить суммы отрицательных элементов по столбцам. 4.Найти квадрат произведения максимального элемента массива и элемента с индексом (L,K). 5.Удалить столбцы, в которых есть хотя бы один отрицательный элемент, кратный 4.флекс.rar

  1. Всем, Здравствуйте! Интересует такой вопрос. Как организовать движение объекта (обьект , двигается вперед, но может поворачивать на определенный угол и снова едет вперед) к цели С, из A в B цель передвинулась, я получил координаты из них стороны и углы треугольника (через аркосинус), полученного вершинами, начала , куда передвинулся обьект и целью, Дальше нужно организовать перемещение , вернее , надо как то проверять условия, чтобы обьект , через определённые промежутки времени, опять проверял направление и снова двигался к цели. Уже 3 дня бьюсь над этой задачей. Не знаю как организовать проверку и правильный поворот. То есть цель , сама должна поворачиваться, потом двигаться , проверять и так далее) Помогите пожалуйста!

  1. Здравствуйте, уважаемые специалисты. Есть код программы:

  1. Добрый день! Делаю что-то вроде мастера-помощника, при работе с которым пользователь будет жать кнопку "Далее" и в зависимости от выбранных настроек попадать на новый слой (то есть он будет работать с некоторым ветвящимся алгоритмом). Я прикинул, что слоев будет штук 30, а в дальнейшем хотелось бы заложиться на большее количество слоев. Простой путь: создать массив фреймов и управлять как-то их видимостью. Можно ли это организовать как-то по умному? Буду признателен любым идеям. Нет ли в природе подобных контролов?

  1. Ребят, хочу написать клиент-программу, вот окошко Для школы своей)))))))))))))))) Смысл таков Есть база данных, в ней таблицы с классами, предметами и их оценками))) каждому классу своя таблица) Так вот, нужно чтобы пользователь выбирал из списка класс, нажимал на кнопку "Загрузть данные", происходило подключение к базе данных и в объект DataGrid1 загружалась таблица, котрую выбрал пользователь Например : Выбрали Combo1.List = "10 Б", нажали на кнопку "Загрузить" и произошло подключение к базе данных, и оттуда была загружена таблица 10 "Б" в объект DataGrid1

  1. Доброе всем время суток... Вот, собственно, вопрос.. Необходимо организовать базу данных, которую можно будет обновлять через интернет и через программу (как бы локально). Очень заинтересовала MySQL .. дайте пожалуйста инфу по этому делу... мне нужно узнать как работать из программ написаных на вб с майэскюэль базами данных... Если можете посоветовать что лучше, обязательно советуйте если что не так написал, заранее извиняюсь..

  1. помогите разобраться с заданиями. я не изучал VB, и не знаю как работать с формами. Меня попросили помочь. С синтаксисом возможно и сам разберусь (работал с паскалем, дельфи, С). основное не знаю как программный код связать с формами. А если напишете код реализации, то буду благодарен. по мне задания не очень трудные, только разбираться что да как это довольно таки долго.. расчитываю на помощь. заранее спасибо.

  1. Как организовать поиск в DBGrid'е? Делаю следующее:

  1. Доброго времени суток! Нужна помощь Подскажите как организовать проверку введенных данных в textbox Нада, чтоб если введено не число выскакивало окно msgbox Это я сделал вот так