Fórum Configurar SQLConnection via codigo.Como? #322489

  arqini := TIniFile.Create(´.\dbxconnections.ini´);
  if SQLConnection.ConnectionState = csStateOpen then
    SQLConnection.Connected := False;
  SQLConnection.LoadParamsFromIniFile(´.\dbxconnections.ini´);
  with SQLConnection.Params do
  begin
    Values[´DriverName´] := arqini.ReadString(nF,´DriverName´,´´);
    Values[´BlobSize´] := arqini.ReadString(nF,´BlobSize´,´´);
    Values[´CommitRetain´] := arqini.ReadString(nF,´CommitRetain´,´´);
    Values[´Database´] := arqini.ReadString(nF,´Database´,´´);
    Values[´ErrorResourceFile´] := arqini.ReadString(nF,´ErrorResourceFile´,´´);
    Values[´LocaleCode´] := arqini.ReadString(nF,´LocaleCode´,´´);
    Values[´Password´] := arqini.ReadString(nF,´Password´,´´);
    Values[´RoleName´] := arqini.ReadString(nF,´RoleName´,´´);
    Values[´ServerCharSet´] := arqini.ReadString(nF,´ServerCharSet´,´´);
    Values[´SQLDialect´] := arqini.ReadString(nF,´SQLDialect´,´´);
    Values[´Interbase TransIsolation´] := arqini.ReadString(nF,´Interbase TransIsolation´,´´);
    Values[´User_Name´] := arqini.ReadString(nF,´User_Name´,´´);
    Values[´WaitOnLocks´] := arqini.ReadString(nF,´WaitOnLocks´,´´);
  end;

procedure LoadConfig;
var
 ArqConf : string;
begin
 ArqConf := ChangeFileExt(ParamStr(0),´.ini´);
 if FileExists(ArqConf) then
  begin
   with sqlCONN do
    begin
     try
       Close;
       LoadParamsFromIniFile(ArqConf);
      Open;
     except
      raise Exception.Create(´Erro ao conectar com o banco de dados!´);
     end;
   end;
  end
 else
  MessageDlg(´Não foi possível encontrar o arquivo de configuração´,mtError,[mbOK],0);
end;