Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 29-09-2011
martinlillo martinlillo is offline
Miembro
NULL
 
Registrado: sep 2011
Posts: 32
Poder: 0
martinlillo Va por buen camino
Contar registros de un dataset

Gente, quiero mostrar en un form la cantidad de registros de un dataset. Puse un IBQuery, seteando el sql en "select count(*) from tabla", y apenas abre el form, en el evento OnShow, le pongo:

Código Delphi [-]
Label3.Caption := ibquery1.Fields[0].asstring;

Hasta ahí todo bien, cuando abre el form, me tira el número correcto. El tema es que tengo un DBGrid, y un campo de edición que uso como filtro. En ese campo, en el evento OnKeyUp, genero un

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

Esto anda bárbaro, a medida que escribo, la grilla va mostrando los resultados parciales.

El tema es que cuando quiero mostrar la cantidad de resultados actuales en la grilla, haciendo esto

Código Delphi [-]
 ibquery1.close;
 ibquery1.ExecSQL;
 IBQuery1.Open;
 Label3.Caption := ibquery1.Fields[0].asstring;

Me salta el error "Use Open for a select statement"

Alguno tiene idea de qué estoy haciendo mal?? Uso Firebird.

Saludos y gracias!
__________________
Programo por comida!
Responder Con Cita
  #2  
Antiguo 29-09-2011
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por martinlillo Ver Mensaje
Código Delphi [-]
ibquery1.close;  
ibquery1.ExecSQL;  //  <<<<----------------- QUITA ESTA LINEA  
IBQuery1.Open;  
Label3.Caption := ibquery1.Fields[0].asstring;
Sobra esa línea.


.
Responder Con Cita
  #3  
Antiguo 29-09-2011
martinlillo martinlillo is offline
Miembro
NULL
 
Registrado: sep 2011
Posts: 32
Poder: 0
martinlillo Va por buen camino
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!
__________________
Programo por comida!
Responder Con Cita
  #4  
Antiguo 29-09-2011
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 685
Poder: 19
olbeup Va camino a la fama
Cita:
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
Responder Con Cita
  #5  
Antiguo 29-09-2011
Avatar de DarKraZY
DarKraZY DarKraZY is offline
Miembro
 
Registrado: ago 2003
Posts: 460
Poder: 21
DarKraZY Va por buen camino
Cita:
Empezado por martinlillo Ver Mensaje
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!
Responder Con Cita
  #6  
Antiguo 29-09-2011
martinlillo martinlillo is offline
Miembro
NULL
 
Registrado: sep 2011
Posts: 32
Poder: 0
martinlillo Va por buen camino
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!
__________________
Programo por comida!
Responder Con Cita
  #7  
Antiguo 29-09-2011
martinlillo martinlillo is offline
Miembro
NULL
 
Registrado: sep 2011
Posts: 32
Poder: 0
martinlillo Va por buen camino
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!!!!!!
__________________
Programo por comida!
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Contar registros con condicion oscarac SQL 2 06-06-2011 04:42:37
Contar Registros KAYO SQL 10 22-07-2010 20:47:43
Contar registros de una tabla sandra mendoza Conexión con bases de datos 4 14-10-2008 01:08:38
Contar registros en una columna dtomeysoto SQL 5 18-04-2008 22:32:52
Contar Registros Roilo SQL 10 18-07-2006 22:20:24


La franja horaria es GMT +2. Ahora son las 06:37:21.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi