Запрос в БД access из листа Excel

[Elliniel]

Добрый день.

Я новичок в Access и VBA подскажите, пожалуйста. Есть база данных, в ней два столбца "Адрес" и "Наименование", так же есть екселевский документ с поддержкой макросов. В этот документ я добавил выпадающий список (combobox), смысл такой, что пользователь начинает вбивать текст в этот combobox и через select происходит выборка по вхождению слов из БД из столбца "Наименование", далее пользователь выбирает необходимое ему значение и нажимает enter, после этого должно подставиться значение из поля "Адрес" равное выбранному ему значению "Наименование" в ячейку экселевского документа. Коннект к БД я реализовал, но select'ом не могу разобраться, как его корректно реализовать т.к. он возвращает ошибки или вообще ничего не возвращает.

Запрос я делаю вот так:

Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Set rst = con.Execute("SELECT of_name FROM post_db where of_name like '" & Лист1.ComboBox1.Value & "'")

[Teslenko_EA]

Здравствуйте Elliniel.
в Вашем сообщении речь о нескольких задачах которые для решения необходимо разделить
например так:
1. подключение к БД (коннект)
насколько можно понять из текстам выполняться конструкция будет в Excel, значит библиотека ADO к проекту подключена
"..Коннект к БД я реализовал.." - не указано как именно он реализован
в выложенном коде он только объявлен, но не открыт, откройте его например так:

Dim con As New ADODB.Connection
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DB.mdb;Persist Security Info=False"
' строка подключения к БД А2003, для А2007 измените OLEDB.12.0
If Not con.State = 1 Then Exit Sub 'не открыт

2. получение списка
для этого и используется обращение к рекордсету, но возвращаемый SQL конструкцией
набор записей, стоит ограничить например до 20 и только потом перебором заполнять ComboBox

Const sQ = "SELECT TOP 20 of_name FROM post_db where of_name like '" 
Dim s As String
s = Лист1.ComboBox1.Text + "%' Order By of_name"
Dim rst As New ADODB.Recordset
Set rst = con.Execute(sQ + s)
Лист1.ComboBox1.Clear
Do Until rst.Eof
    Лист1.ComboBox1.AddItem rst(0)
    rst.MoveNext
Loop

3. выбор в списке
для решения этой задачи достаточно

Const sQ = "SELECT TOP 1 of_Адрес FROM post_db where of_name ='" 
Dim s As String
s = Лист1.ComboBox1.Text + "'"
If Not con.Execute(sQ + s).Eof Then 
    s = con.Execute(sQ + s).Fields(0)
    Cells(1, 1) = s
End If

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

Успехов Вам.
Евгений.
P.S. "..Есть база данных, в ней два столбца.." - в отношении таблиц БД термин "столбец" мало приемлем
больше подойдёт - "поле", "атрибут", ...

[Elliniel]

Спасибо большое!