Criar tela de conexão ao banco de dados!

Delphi

26/08/2005

uso o delphi 7 com slqserver, conexão dbexpress.

gostaria de fazer uma tela na entrada do sistema para trocar a conexão
com o banco de dados.
Por exemplo, quando vou instalar em um cliente novo aparece a tela
inicial para conexão, para que eu selecione ou digite o nome do servidor
e do banco que vai conectar e automaticamente o sistema é alterado.
Alguem poderia me ajudar com alguma dica ou exemplo?

Obrigado.


Mfilho

Mfilho

Curtidas 0

Respostas

Rjun

Rjun

26/08/2005

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.


GOSTEI 0
Mfilho

Mfilho

26/08/2005

Poderia me passar um exemplo?


GOSTEI 0
Rjun

Rjun

26/08/2005

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;



GOSTEI 0
POSTAR