1-) Adicione ao seu projeto o componente TSQLConnection.
2-) Adicione ao uses IniFiles.
3-) No evento BeforeConnect do TSQLConnection adicione o seguinte código.
procedure TdmPrincipal.ConexaoBeforeConnect(Sender: TObject);
var
Arquivo: TIniFile{uses IniFiles};
begin
Try
Arquivo:= TIniFile.Create(ExtractFilePath(Application.ExeName)+'config.ini');
with Conexao do
begin
Params.Values['DATABASE'] := Arquivo.ReadString('DADOS','DATABASE','');
Params.Values['USERNAME'] := Arquivo.ReadString('DADOS','USERNAME','');
Params.Values['PASSWORD'] := Arquivo.ReadString('DADOS','PASSWORD','');
Arquivo.Free
end;
Except
ShowMessage('Não foi possivel conectar! Nenhum servidor disponível...');
end;
end;
4-) Dentro da pasta onde se encontra o executável do sistema crie um arquivo no bloco de notas de nome CONFIG.INI.
5-) O conteúdo do arquivo se o banco estiver local:
[DADOS]
DATABASE=localhost:C:\clinica novo\bd\clinica.fdb
USERNAME=SYSDBA
PASSWORD=masterkey
6-) O conteúdo do arquivo se o banco estiver em outro local da rede:
[DADOS]
DATABASE=192.168.1.2:C:\clinica novo\bd\clinica.fdb
USERNAME=SYSDBA
PASSWORD=masterkey
Agora é sor conectar não tem erro !!!
