Как результат запроса записать в переменную?

@Aeterna_Tenebra · Регистрация: 10.04.2020

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

Visual Basic Как результат запроса записать в переменную?

В программе есть база c таблицей Учетные_записи в ней поля ИД, ФИО, Логин, Пароль, Права.
Когда человек авторизуется, в Переменную FIO должно вписаться его значение ФИО из таблицы.

Помогите с этим пожалуйста, довольно долго ломал голову.

Uswer · 21.05.2022, 14:51

Код то покажи, тут телепатов мало.

@Aeterna_Tenebra · 21.05.2022, 15:18 **[ТС]**

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        BD()
        Dim str As String = "SELECT Логин, Пароль FROM Учетные_записи WHERE Логин='" & TextBox1.Text & "' AND Пароль='" & TextBox2.Text & "'"
        Dim c As New OleDbCommand(str, conn)
        Dim DataReader As OleDbDataReader = c.ExecuteReader()
        If DataReader.Read() = True Then
            Dim UWU As String = "SELECT Логин, Пароль FROM Учетные_записи WHERE Логин='" & TextBox1.Text & "' AND Пароль='" & TextBox2.Text & "' AND Права='Администратор'"
            Dim KARO As New OleDbCommand(UWU, conn)
            Dim MUSCAT As OleDbDataReader = KARO.ExecuteReader()
            If MUSCAT.Read() = True Then
                Avtoriz = 2
            Else
                Avtoriz = 1
            End If
            LOGIN = TextBox1.Text
            Dim KEKS As String = "SELECT Учетные_записи.ФИО FROM Учетные_записи WHERE (((Учетные_записи.Логин)=" & TextBox1.Text & "));"
            Form1.Show()
            Form1.ФИОToolStripMenuItem.Text = FIO
            Me.Close()
        Else
            TextBox1.Text = ""
            TextBox2.Text = ""
        End If
 
    End Sub

Добавлено через 22 минуты
Uswer, Как-то так, извиняюсь за захламлённость, давно не работал с VB и БД, а тут резко тема для диплома выпала, в ускоренном формате строчу

@Kulma · 22.05.2022, 06:41

Сообщение от Aeterna_Tenebra

Когда человек авторизуется, в Переменную FIO должно вписаться его значение ФИО из таблицы.

Ну и в каком месте вашего кода , начиная со строки 16 , это происходит ?
Запрос на выборку ФИО есть , выполнения его нет ))

Сообщение от Aeterna_Tenebra

VB.NET
1
2
3
4
5
Dim KEKS As String = "SELECT Учетные_записи.ФИО FROM Учетные_записи WHERE (((Учетные_записи.Логин)=" & TextBox1.Text & "));"
            Form1.Show()
            Form1.ФИОToolStripMenuItem.Text = FIO
            Me.Close()
        Else

И второе. Зачем вы накрутили сорок бочек арестантов в виде скобок в выражении WHERE ,
да ещё и расставили их не правильно.
Вполне себе рабочая достаточная конструкция выглядит так :

VB.NET
1
2
3
"SELECT Учетные_записи.ФИО 
FROM Учетные_записи 
WHERE  Учетные_записи.Логин ='" & TextBox1.Text & "'"

Uswer · 22.05.2022, 11:05

Таблица используется одна, поэтому всё можно сделать одним запросом

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        BD()
        Dim str As String = "SELECT Логин, Пароль, ФИО, Права FROM Учетные_записи WHERE Логин='" & TextBox1.Text & "' AND Пароль='" & TextBox2.Text & "'"
        Dim c As New OleDbCommand(str, conn)
        Dim DataReader As OleDbDataReader = c.ExecuteReader()
        If DataReader.Read() = True Then
            If DataReader.GetString(3) = "Администратор" Then
                Avtoriz = 2
            Else
                Avtoriz = 1
            End If
            LOGIN = TextBox1.Text
            Form1.ФИОToolStripMenuItem.Text = DataReader.GetString(2)
            Form1.Show()
            Me.Close()
        Else
            TextBox1.Text = ""
            TextBox2.Text = ""
        End If
 
    End Sub

@Kulma · 22.05.2022, 11:44

Uswer, не совсем то , что нужно, хотя оптимизирован код ТС.
Вопрос звучал

Сообщение от Aeterna_Tenebra

Когда человек авторизуется, в Переменную FIO должно вписаться его значение ФИО из таблицы.

А тут как раз сплошные траблы , начиная со строки 16.
Вернее траблы в запросе и отсутствие его выполнения.

@Aeterna_Tenebra · 22.05.2022, 14:24 **[ТС]**

Всем спасибо, разобрался, всё исправил всё работает, правда теперь другая проблема Выдает ошибку "Необработанное исключение типа "System.InvalidOperationException" в Oktogram.exe"

Uswer · 22.05.2022, 16:41

Kulma, если учётных данных в БД нет, то мы не попадём в блок If DataReader.Read() = True. Поэтому Ваше замечание не принимается.

@Kulma · 22.05.2022, 17:18

Сообщение от Uswer

если учётных данных в БД нет, то мы не попадём в блок If DataReader.Read() = True.

Какая связь с тем, что я написал постом выше ?
Перечитайте вопрос ТС в первом посту и мой ответ ))
Понятно, что если ридер не возвращает записей, то ничего и не произойдёт. Но речь то изначально была не об этом ))

Добавлено через 6 минут

Сообщение от Aeterna_Tenebra

правда теперь другая проблема Выдает ошибку "Необработанное исключение типа "System.InvalidOperationException" в Oktogram.exe"

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

Uswer · 23.05.2022, 09:31

Сообщение от Kulma

Но речь то изначально была не об этом

Абсолютно незачем обращать внимание на исходный код тогда, когда в теме появился изменённый вариант. Я дал улучшенный вариант кода, в котором поставленный вопрос решается и все комментарии веду именно по новой редакции кода.

Пы.Сы. Все заметили, что Вы обнаружили ошибку ТСа и даже плюсанули Вам, незачем поднимать панику

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Aeterna_Tenebra 0 / 0 / 0 Регистрация: 10.04.2020 Сообщений: 4

	Как результат запроса записать в переменную? 21.05.2022, 13:46. Показов 779. Ответов 9 Метки нет (Все метки) Visual Basic Как результат запроса записать в переменную? В программе есть база c таблицей Учетные_записи в ней поля ИД, ФИО, Логин, Пароль, Права. Когда человек авторизуется, в Переменную FIO должно вписаться его значение ФИО из таблицы. Помогите с этим пожалуйста, довольно долго ломал голову. 0

Uswer 2287 / 1603 / 400 Регистрация: 26.06.2017 Сообщений: 4,748 Записей в блоге: 1
	21.05.2022, 14:51
	Код то покажи, тут телепатов мало. 0

@Aeterna_Tenebra 0 / 0 / 0 Регистрация: 10.04.2020 Сообщений: 4
	22.05.2022, 14:24 [ТС]
	Всем спасибо, разобрался, всё исправил всё работает, правда теперь другая проблема Выдает ошибку "Необработанное исключение типа "System.InvalidOperationException" в Oktogram.exe" 0

Uswer 2287 / 1603 / 400 Регистрация: 26.06.2017 Сообщений: 4,748 Записей в блоге: 1
	22.05.2022, 16:41
	Kulma, если учётных данных в БД нет, то мы не попадём в блок `If DataReader.Read() = True`. Поэтому Ваше замечание не принимается. 0