Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не выполняется запрос с параметром / 6 сообщений из 6, страница 1 из 1
05.04.2005, 16:51:31
    #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
05.04.2005, 16:57:52
    #32998666
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не выполняется запрос с параметром
дык у вас 1 в кавычках а "а" - нет
...
Рейтинг: 0 / 0
05.04.2005, 16:58:25
    #32998669
Va1entin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не выполняется запрос с параметром
Я так понимаю, что подставляется
Код: plaintext
a =  1 
Попробуйте для начала сконвертировать параметр в численное значение.
Код: plaintext
a=CStr(Text1.Text)


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

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


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