ComboBox -> таблица(ы)

[MaNser]

Добрый вечер. Возникли трудности со следующим, при выборе значения в ComboBox сформировать запрос отображения в DBGrid. Т. е. при выборе значения из комбобох в грид должна загружатся БД, которая будет привязана только етому значению комбобох`а. Соответственно при смене значения комбобох`а менялась и БД в гриде. Возможно ли ето? Есть ли альтернативы? Буду рад любой помощи :-)

[vovk]

Если я понял правильно, то подразумевалось, что при выборе какойто позиции в combobox из неизвестной БД в неизвестный датасет должен быть загружен набор данных из неизвестной таблицы.
Нужно знать что за БД, и какие компонентны используем.

Пока вижу както так
ComboBox заполняем именами таблиц (в цикле, или просто запрашиваем их список и передаём в ComboBox, зависит от БД и компонентов),
меняем стиль

ComboBox.Style:=csDropDownList;

при выборе значения (событие onSelect) запрашиваем данные

Qry.close;
Qry.SQL.Text:='SELECT * FROM '+ComboBox.text;
Qry.open;

[MaNser]

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

Если я понял правильно, то подразумевалось, что при выборе какойто позиции в combobox из неизвестной БД в неизвестный датасет должен быть загружен набор данных из неизвестной таблицы.
Нужно знать что за БД, и какие компонентны используем.

Пока вижу както так
ComboBox заполняем именами таблиц (в цикле, или просто запрашиваем их список и передаём в ComboBox, зависит от БД и компонентов),
меняем стиль

ComboBox.Style:=csDropDownList;

при выборе значения (событие onSelect) запрашиваем данные

Qry.close;
Qry.SQL.Text:='SELECT * FROM '+ComboBox.text;
Qry.open;

БД "Paradox 7", компоненты Query, DataSource.

[vovk]

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

Извините сейчас с примерами ответить немогу, если пример нужен будет то сделаю, но только в понедельник не раньше..

[MaNser]

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

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

Извините сейчас с примерами ответить немогу, если пример нужен будет то сделаю, но только в понедельник не раньше..

Все таблицы будут находится в 1ой папке. Было бы интересно взглянуть на пример реализации.

[vovk]

Вчера не смог, да и чтото подумал ведь у BDE ест компонент Tdatabase
и сделать можно так

with TDatabase.Create(Self) do
begin
 try
  DatabaseName:=ExtractFilePath(paramstr(0));
  GetTableNames(ComboBox1.Items);
 finally
   Free;
 end;
end;

а если поиском то так

Procedure get_table_paradox(path_:string;list_:TStrings);
 var
 F: TSearchRec;
 i:integer;
 begin
 i := FindFirst(path_+'*.db',faAnyFile, F);
 while i=0 do
    begin
     list_.Add(f.name);
     i := FindNext(F);
    end;
  FindClose(F);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
get_table_paradox(ExtractFilePath(paramstr(0)),combobox1.items);
end;

[MaNser]

Ненужен выбор всех таблиц из папки.. нужен только определенный набор бд... Етот комбобох тоже зависим просто.. Как-то условием наверно..