Como capturar el resultado de una consulta SQL

[Jose Manuel]

Hola, estoy trabajando con D6 y empiezo con Oracle 9i + componentes ODAC. Mi pregunta es como trasladar el restultado de la siguiente consulta SQL a una variable para mostrarla en pantalla, lo que quiero es ver en pantalla el nº de registros de una tabla:

   fdm.OraSQL_liq.SQL.Clear;
   fdm.OraSQL_liq.SQL.Text := 'select count(*) from desarrollo.personal';
   fdm.OraSQL_liq.execute;
   
   numreg.value:= ??????

Nota: El componente que utilizo en la consulta, no devuelve filas.

Gracias y un saludo a todos.
Jose Manuel

[vtdeleon]

Saludos

Empezado por Jose Manuel

Nota: El componente que utilizo en la consulta, no devuelve filas.

Cual es la tabla en cuestion??? desarrollo o personal?
Prueba con:

Código Delphi [-]
fdm.OraSQL_liq.SQL.Clear;
   fdm.OraSQL_liq.SQL.Text := 'select count(*) as Total from desarrollo';
   fdm.OraSQL_liq.execute;
   
   numreg.value:=fdm.OraSQL_liq.FieldByName('Total').AsInteger;
//Como son componentes que desconozco, no estoy seguro si la captura del campo sea así 

Suerte

[Jose Manuel]

Gracias por tú respuesta, pero creo que estoy haciendo algo mal, pues me da un error:

La tabla que utilizo tiene 50 campos, y los 4 primeros son:

//    tbPerA_BAJA:        TStringField;
//    tbPerC_NUM_OFICINA: TStringField;
//    tbPerN_NUM_YEAR:    TStringField;
//    tbPerN_NUM_ORDEN:   TIntegerField;

La instrucción para obtener el nº de registros es la siguiente:

   fdm.tbPer.SQL.Clear;
   fdm.tbPer.SQL.Text := 'select count(*) AS a_baja from personal';
   fdm.tbPer.execute;
   registros.value:=   fdm.tbPer.fieldbyname('a_baja').AsString;

El error que me da es el siguiente:

ERROR: TbLiq: Type mismatch for field 'A_BAJA', expecting:String  actual:Float

Si cambio de campo, para evitar contar sobre un campo String, me dice que campo no encontrado, pues siempre intenta sumar sobre el primer campo.

[vtdeleon]

Saludos

Error te dice que no es el dataset tbPer que da problema, es el TbLiq. Chequea bien!!

[Jose Manuel]

Perdon, ha sido un error de escritura.

Donde dije: ERROR: TbLiq: Type mismatch for field 'A_BAJA', expecting:String  actual:Float

Quise decir:  ERROR: TbPer: Type mismatch for field 'A_BAJA', expecting:String  actual:Float

Es que he hecho pruebas con varias tablas, y al escribir el error he confundido las tablas.

Esta consulta es correcta, y al realizarla a través del "Enterprise Manager Console ORACLE", me muestra correctamente el número de registros, el problema es al pasar el resultado a una variable en Delphi.

 
   fdm.tbPer.SQL.Clear;
   fdm.tbPer.SQL.Text := 'select count(*) AS a_baja from personal';
   fdm.tbPer.execute;

[[Lepe]]

no estoy seguro con Oracle, pero:

fdm.tbPer.execute;

debería ser fdm.tbPer.Open;

Una vez abierta, simplemente lees el valor que tiene el único de la consulta:

Código Delphi [-]
var n:integer;
begin
....
fdm.tbPer.Open;
n := fdm.tbPer.Fields[0].asinteger;

saludos