Ver Mensaje Individual
  #4  
Antiguo 20-04-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Cañones.

Es extraño, no tendría que darte error siendo que la función RDB$GET_CONTEXT() es soportada desde la version 2.0 y comentas que estas usando las versiones 2.1 y 2.5.

La consulta la había realizado desde el IBExpert así que, por si acaso, hice la prueba desde Delphi y también funciona correcto:
Código Delphi [-]
function GetFirebirdVer(aIBQuery: TIBQuery): string;
begin
  with aIBQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT RDB$GET_CONTEXT(:NAMESPACE,:VARNAME) AS VERSION');
    SQL.Add('FROM RDB$DATABASE;');
    ParamByName('NAMESPACE').AsString := 'SYSTEM';
    ParamByName('VARNAME').AsString   := 'ENGINE_VERSION';
    Open;
    Result := FieldByName('VERSION').AsString;
    Close;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Firebird ver.: ' + GetFirebirdVer(IBQuery1));
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita