Próbuje dodać nowego użytkownika do bazy danych w InterBase 2007 w taki sposób:
with IBSecurityService1.Create(Self) do
begin
Protocol := Local;
UserDataBase := 'C:\baza.gdb';
Params.Add('USER_name=SYSDBA');
Params.Add('PASSWORD=masterkey');
LoginPrompt := True;
Active := True;
UserName := 'uzytkownik';
Password := 'haslo';
UserID := -1;
GroupID := -1;
if Active then
begin
SecurityAction := ActionDisplayUser;
DisplayUsers;
Exists := false;
for I := 0 to UserInfoCount-1 do
begin
if SameText(UserInfo[I].UserName,'uzytkownik') then
Exists := true;
end;
if not Exists then
begin
SecurityAction := ActionAddUser;
AddUser;
end;
end;
end;
Gdy wywołana zostaje metoda AddUser dostaje dostaje błąd:
First chance exception at $7C81EB33. Exception class EIBInterBaseError with message 'Dynamic SQL Error
SQL error code = -104
Token unknown - line 1, char 43
INACTIVE'. Process program.exe (560)
Czy ktoś wie o co tu chodzi [???]