Как программно открыть БД Acces через делфи

[pirat2k]

я хочу чтобы из комбобокса название таблицы передавались в adotable.tablename А как это сделать я не знаю. Вот код:
if OpenDialog1.Execute then
With AdoConnection1 do
begin
Connected :=false;//закрываем сущ. соединение
ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0 ;'+
'Data Source=' +OpenDialog1.FileName+
';Persist Security Info=false'; //формируем новую строку подключения
Connected :=true;
end;
ADOConnection1.GetTableNames(ComboB ox1.Items,false);

[pirat2k]

проблема разрешилась

procedure TForm1.Button1Click(Sender: TObject);
var
i:OleVariant;
begin
if OpenDialog1.Execute then
With AdoConnection1 do
begin
Connected :=false;//закрываем сущ. соединение
ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0 ;'+
'Data Source=' +OpenDialog1.FileName+
';Persist Security Info=false'; //формируем новую строку подключения
Connected :=true;
end;
ADOConnection1.GetTableNames(ComboB ox1.Items,false);
ADOTable1.TableName:=ComboBox1.Item s[i];;



AdoTable1.Active :=true; // отображаем таблицу

[pirat2k]

теперь когда более 2 таблиц отображается только 1, помогите как быть?

[phomm]

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

  ADOTable1.TableName:=ComboBox1.Items[i];;

Это что за ерунда ? Мало того что 2 т/з, так ещё и индекс по I: olevariant идёт.

Тем более если предполагается смена отображаемых таблиц, то надо выносить код выбора таблицы отдельно.
Примерно так: дать комбобоксу событие смены ( а ещё лучше сделать кнопку типа "открыть таблицу", которую пользователь жмет после выбора из списка) и в обработчике написать

procedure TForm1.BopenClick(Sender: TObject);
begin
  ADOTable1.Active := False;
  if combobox1.Text = '' then
    exit;
  ADOTable1.TableName := combobox1.Text;
  ADOTable1.Active := True;
end;

Комбобокс лучше сразу сделать со style = csDropdownList чтобы не позволять вписывать имя таблицы, а выбирать.
На будущее - оформляйте код по правилам - при редактировании кнопочка # или тег Code

[pirat2k]

спасибо помогло

[TreyTanya]

Помогите пожалуйста у меня вообще не выводит список таблиц

[TreyTanya]

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

Это что за ерунда ? Мало того что 2 т/з, так ещё и индекс по I: olevariant идёт.

Тем более если предполагается смена отображаемых таблиц, то надо выносить код выбора таблицы отдельно.
Примерно так: дать комбобоксу событие смены ( а ещё лучше сделать кнопку типа "открыть таблицу", которую пользователь жмет после выбора из списка) и в обработчике написать

procedure TForm1.BopenClick(Sender: TObject);
begin
  ADOTable1.Active := False;
  if combobox1.Text = '' then
    exit;
  ADOTable1.TableName := combobox1.Text;
  ADOTable1.Active := True;
end;

Комбобокс лучше сразу сделать со style = csDropdownList чтобы не позволять вписывать имя таблицы, а выбирать.
На будущее - оформляйте код по правилам - при редактировании кнопочка # или тег Code

Помогите пожалуйста у меня вообще не выводит список таблиц

[Serge_Bliznykov]

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

Помогите пожалуйста у меня вообще не выводит список таблиц

исходники проекта выложите (запакуйте в архив, архив прикрепите к сообщению на форуме (см. Управление вложениями).