Sql server и VS visual basic. Авторизация

@Ильнарр · Регистрация: 06.04.2015

Author24 — интернет-сервис помощи студентам

Есть 3 формы.
1 форма - форма авторизации. (на форме расположены Text.box1 и Text.box2 соответственно логин и пароль и кнопка "авторизоваться")
2 форма - форма, после авторизации туда переходит участник
3 форма - форма, после авторизации переходит туда администратор

Есть база данных, в которой данные для авторизации. Это таблица Users (Email, password, (role - это список ролей, в моем случае администратор(1) и пользователь(2))).

Помогите реализовать авторизацию с кодом типа
If Textbox1.text = MyDataBaseDataSet.table.email.(содержимое поля почты) and
Textbox2.text = MyDataBaseDataSet.table.password.*** then
...
else MsgBox("Ошибка")
не знаю как данные сравнить Email, password а потом тип роли определить

@UBUNTU · 05.02.2017, 15:13

Подскажите строку ADODB для подключения к SQL Server с доверенным соединением

@Ильнарр · 05.02.2017, 20:51 **[ТС]**

Помогите реализовать авторизацию с кодом типа
If Textbox1.text = MyDataBaseDataSet.table.email.(содержимое поля почты) and
Textbox2.text = MyDataBaseDataSet.table.password.*** then

@YuryK · 05.02.2017, 21:08

Хоть я с VB и не дружу, но свои 7 копеек добавлю.

Если таблица с паролями, логинами и ролями MyDataBaseDataSet.table уже на клиенте, надо пробежаться и найти себя в ней
пишу на Delphi

Delphi

MyDataBaseDataSet.table.First;
IsCorrect := false;
while not IsCorrect and not MyDataBaseDataSet.table.EOF do begin
  if (MyDataBaseDataSet.table.FieldByName('email').asString = Textbox1.text) and
    (MyDataBaseDataSet.table.FieldByName('password').asString = Textbox2.text)
  then
    IsCorrect := true
  else
    MyDataBaseDataSet.table.Next;
end;
 
if not IsCorrect then <ошибка>
else  <считываем роли> 
end;

@Ильнарр · 06.02.2017, 23:24 **[ТС]**

Кто нибудь на VB Знает как это реализовать?

Добавлено через 7 часов 22 минуты

VB.NET

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "" And TextBox2.Text = "" Then MsgBox("Введите данные") Else 
        For Each DGVR As DataGridViewRow In UserDataGridView.Rows
            If TextBox1.Text = DGVR.Cells(0).Value And TextBox2.Text = DGVR.Cells(1).Value And DGVR.Cells(2).Value = ("R") Then Form7.Show() Else 
            If TextBox1.Text = DGVR.Cells(0).Value And TextBox2.Text = DGVR.Cells(1).Value And DGVR.Cells(2).Value = ("A") Then Form9.Show() Else 
            If TextBox1.Text = DGVR.Cells(0).Value And TextBox2.Text = DGVR.Cells(1).Value And DGVR.Cells(2).Value = ("C") Then Form8.Show() Else 
            Exit For
        Next
    End Sub

Помогите переделать правильно. Я синтаксис языка не знаю почти что

@Ильнарр 2 / 2 / 0 Регистрация: 06.04.2015 Сообщений: 91
		1
	Sql server и VS visual basic. Авторизация 05.02.2017, 13:03. Показов 1221. Ответов 4 Метки нет (Все метки) Есть 3 формы. 1 форма - форма авторизации. (на форме расположены Text.box1 и Text.box2 соответственно логин и пароль и кнопка "авторизоваться") 2 форма - форма, после авторизации туда переходит участник 3 форма - форма, после авторизации переходит туда администратор Есть база данных, в которой данные для авторизации. Это таблица Users (Email, password, (role - это список ролей, в моем случае администратор(1) и пользователь(2))). Помогите реализовать авторизацию с кодом типа If Textbox1.text = MyDataBaseDataSet.table.email.(содержимое поля почты) and Textbox2.text = MyDataBaseDataSet.table.password.*** then ... else MsgBox("Ошибка") не знаю как данные сравнить Email, password а потом тип роли определить 0

@UBUNTU 285 / 213 / 42 Регистрация: 04.02.2015 Сообщений: 1,343
	05.02.2017, 15:13	2
	Подскажите строку ADODB для подключения к SQL Server с доверенным соединением 0

@Ильнарр 2 / 2 / 0 Регистрация: 06.04.2015 Сообщений: 91
	05.02.2017, 20:51 [ТС]	3
	Помогите реализовать авторизацию с кодом типа If Textbox1.text = MyDataBaseDataSet.table.email.(содержимое поля почты) and Textbox2.text = MyDataBaseDataSet.table.password.*** then 0

	06.02.2017, 23:24