Список таблиц выбранной базы занести в ComboBox.

[hk47]

Как получить теперь список таблиц из выбранной базы?
Я не могу поместить в строку соединения выбранную их ComboBox базу данных. Выдает ошибку: Недопустимый аргумент строки соединения.
я писал вот так

ADOConnection1.ConnectionString := 'Initial Catalogue=' + ComboBox1.Text;
AdoConnection1.GetTableNames(ComboB ox2,True);

ComboBox1 содержит имена баз данных и из него я их выбираю.

А ComboBox2 должен в итоге содержать имена таблиц. Потом имя я выбираю и табличка отражантся в табличном элементе, например DBGrid.

[Stilet]

ADOConnection.GetTableNames
Подробности в хелпе (там же и пример есть)

[hk47]

Stilet.
В том то и беда, что я не нашел ни в хелпе ни в сети сообщения о такой ошибке.
Такой способ, который я описал работает, но только если база предварительно выбрана из Combobox1, то есть выводит список таблиц в компонент ComboBox2.
Я думал, что может кто сталкивалася с такой проблемой и решил ее. А я пока не пойму как это сделать.

[Dark_Spirit]

Я не могу поместить в строку соединения выбранную их ComboBox базу данных. Выдает ошибку: Недопустимый аргумент строки соединения.
я писал вот так

ADOConnection1.ConnectionString := 'Initial Catalogue=' + ComboBox1.Text;

вообще-то, ты как раз и помещаеш, а ошибка у тебя из-за того что ты не правильно это делаешь.
Допустиму тебя была строка соединения:

 adoconnection1.connectionstring:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=sqlexpress';

после того как выполнится твоя строка:

ADOConnection1.ConnectionString := 'Initial Catalogue=' + ComboBox1.Text;

у тебя connectionstring будет равна: Initial Catalogue='бла-бла-бла';
то есть без указания провайдера и всего остального. сделать нужно так:

ADOConnection1.ConnectionString := adoconnection1.connectionstring+';Initial Catalogue=' + ComboBox1.Text;

вот тут тож ошибка

AdoConnection1.GetTableNames(ComboB ox2,True);

нужно писать

AdoConnection1.GetTableNames(ComboBox2.items,True);

[Dark_Spirit]

получаем список баз сервера и загоняем их в combobox1

procedure TForm1.FormShow(Sender: TObject);
 var adodataset1:TAdodataset;
begin
 adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=bazsave\sqlwork';
 adoconnection1.LoginPrompt:=false;
 adoconnection1.Connected:=true;
 if not(adoconnection1.Connected)
   then
    begin
     messagedlg('Нет соединения', mtError, [mbOk], 0);
     halt;
    end;
 adodataset1:=Tadodataset.Create(nil);
 adodataset1.Connection:=adoconnection1;
 adodataset1.CommandType:=cmdText;
 adodataset1.CommandText:='select name from master..sysdatabases';
 adodataset1.Active:=true;
 while not(adodataset1.Eof) do
  begin
   combobox1.Items.Add(adodataset1.Fields[0].Value);
   adodataset1.Next;
  end;
 combobox1.ItemIndex:=0;
 adodataset1.Active:=false;
 adodataset1.Free;
 adoconnection1.Connected:=false;
end;

получаем список несистемных таблиц выбраной базы сервера

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 adoconnection1.ConnectionString:=adoconnection1.ConnectionString+';Initial Catalog='+combobox1.Text;
 adoconnection1.Connected:=true;
 if not(adoconnection1.Connected)
  then
   begin
    messagedlg('Не удалось поключиться к базе', mtError, [mbOK], 0);
    abort;
   end;
 adoconnection1.GetTableNames(combobox2.Items, false);
 adoconnection1.Connected:=false;
 combobox2.ItemIndex:=0;
end;

приведённый пример работает на MSSQL Server

[hk47]

Спасибо работает.
но теперь ошибка при выборе таблицы из списка и попытке ее отобразить в компоненте DBGrid.
invalid object name '<имя таблицы>'
не пойму. уже второй день парюсь.

[Dark_Spirit]

но теперь ошибка при выборе таблицы из списка и попытке ее отобразить в компоненте DBGrid.
invalid object name '<имя таблицы>'

я допустил небольшую оплошность, вот тут:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 adoconnection1.ConnectionString:=adoconnection1.ConnectionString+';Initial Catalog='+combobox1.Text;
 adoconnection1.Connected:=true;
 if not(adoconnection1.Connected)
  then
   begin
    messagedlg('Не удалось поключиться к базе', mtError, [mbOK], 0);
    abort;
   end;
 adoconnection1.GetTableNames(combobox2.Items, false);
 adoconnection1.Connected:=false;
 combobox2.ItemIndex:=0;
end;

выделенную строку нужно удалить.