Contar registros de un dataset

[martinlillo]

Si le quito esa linea, no me da el error, pero no me actualiza el valor, la cantidad de registros listados en la grilla. Me sigue mostrando el total de registros del dataset. Es que acaso ese IBQuery no le da bola al resultado del select del Dataset?

Saludos!

[olbeup]

ibquery1.close;
ibquery1.ExecSQL; // <<<<----------------- QUITA ESTA LINEA
IBQuery1.Open;
Label3.Caption := ibquery1.Fields[0].asstring;

Prueba con esto:

Código Delphi [-]
IBQuery1.Close;  
IBQuery1.Open;  
Label3.Caption := IntToStr(IBQuery1.RecordCount);

Espero que te sirva
Un saludo

[DarKraZY]

Empezado por martinlillo

Si le quito esa linea, no me da el error, pero no me actualiza el valor, la cantidad de registros listados en la grilla. Me sigue mostrando el total de registros del dataset.

Eso es porque no cambias la select de IBQuery1. Igual que haces

Código Delphi [-]
DM.tabla.SelectSQL.Text := 'select * from tabla where campo1 starting'+quotedstr(Edit1.Text);

También deberías cambiar la SQL de "select count(*) from tabla".

Pero te recomiendo que uses

Código Delphi [-]
Label3.Caption := DM.tabla.RecordCount

Así te evitas trabajo para codificar y para la base de datos.

Saludos!

[martinlillo]

Lo del RecordCount es lo que primero intenté. Pero sólo me tira el número de registros que "caben" en la grilla. Es decir que si mi grilla tiene 20 filas, y la cantidad que alberga son 25 (es decir que puedo hacer un scroll abajo para ver los otros), el RecordCount me da 20.

Voy a probar cambiar el sql en IBQuery, pero si hago eso, obtengo la cantidad que coinciden con la consulta, verdad? Yo quiero el número.

Saludos!

[martinlillo]

Muchas gracias!!! Este es el código que me funcionó:

Código Delphi [-]
ibquery1.close;
 ibquery1.sql.Clear;
 ibquery1.SQL.Add('select count(*) from datosfil where ' + campo_busqueda + ' starting '+quotedstr(Edit1.Text));
 IBQuery1.Open;
 Label3.Caption := ibquery1.Fields[0].asstring;

Mil gracias!!!!!!