[Maxjuvefan]

В программе на Delphi 2010 использую компонент adoconnection для подключения к базе данных. Как сделать так, чтобы при использовании exe файла на другом компьютере была возможность установления соединения с другой базой данных?

[NumLock]

дать возможность изменять соответствующие свойства

[Страдалецъ]

Обычно для этого работают со строкой подключения. Например вот так можно подключится к MS SQL серверу:

Код:

const
  MSConnectStr = 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=%s;';
begin
 AdoMS.ConnectionString := Format(MSConnectStr, ['LocalHost\SqlExpress']);
  AdoMS.Open;

[lmikle]

Also:
См ADODB unit.
Функция PromptDataSource

Код:

var sConn : WideString; 
begin 
     sConn := PromptDataSource(Form1.Handle, ''); 
end;

[Maxjuvefan]

Проблема такая: устанавливаю соединение с базой sql через AdoConnection. Ввожу в поле edit имя базы. Если введено имя существующей базы, то соединение устанавливается. А если несуществующей - то delphi 2010 выдает ошибку Error "Источник данных не найден и не указан драйвер, используемый по умолчанию". Как сделать так, чтобы выводилось корректное соообщение о т ом, что соединение не удалось установить?

procedure TFormConnection.Edit1Change(Sender: TObject);
var Edi : TEdit;
begin
Edi := Sender as TEdit;
s:=edi.Text;
end;

procedure TFormConnection.ПодключитьClick(Sender: TObject);
begin
FormMain.ADOConnection1.Connected := false;
FormMain.AdoConnection1.ConnectionString:='Provide r=MSDASQL.1;Persist Security Info=False;Data Source=' + s;
FormMain.ADOConnection1.Connected := true;
if FormMain.ADOConnection1.Connected = true then
begin
ShowMessage('Соединение установлено!');
end
else
ShowMessage('Соединение не удалось установить!');
end;