ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Ошибка run-time error 3021
11 сообщений из 11, страница 1 из 1
Ошибка run-time error 3021
    #39191757
Ежик_из_тумана
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ежик_из_тумана
Гость
Здравствуйте.

Пытаюсь сделать проверку логина и пароля в Access через VBA с использованием запросов.
Нужно чтобы выводило по логину и паролю получало id.

По нажатию на кнопку авторизации должна происходить проверка. Если логин и пароль есть в таблице Пользователи, то авторизация проходит успешно, но если логин или пароль с ошибкой, то при выполнении SQL запроса через VBA выскакивает ошибка "Run-time error 3021, Текущая запись отсутствует".

Пытался бороться с ней проверяя значение rst!result_2, но возникает тогда другая ошибка - Run-time error '424', Object required

Помогите пожалуйста разобраться.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Dim rst As DAO.Recordset
Dim log As String
Dim pass As String

        log = Me.username
        pass = Me.password
        
        Set rst = CurrentDb.OpenRecordset("SELECT Пользователи.id AS result_2 FROM Пользователи WHERE Пользователи.Логин = '" & log & "' AND Пользователи.Пароль='" & pass & "';")
        'выше возникает ошибка 3021, а ниже проверка и если она присутствует, то выдает ошибку 
            If (rst!result_2 Is EOL) Then
                t_ans = 0
                MsgBox "Ошибка авторизации"
            Else
                t_ans = rst!result_2
            End If
            
            rst.Close
        Set rst = Nothing
...
Рейтинг: 0 / 0
14.03.2016, 20:20
| Ответить | Цитировать | Написать  
Ошибка run-time error 3021
    #39191763
\\\\
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
\\\\
Гость
Ежик_из_тумана, а это чего?
Код: vbnet
1.
            If (rst!result_2 Is EOL) Then
...
Рейтинг: 0 / 0
14.03.2016, 20:35
| Ответить | Цитировать | Написать  
Ошибка run-time error 3021
    #39191776
Ежик_из_тумана
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ежик_из_тумана
Гость
А это я бессилия экспериментировал и забыл вернуть. Просто не первый день пытаюсь решить в чём проблема, а опыта нету. Там у меня должно быть If rst!result_2 Is Empty - таким образом с помощью условного оператора я пытаюсь проверить выводит ли он id или пуст.
В любом случае хоть там Is Null, хоть Is Empty, хоть Is Empty стоит - всегда возникает ошибка 424.
Если проверки этой нет то выполнение этого кода останавливается на строчке с SQL запросом:
Код: vbnet
1.
Set rst = CurrentDb.OpenRecordset("SELECT Пользователи.id AS result_2 FROM Пользователи WHERE Пользователи.Логин = '" & log & "' AND Пользователи.Пароль='" & pass & "';")

и выдает ошибку 3021.
...
Рейтинг: 0 / 0
14.03.2016, 21:10
| Ответить | Цитировать | Написать  
Ошибка run-time error 3021
    #39191788
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
Код: vbnet
1.
If rst.EOF Then
...
Рейтинг: 0 / 0
14.03.2016, 21:35
| Ответить | Цитировать | Написать  
Ошибка run-time error 3021
    #39191872
Ежик_из_тумана
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ежик_из_тумана
Гость
mds_world,

Огромное спасибо !
Оно работает!
...
Рейтинг: 0 / 0
15.03.2016, 04:13
| Ответить | Цитировать | Написать  
Ошибка run-time error 3021
    #39191873
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
Или
Код: vbnet
1.
If rst.Recordcount=0 then
...
Рейтинг: 0 / 0
15.03.2016, 06:05
| Ответить | Цитировать | Написать  
Ошибка run-time error 3021
    #39191879
\\\\
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
\\\\
Гость
MrShin, при некоторых условиях будет неверный результат, поэтому лучше проверять EOF/BOF.
...
Рейтинг: 0 / 0
15.03.2016, 06:21
| Ответить | Цитировать | Написать  
Ошибка run-time error 3021
    #39191881
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
Сразу после создания рекордсета? Можно поподробнее, что там может возникнуть?
Всю жизнь этим пользуюсь, никогда проблем не было.
Если рекордсетом уже пользовались, то да, полагаться на это нельзя
...
Рейтинг: 0 / 0
15.03.2016, 06:44
| Ответить | Цитировать | Написать  
Ошибка run-time error 3021
    #39191893
\\\\
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
\\\\
Гость
MrShinСразу после создания рекордсета? Можно поподробнее, что там может возникнуть?
Код: vbnet
1.
2.
3.
4.
5.
    With CurrentProject.Connection.Execute("ЗапросИлиТаблица")'получаем набор только для чтения и только вперёд
        Debug.Print .RecordCount
        .Close
    End With
'выведет -1


Обсуждалось неоднократно на форуме.
MrShin Если рекордсетом уже пользовались , то да, полагаться на это нельзя а вот это почему?
...
Рейтинг: 0 / 0
15.03.2016, 08:12
| Ответить | Цитировать | Написать  
Ошибка run-time error 3021
    #39191925
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
\\\\,
У ADO свои заморочки, есть такое - в некоторых случаях типа этого счетчик не определен, пока не попросили первую строку. В DAO, которым пользуется автор, такого нет:
Код: vbnet
1.
2.
3.
4.
With CurrentDb.OpenRecordset("Table1")
    Debug.Print .RecordCount
    .Close
End With


дает >=1 для не пустых запросов

\\\\а вот это почему?
Пока писал, какая-то проблема крутилась в голове, сейчас не смог вспомнить ничего, что обнуляло бы Recordcount. Так что и дальше можно пользоваться
...
Рейтинг: 0 / 0
15.03.2016, 09:36
| Ответить | Цитировать | Написать  
Ошибка run-time error 3021
    #39191962
\\\\
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
\\\\
Гость
MrShin,\\\\ (у Recordcount) при некоторых условиях будет неверный результат , поэтому лучше проверять EOF/BOF.MrShinУ ADO свои заморочкиА свойства EOF/BOF у наборов данных DAO и ADO выдают одинаковые результаты.
...
Рейтинг: 0 / 0
15.03.2016, 10:37
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Ошибка run-time error 3021
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39191873&tid=1613819]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 39ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 337ms
total:  463ms
созд. / загр.: 463ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]