Ver Mensaje Individual
  #10  
Antiguo 15-10-2005
Jose Manuel Jose Manuel is offline
Miembro
 
Registrado: may 2003
Posts: 112
Reputación: 22
Jose Manuel Va por buen camino
Bueno por fin ha funcionado, al utilizar un componente ODAC para acceso a bases de datos Oracle, el código debe ser el siguiente, ya que este componente no devuelve filas:

Código:
procedure TfInformacion.Btn_iniciarClick(Sender: TObject);
begin
     OraSQL1.SQL.Clear;
     OraSQL1.SQL.Text := ' Declare'+#13+
                         ' c Integer;'+#13+
                         ' begin'+#13+
                         '    SELECT Count(*)'+#13+
                         '    INTO :c'+#13+
                         '    FROM desarrollo.personal;'+#13+
                         ' end;';
      OraSQL1.Params[0].DataType := ftInteger;
      OraSQL1.Execute;
end;
Código:
procedure TfInformacion.OraSQL1AfterExecute(Sender: TObject; Result: Boolean);
begin
      memo1.Lines.Add('Nº de Registros = ' + formatfloat('#,##0',OraSQL1.Params[0].AsInteger));
end;
Gracias a todos por vuestro tiempo.
Un saludo
Jose Manuel García.
Responder Con Cita