Como capturar el resultado de una consulta SQL

[[Lepe]]

Lo que pones detrás del count(*) es un alias, es decir, un nombre para la expresión Count, si enlazas la consulta con un DBGrid, verás que solo hay una columna, y el nombre de ella será por defecto Expr1 (si no me equivoco). El hecho de poner Count(*) as TotalDeRegistros, es para que en el dbgrid, el título de esa columna aparezca: TotalDeRegistros, repito, es solo un título para la columna.

Como tu le dices As A_BAJA y coincide con el nombre de un campo, te da el error que comentas.

Tienes 2 opciones:

Código Delphi [-]
 fdm.tbPer.SQL.Clear;
   fdm.tbPer.SQL.Text := 'select count(*) AS NRegistros from personal';
   fdm.tbPer.execute;

"NRegistros" no debe ser ningun campo de la tabla.


La otra opción, es simplemente quitarle el alias:

Código Delphi [-]
 fdm.tbPer.SQL.Clear;
   fdm.tbPer.SQL.Text := 'select count(*) from personal';
   fdm.tbPer.execute;

En ambos casos, lo que hace es contar el número de registros, sin importar lo que haya en cada columna de ese registro.

Existen casos especiales, cuando algunas columnas tienen valores nulos (null). Imagina el siguiente caso:

CampoTotal
          5
         30 
         null

Si ponemos SELECT COUNT(CAMPOTOTAL), nos devolverá 2 (los campos nulos no cuentan)

Si ponemos SELECT COUNT(*) nos devolverá 3 (si se cuenta los nulos)

[Jose Manuel]

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:

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;

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.