Dica sobre conexao com arquivo INI
07/02/2006
0
Parametros do IBDatabase1
user_name
password
procedimento:
procedure TForm1.btConectarClick(Sender: TObject);
begin
IBDatabase1.DatabaseName := edPath.Text;
IBDatabase1.Params[0] := edUser.Text;
IBDatabase1.Params[1] := edSenha.Text;
try
IBDatabase1.Connected := True;
IBDatabase1.Connected := False;
ShowMessage(´Conexão OK!´);
except
on e: exception do
ShowMessage(´Falha na conexão! Erro:´ + e.message);
end;
end;
Erro:
your user name and password are not defined
Nome e senha não estão definidos
Como faço para passar o usuario e a senha desta forma não consegui.
user_name
password
procedimento:
procedure TForm1.btConectarClick(Sender: TObject);
begin
IBDatabase1.DatabaseName := edPath.Text;
IBDatabase1.Params[0] := edUser.Text;
IBDatabase1.Params[1] := edSenha.Text;
try
IBDatabase1.Connected := True;
IBDatabase1.Connected := False;
ShowMessage(´Conexão OK!´);
except
on e: exception do
ShowMessage(´Falha na conexão! Erro:´ + e.message);
end;
end;
Erro:
your user name and password are not defined
Nome e senha não estão definidos
Como faço para passar o usuario e a senha desta forma não consegui.
Ullrich
Curtir tópico
+ 0
Responder
Posts
07/02/2006
Techsoft
Olá amigo, não consegui identificar onde vc estaria acessando o arquivo ini, mas vou passar pra vc como eu faço o acesso usando ini...
Vou usar como exemplo um sistema chamado DANTE que estou desenvolvendo:
primeiro crio um arquivo por exemplo DANTECFG.INI no memso diretório onde vai ficar a aplicação.
nele coloco o seguinte:
[DATA]
HOST=192.168.0.210
DATABASE=/DADOS/DANTE/DATABASE/DANTEDB.IB
USER=SYSDBA
PASS=masterkey
BOM..
na aplicação faço o seguinte:
var
INIScript: TINIFile;
begin
INIScript := TINIFile.Create(ExtractFilePath(Application.ExeName)
+ ´\dantecfg.ini´);
with IBDatabase1 do
begin
DatabaseName := INIScript.ReadString(´DATA´,´HOST´,´´)
+ ´:´ + INIScript.ReadString(´DATA´,´DATABASE´,´´);
Params.Clear;
Params.Add(´user_name=´+INIScript.ReadString(´DATA´,´USER´,´´));
Params.Add(´password=´+INIScript.Readstring(´DATA´,´PASS´,´´));
Open;
end;
end;
é isso, assim faço as configurações do banco via arquivo INI.
Espero ter ajudado, qualquer coisa posta ai.
Vou usar como exemplo um sistema chamado DANTE que estou desenvolvendo:
primeiro crio um arquivo por exemplo DANTECFG.INI no memso diretório onde vai ficar a aplicação.
nele coloco o seguinte:
[DATA]
HOST=192.168.0.210
DATABASE=/DADOS/DANTE/DATABASE/DANTEDB.IB
USER=SYSDBA
PASS=masterkey
BOM..
na aplicação faço o seguinte:
var
INIScript: TINIFile;
begin
INIScript := TINIFile.Create(ExtractFilePath(Application.ExeName)
+ ´\dantecfg.ini´);
with IBDatabase1 do
begin
DatabaseName := INIScript.ReadString(´DATA´,´HOST´,´´)
+ ´:´ + INIScript.ReadString(´DATA´,´DATABASE´,´´);
Params.Clear;
Params.Add(´user_name=´+INIScript.ReadString(´DATA´,´USER´,´´));
Params.Add(´password=´+INIScript.Readstring(´DATA´,´PASS´,´´));
Open;
end;
end;
é isso, assim faço as configurações do banco via arquivo INI.
Espero ter ajudado, qualquer coisa posta ai.
Responder
07/02/2006
Ullrich
Obrigado techsoft
Modifiquei estas linha e deu tudo certo.
IBDatabase1.Params.Add(´user_name=´+edUser.Text);
IBDatabase1.Params.Add(´password=´+edSenha.Text);
Valeu mesmo....
Modifiquei estas linha e deu tudo certo.
IBDatabase1.Params.Add(´user_name=´+edUser.Text);
IBDatabase1.Params.Add(´password=´+edSenha.Text);
Valeu mesmo....
Responder
Clique aqui para fazer login e interagir na Comunidade :)