Yo tengo esto, siendo detalles un IBQuery
Espero te sirve de algo
Detalles.close;
Detalles.SQL.Clear;
Detalles.SQL.Add('SELECT RDB$RELATION_NAME ');
Detalles.SQL.Add('FROM RDB$USER_PRIVILEGES ');
Detalles.SQL.Add('WHERE (RDB$PRIVILEGE = '+QuotedStr('M')+') AND (RDB$USER = :ID) ');
Detalles.ParamByName('ID').Value:= 'ALICIA'
Detalles.Open;
Suerte...
|