Preencher propriedade ADOConnection1.ConnectionString : com Arquivo ini

15/04/2009

Bom dia.   Gostaria de prencher a propriedade do ADOConnection1.ConnectionString  com arquivo ini.         [BDSAUDALI]
DriverName=MSSQL
HostName=SRVSDL
DataBase=BDSAUDALI
User_Name=DBCLIENTE
Password=
BlobSize=-1
ErrorResourceFile=
LocaleCode=0000
MSSQL TransIsolation=ReadCommited
OS Authentication=False
  Delphi 7     Att.. Ricardo Horoi
Frigorifico Sa

Frigorifico Sa

Curtidas 0

Respostas

Wesley Yamazack

Wesley Yamazack

15/04/2009

Olá, Boa tarde.
   SqlConnection1.Params.LoadFromFile('C:\CONFIG.INI'); // Carregar
   SqlConnection1.SQLCnnctn.Params.SaveToFile('C:\CONFIG.INI'); // Salvar

   Para testar, coloque dois botões, no primeiro você salva, o no segundo você carrega.
  1 - Salve
  2 - Abra o arquivo e mude a senha
  3 - ShowMessage(SqlConnection1.Params.Strings[3]); // isso irá retornar qual é o valor do Pametro, na posição 3 + 1(Pois ele conta o 0(Zero), como sendo o 1), no caso a Senha;


Att,

Wesley Y

GOSTEI 0
Frigorifico Sa

Frigorifico Sa

15/04/2009

OLÁ        ADOConnection1.  da paleta ADO não tem param.      Não posso usar sqlconection da paleta dbexpress, pq tive probelma para usar compo do timpo n_text inclusive   abrir um chamado para este problema.        
GOSTEI 0
Wesley Yamazack

Wesley Yamazack

15/04/2009

Olá,
  Segue abaixo o código, para o AdoConnection;

  1 - Crie um arquivo(c:\config.ini), e coloque a tua conexão, e salve, o mesmo;
  2 - No momento que deseja se conectar coloque o código abaixo;

var
  F : TextFile;
  vCaminho : String;
begin
  AssignFile(F,'c:\config.ini');
  Reset(F);
  Read(F,vcaminho);
  ADOConnection1.Close;
  ADOConnection1.ConnectionString := vCaminho;
  ShowMessage(ADOConnection1.ConnectionString);
  ADOConnection1.Open;
  CloseFile(F);
end;


Att,

Wesley Y

GOSTEI 0
Frigorifico Sa

Frigorifico Sa

15/04/2009

ok Funcionou.           Obrigado.   Pode encerrar.
GOSTEI 0
POSTAR