Tony
In your IBDBLogin procedure, when you say...
IBDB.Params.Clear;
aren't you clearing out the setting for Database name which you just have
set in OpenDatabaseConnection?
Martin.
-----Original Message-----
From: Tony Blomfield [SMTP:[EMAIL PROTECTED]]
Sent: Friday, November 19, 1999 11:27 AM
To: Multiple recipients of list database
Subject: [DUG-DB]: using OnLogin event to set username and password
with IBExpress
Hi.
This code doesn't seem to do the trick and I allways get an exception "User
Name or password unknown....."
The OpenDatabaseConnection proc is fine and is just here to show how I lead
into the Logon session
procedure TDM.OpenDatabaseConnection;
begin
with IBDB do begin file://IBDB = TIBDatabase
Screen.Cursor := crHourGlass;
try
Close;
DatabaseName := AppInfo.ServerName;
LoginPrompt := True;
Open; // This will cause the OnLogon Event handler to fire
finally
Screen.Cursor := crDefault;
end;
end;
end;
procedure TDM.IBDBLogin(Database: TIBDatabase; LoginParams: TStrings);
var S: String;
begin
IBDB.Params.Clear;
with LoginParams do begin
Values['user_name'] := 'SYSDBA';
Values['password'] := 'masterkey';
end;
end;
Anybody done this with success ?
TIA,
Tony.
---------------------------------------------------------------------------
New Zealand Delphi Users group - Database List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
---------------------------------------------------------------------------
New Zealand Delphi Users group - Database List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
