Qrel is TIB_Query, Qgrant is TIB_DSQL or TIB_Query

// get relations from system table
Qrel.SQL.Text:='select rdb$relation_name from rdb$relations where
rdb$relations.rdb$system_flag=0';
Qrel.Open;

// grant INSERT,SELECT,UPDATE,DELETE for user NEWUSERName;
While not Qrel.eof do
begin
Qgrant.SQL.Text:='GRANT SELECT,INSERT,UPDATE,DELETE ON
'+Qrel.FieldByName('rdb$relation_name').AsString+' TO '+NewUserName;
Qgrant.Execute;
end;


WBR,Dmitry Beloshistov AKA [-=BDS=-]
-----Original Message-----
From: IBObjects@yahoogroups.com [mailto:IBObjects@yahoogroups.com] On
Behalf Of Virtual Memory Developers of System
Sent: Tuesday, April 15, 2008 2:59 PM
To: ibobjects@yahoogroups.com
Subject: [IBO] Grants in new user

Good Morning

Now that I have this database users automatically creating the
application must give permission to all tables (reading, writing). Is
there any way to give permission to this unrestricted users in the
database?

Thanks

Flavio Macedo