Выбор БД sql server без изменения исходника

[ShnurOK]

Связь delphi с ms sql server осуществляется с помощью компонентов adoconnection, adotable, datasource, dbgrid. При переносе программного приложения на другой компьютер , связь с базами данных нарушается. Как организовать выбор БД из приложения, без изменения исходника. Заранее спасибо.

[Dark_Spirit]

как пример. выбирает все базы на указаном сервере.

procedure TForm1.FormShow(Sender: TObject);
 var adodataset1:TAdodataset;
begin
 adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;
Persist Security Info=False;Data Source=<имя_хоста_на котором_стоит_sql_server\имя_самого_sql_servera>';
 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;

вместо выделленного текста укажи свои данные

[ShnurOK]

Спасибо