Como capturar el resultado de una consulta SQL

[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

[lucasarts_18]

Hola:

A lo comentado por Lepe, también puedes probar con fieldvalues['NombreCampo'] y esto asignarselo a una variable..

[Jose Manuel]

Hola,
EL problema es el mismo, la consulta es correcta cuando la realizo sobre la consola de ORACLE 9, pero cuando incluyo el código en Delphi, me da el error:

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

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

Asi es que el problema lo tengo al realizar esta consulta en Delphi.

A_Baja, es el primer campo de la tabla y es de tipo String, tal vez sea ese el problema, pero si cambio el campo, siempre me dice que falta el campo A_BAJA, así es que no se como decirle que cuente utilizando otro campo que sea de tipo númerico, por si fuera ese el problema... no se.

Gracias por vuestro interes,
Un saludo
Jose Manuel García