powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нестрогий запрос в коде VBA Excel (ADO), как сделать?
3 сообщений из 3, страница 1 из 1
Нестрогий запрос в коде VBA Excel (ADO), как сделать?
    #35914758
Michael5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Помогите сделать нестрогий запрос к базе в коде макроса под Эксель!
Я так понимаю, sql экселя - ограниченный в своих возможностях, не могу сделать элементарной вещи, которая обычно работает... Где я ошибаюсь, подскажите пожалуйста!

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset

    cnn.Open "Driver={Microsoft Access Driver};Data Source=PRICE2009;User Id='';Password='';"

    queryЦена = "SELECT ITEMNUMBER, NAME, PRICE1 FROM PRICE WHERE ITEMNUMBER LIKE " & Chr( 39 ) & "TEL*" & Chr( 39 )

rst.Open queryЦена, cnn
rst.MoveFirst 'ошибка - rst возвращается пустой...

Оператор LIKE не работает...
ITEMNUMBER ='TEL*' не работает...
ITEMNUMBER >'TEL*' работает, но это не то по смыслу...
...
Рейтинг: 0 / 0
Нестрогий запрос в коде VBA Excel (ADO), как сделать?
    #35915100
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Учебники читать полезно.

LIKE 'TEL*' - неверно. Должно быть LIKE 'TEL%'
...
Рейтинг: 0 / 0
Нестрогий запрос в коде VBA Excel (ADO), как сделать?
    #35915126
Michael5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
White Owl,
спасибо огромное!
Дурак я, дурак... только вы выручаете...
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нестрогий запрос в коде VBA Excel (ADO), как сделать?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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