Passar caminho do banco de dados.

Question

Ol�, pessoal.Preciso passar como parametro o caminho do banco de dados no servidor, para o componente SQLConnection do DBExpress. Para ficar din�mico e ser configurado de acordo com as maquinas do cli...

Thiago Vidal · Answer

Para Interbase/Firebird, vc pode utilizar da seguinte forma:

SQLConnection1.Params.Values[�Database�] := �localhost:Banco�;

Agora, para utilizar o sistema 100� multi banco, seria melhor vc carregar todos os parametrode de configura��o de um arquivo .ini

Verifique o m�todo LoadParamsFromIniFile do SQLConnection.

Por�m, vale lembrar, que este m�todo n�o carrega alguns parametros referentes ao driver do banco, por exemplo VendorLib, LibraryName e GetDriverFunc... para carregar tamb�m estes par�metros, vc deve carregar tudo manualmente...

Segue como exemplo, a rotina que eu utilizo por padr�o, em todos os sistemas, para abrir os SQLConnections:

procedure OpenSQLConnections(cnn: TSQLConnection; Ini: TMemIniFile);
var
  Config: TMemIniFile;
  Arq: TFileName;
begin
  Arq := ChangeFileExt(Application.ExeName, �.ini�);
  if Assigned(Ini) or FileExists(Arq) then
  begin
    if Assigned(Ini) then
      Config := Ini
    else
      Config := TMemIniFile.Create(Arq);

    with cnn do
    try
      if Connected then Close;
      ConnectionName := Config.ReadString(�Config�, Name, ConnectionName);
      DriverName := Config.ReadString(ConnectionName, �DriverName�, DriverName);
      GetDriverFunc := Config.ReadString(ConnectionName, �GetDriverFunc�, GetDriverFunc);
      LibraryName := Config.ReadString(ConnectionName, �LibraryName�, LibraryName);
      VendorLib := Config.ReadString(ConnectionName, �VendorLib�, VendorLib);
      LoginPrompt := False;
      KeepConnection := True;
      LoadParamsOnConnect := False;
      LoadParamsFromIniFile(Config.FileName);
    finally
      if not Assigned(Ini) then
        Config.Free;
    end;
  end;

  cnn.Open;

end;

F�rum Passar caminho do banco de dados. #289677