Preencher propriedade ADOConnection1.ConnectionString : com Arquivo ini
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
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
Curtidas 0
Respostas
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
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
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
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
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
15/04/2009
ok Funcionou.
Obrigado.
Pode encerrar.
GOSTEI 0