Hola salvica.
Cita:
El error en sí no dice nada, pero si corro la consulta sobre FlameRobin o sobre SQL Maestro funciona correctamente, así que supongo que el error es de Firebird.
|
No uso Zeos por lo que no tengo manera de probarlo, pero creo que el error es debido al componente
TZQuery y no a Firebird, ya que hice una prueba usando
TIBQuery y me funciona correctamente:
Código Delphi
[-]
function TForm1.ExisteTabla(Nombre: string): boolean;
begin
with TIBQuery.Create(nil) do
try
Database:= IBDatabase1;
SQL.Clear;
SQL.Add('SELECT COUNT(*) AS FOUND');
SQL.Add('FROM RDB$RELATIONS');
SQL.Add('WHERE RDB$RELATION_NAME = :TABLA AND RDB$VIEW_BLR IS NULL');
SQL.Add('AND (RDB$SYSTEM_FLAG IS NULL OR RDB$SYSTEM_FLAG = 0)');
ParamByName('TABLA').AsString:= Nombre;
Open;
Result:= FieldByName('FOUND').AsInteger > 0;
Close;
finally
Free;
end;
end;
Un saludo.