VB и поиск. ПОМОГИТЕ

[warus]

Елки-палки помогите. Никак не могу решить проблему: как мне осуществить поиск по определенным параметрам и вывести результат не в text например, а в DataGrid, MSHFlexGrid, т.е. не только показать то поле в столбце (в ACCESS), которое нужно было найти, а всю СТРОКУ для данного поля.

[Igor_123]

Код: Выделить всё

select [b]*[/b] from "Имя таблицы" where "условие фильтрации"

или по полям

Код: Выделить всё

select "имя таблицы.имя поля1",  "имя таблицы.имя поля2", ... "имя таблицы.имя поляN" from "Имя таблицы" where "условие фильтрации"

Вернет все строки, которые удовлетворяют условию.

[warus]

А как вывести результат в MSHFlexrid?

[Андрей Васюта]

А ты случаем не справочник телефоный делаеш ? а то у меня похожие вопросы возникали. Мне посоветовали для поиска и фильтрации использовать Рекордсет. Вот только как его юзать я так нигде и не нашел.

[Sirik]

Использование Рекордсета:

Достим есть Таблица1 с полями: Поле1, Поле2, Поле3, Поле4

Добавляем ссылку на библиотеку:
Проект->Ссылки...->Microsoft DAO 3.6 Object Library

Объявлем переменные:

Код: Выделить всё

    Dim DB As DAO.Database, RS As DAO.Recordset
Dim sqlk as String

Код:

Код: Выделить всё

    Set DB = DAO.OpenDatabase("Путь и имя баззы данных")
    sqlk = "SELECT * FROM [Таблица1] WHERE [Поле1] = Привет ;"
    Set RS = DB.OpenRecordset(sqlk)
    Do Until RS.EOF
            MsgBox  RS.Fields("Поле2")) & RS.Fields("Поле3")) & RS.Fields("Поле4"))
        RS.MoveNext
    Loop
    Set RS = Nothing