passando a user e a senha para o IB

Delphi

27/05/2004

como que eu faço para passar para o IBDataBase o user e a senha para que ele faça o login quando o form principal eh criado???



o problema eh o seguinte eu tenho uma senha aqui no meu interbase e o cliente tem outra..

entao eu jogo a senha em um arquivo .ini e tenho que passar para o DataBase... como eu poderia fazer isso?????


Zumbi

Zumbi

Curtidas 0

Respostas

Vinicius2k

Vinicius2k

27/05/2004

zumbi,

acho q o q vc pretende seria algo parecido com este código (trabalhado no evento OnLogin do IBDatabase) :
procedure TForm1.IBDatabase1Login(Database: TIBDatabase;
  LoginParams: TStrings);
var ini_file: TIniFile;
    user,pass: String;
begin
  // Lendo o .ini
  ini_file:= TIniFile.Create(´SeuArquivo.ini´);
  user:= ini_file.ReadString(´LoginParams´,´user´,´´);
  pass:= ini_file.ReadString(´LoginParams´,´pass´,´´);
  ini_file.Free;
  // Passando os valores para os parametros do IBDatabase.
  LoginParams.Values[´user_name´]:= user;
  LoginParams.Values[´password´]:=  pass;
end;

Espero ter ajudado...
T+


GOSTEI 0
Zumbi

Zumbi

27/05/2004

eh isso ai amigao valewwww..


GOSTEI 0
Gandalf.nho

Gandalf.nho

27/05/2004

Use o componente IBDatabaseINI


GOSTEI 0
POSTAR