Criar tela de conex�o ao banco de dados!

Question

uso o delphi 7 com slqserver, conex�o dbexpress.gostaria de fazer uma tela na entrada do sistema para trocar a conex�ocom o banco de dados. Por exemplo, quando vou instalar em um cliente novo aparece ...

Rjun · Answer

Crie um string com a string de conex�o, mas nos campos que vc quer personalizar use ,  e utilize o Format para passar os par�metros. Sempre fa�o isso com ADO....

Mfilho · Answer

Poderia me passar um exemplo?...

Rjun · Answer

Esse exemplo � pra ADO. Creio que para DBExpress n�o deva ser muito diferente. Criei um form com 4 edits. Um para senha, um para usuario, um para o servidor e outro para o banco de dados. Coloquei um bot�o para fazer a conex�o.

resourcestring
  ConnectionString = �Provider=SQLOLEDB.1;Password=�s;Persist Security Info=True;User ID=�s;Initial Catalog=�s;Data Source=�s�;

procedure TForm1.Button1Click(Sender: TObject);
var
  Conexao: string;
begin
  ADOConnection1.ConnectionString := Format(ConnectionString, [edtSenha.Text, edtUsuario.Text, edtBanco.Text, edtServidor.Text]);
  try
    ADOConnection1.Open;
    ShowMessage(�Conex�o OK�);
    ADOConnection1.Close;
  except
    ShowMessage(�Falha na conex�o.�);
  end;
end;

F�rum Criar tela de conex�o ao banco de dados! #293240