Цикл в БД ADOQuery

[doniyor]

Hi всем!
У меня вопрос про цикл в базах данных. Картина такая: Есть папки, в которых находятся файлы баз данных *.mdb
Есть форма, которая отображает данные по запросу пользователя (DBGrid1она отображает данные при OnChange ComboBox1)
Т.е. В ComboBox находятся все названия папок и на OnChange ComboBox'a я поставил условие смены файла данных *.mdb
Задача - организовать поиск искомого имени по всем файлам *.mdb, находящимся в папках.
Поиск в рамках одной базы я организую вот так:

ClientsADOQuery1.Active:=false;
ClientsADOQuery1.SQL.Clear;
ClientsADOQuery1.SQL.Add('Select *');
ClientsADOQuery1.SQL.Add('From clients');
ClientsADOQuery1.SQL.Add('where Name like'''+Form9.Edit1.Text+'''');
Form1.DBGrid1.DataSource:=module1.FindDataSource;
ClientsADOQuery1.Active:=true;

Я думаю, здесь имеет место написать цикл в следующем порядке:
1. Перечислять все папки из ComboBox'a
2. При каждом названии папки переключать ConnectionString ADOQuery1 на название папки из ComboBox'a
3. Выполнять SQL-запрос
4. Показывать найденные соответствующие записи независимо из какой базы *.mdb

Вопрос- как этот цикл организовать машинным языком?

P.S Исходника нет потому что - во-первых весит много, во вторых это почти законченный проект. необессуйте

[SlavaSH]

Сообщение от doniyor

Hi всем!
У меня вопрос про цикл в базах данных. Картина такая: Есть папки, в которых находятся файлы баз данных *.mdb
Есть форма, которая отображает данные по запросу пользователя (DBGrid1она отображает данные при OnChange ComboBox1)
Т.е. В ComboBox находятся все названия папок и на OnChange ComboBox'a я поставил условие смены файла данных *.mdb
Задача - организовать поиск искомого имени по всем файлам *.mdb, находящимся в папках.
Поиск в рамках одной базы я организую вот так:

ClientsADOQuery1.Active:=false;
ClientsADOQuery1.SQL.Clear;
ClientsADOQuery1.SQL.Add('Select *');
ClientsADOQuery1.SQL.Add('From clients');
ClientsADOQuery1.SQL.Add('where Name like'''+Form9.Edit1.Text+'''');
Form1.DBGrid1.DataSource:=module1.FindDataSource;
ClientsADOQuery1.Active:=true;

Я думаю, здесь имеет место написать цикл в следующем порядке:
1. Перечислять все папки из ComboBox'a
2. При каждом названии папки переключать ConnectionString ADOQuery1 на название папки из ComboBox'a
3. Выполнять SQL-запрос
4. Показывать найденные соответствующие записи независимо из какой базы *.mdb

Вопрос- как этот цикл организовать машинным языком?

P.S Исходника нет потому что - во-первых весит много, во вторых это почти законченный проект. необессуйте

ну так а в чём проблема? что не получается сделать?

приведите свою строку соединения с базой данных

[Wicort]

проблема у него в том, чтобы это:

1. Перечислять все папки из ComboBox'a
2. При каждом названии папки переключать ConnectionString ADOQuery1 на название папки из ComboBox'a
3. Выполнять SQL-запрос
4. Показывать найденные соответствующие записи независимо из какой базы *.mdb

запрограммировать )

[SlavaSH]

Сообщение от Wicort

проблема у него в том, чтобы это:
запрограммировать )

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

[doniyor]

ну так а в чём проблема? что не получается сделать?

Не получается организовать это всё на языке Дельфи. А именно -
а) Как начать цикл? так? -

for i:=0 to ADOTable.records.count

или не так?

b) Как поочерёдно переключать в ADOConnection (ConnectionString) все папки? (я имею ввиду в цикле,так, чтобы одна папка больше одного раза не повторялась)

ЗЫ Попробую выложить исходник проблемы позже...

ВСЕМ СПАСИБО!

[vovk]

У вас в этом комбобоксе содержатся пути к файлам? если нет то не очень понимаю его назначение...
В любом случае для начало полезно иметь список всех файлов, к которым возможно придётся подключатся. Это очень облегчит выбор дальнейших действий.
Открытие файлов в процессе поиска, мне кажется полезно только в 1 случае, если с файлами может в это время ещё чтото происходить. То есть ктото их будет перемещать или удалять. И то спорно..
В общем сначала запишите все имена файлов и полный путь к ним, в какойнибудь TStringList а с ним потом и работайте.
Алгоритмов поиска На форуме достаточно...

[doniyor]

ЛЮДИ!!!
Вот выставляю на ваше внимание исходник аналогичной программы. Надеюсь на ваше понимание.
А вопрос всё ещё то же -
КАК ПРОИЗВОДИТЬ ПОИСК ИСКОМОГО ЗНАЧЕНИЯ ПО ВСЕМ БАЗАМ, ИМЕНА КОТОРЫХ ИЗВЕСТНЫ В TSTRINGLIST

[Serge_Bliznykov]

1) неясно, в каком именно поле Вы хотите искать?!
искать полное совпадение, или частичное?

просто в ОДНОЙ ОТКРЫТОЙ БД искать получается?

Если это не проблема, то тогда в цикле перебираете всё базы и ищете ПОСЛЕДОВАТЕЛЬНО в каждой отдельной БД. проще всего результаты показывать также последовательно:
имя БД, где нашли и записи, которые подходят
кнопочку ДАЛЬШЕ - ищем следующую БД и записи, которые подходят и так до последней БД.


P.S. я бы для поиска по определённому полю предложил что-то вроде:
SELECT * FROM CLIENTS WHERE SURNAME LIKE '*Ко*';