powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не выполняется запрос с параметром
6 сообщений из 6, страница 1 из 1
Не выполняется запрос с параметром
    #32998642
Piter_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте уважаемые!
Помогите выполнить запрос. Есть база на Аксесе.
Подключился к ней из Бейсика, а на запросе пишет ошибку - Остсутсвие одного или нескольких параметров.
Если вместо а подставить например 1, то все выполняется.

Dim a As Integer
'a = Val(Text1.Text)
a = Text1.Text
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\AiS_3\TD_3_98.mdb;Persist Security Info=False"
'Adodc1.RecordSource = "Select IDSpisokOtgruzki, IDToplivo from SpisokOtgruzli Where IDOtgruzki='" & 1 & "'"

Adodc1.RecordSource = "Select IDSpisokOtgruzki, IDToplivo from SpisokOtgruzli Where IDOtgruzki=" & "a"

Adodc1.Refresh
...
Рейтинг: 0 / 0
Не выполняется запрос с параметром
    #32998666
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
дык у вас 1 в кавычках а "а" - нет
...
Рейтинг: 0 / 0
Не выполняется запрос с параметром
    #32998669
Фотография Va1entin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я так понимаю, что подставляется
Код: plaintext
a =  1 
Попробуйте для начала сконвертировать параметр в численное значение.
Код: plaintext
a=CStr(Text1.Text)


Posted via ActualForum NNTP Server 1.1
...
Рейтинг: 0 / 0
Не выполняется запрос с параметром
    #32998693
Piter_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
a = CStr(Text1.Text) попробовал, тоже...

Если написать
Adodc1.RecordSource = "Select IDSpisokOtgruzki, IDToplivo from SpisokOtgruzli Where IDOtgruzki=" & "1"
то все хокей...
...
Рейтинг: 0 / 0
Не выполняется запрос с параметром
    #32998772
Фотография Va1entin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А так?
Код: plaintext
1.
Adodc1.RecordSource = "Select IDSpisokOtgruzki, IDToplivo from 
SpisokOtgruzli Where IDOtgruzki=" + CStr(a)
...
Рейтинг: 0 / 0
Не выполняется запрос с параметром
    #32998830
Piter_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо, + CStr(a) сработало!
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не выполняется запрос с параметром
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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