FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Conocer el nº de filas devueltas en una consulta
Hola, estoy trabajando con D6 y empiezo con Oracle 9i + componentes ODAC. Mi pregunta es como conseguir que al realizar una consulta, si el nº de filas devueltas es muy grande, aparezca un mensaje informativo y si es posible, pregunte si deseamos continuar o no, con la consulta.
Por ejemplo, cuando hago la siguiente consulta, desconozco el nº de filas que me devolverá la consulta, por lo que me gustaría poder saber a priori que si el nº de filas devueltas supera, por ejemplo las 100 , entonces aparezca un mensaje de aviso dando la opción de continuar o limitar el rango de la consulta. Un saludo Jose Manuel Código:
procedure TfDNI.Btn_fechasClick(Sender: TObject); begin fdm.tbNif.close; fdm.tbNif.SQL.Clear; fdm.tbNif.SQL.Text := 'SELECT * FROM &tablename1 ' +#13+ 'WHERE (F_ULTIMO_CONTACTO >= :desde' +#13+ 'and F_ULTIMO_CONTACTO <= :hasta)' +#13+ 'ORDER BY A_nombre'; fdm.tbNif.MacroByName('TableName1').Value := cb_tablespace.Text; fdm.tbNif.ParamByName('desde').AsDateTime := desde.date; fdm.tbNif.ParamByName('hasta').AsDateTime := hasta.date; fdm.tbNif.Open; end; |
#2
|
||||
|
||||
Pues de Oracle no tengo ni idea pero ¿por qué no sustituyes select * por select count(*) en tu consulta? De esta forma sabrás el número de registros que te devolverá la consulta original.
// Saludos |
#3
|
|||
|
|||
Gracias por responder, pero dime una cosa, con esta instrucción el nº de filas lo coneceré una vez está la consulta en la pantalla, y yo lo que pretendo, es que teniendo un grid, la consulta que pueda hacer un cliente no sea tan grande que colapse la red, por ejemplo que ¿pasaría si la consulta devuelve 50000 registros?
Bueno, probaré esta instrucción a ver si me ayuda con esto. Gracías y un saludo. Jose Manuel |
#4
|
||||
|
||||
Cita:
// Saludos |
#5
|
||||
|
||||
Cita:
Cita:
Personalmente considero que hacer (o que el usuario haga) una consulta que devuelve 50000 registros es inútil; y lo subrayo porque además de inútil lo considero un "error" de programación; Resulta que el usuario hace una consulta (en un Grid por ejemplo) que devueve 50000 registros y el registro que le interesa está en la posición 14356, ¿realmente lo va a encontrar? ¿Realmente lo va a buscar? porque no me imagino un usuario dándole al cursor o a la barra de desplazamiento hasta esa posición. Creo que en éstos casos se debería sacar un filtro previo para que el usuario seleccione determinados valores y utilizar un TOP (yo utilizao ambas cosas, al igual que SAP, por ejemplo); El top por defecto son 500 (aunque el usuario puede modificarlo); NOTA: Normalmente en un tabla grande suele ser más rápido un TOP 200 que un Count (ya que el count, aunque sólo sea para contar debe recorrer toda la tabla...) Cita:
Para esos casos debes configurar la conexión como Cliente-Servidor; ADO, IBExpress,... poseen alguna propiedad en la conexión que te permite configurar ésta modalidad de forma que en una consulta de 50000 registros se "traen" por bloques, primero se traen 250 y a medida que el usuario pide más (baja en el Grid, por ejemplo) se van trayendo el resto. De todas formas mi consejo es que evites a todas costa llegar a esa situación (ejecutar ésta un select con un resultado de 50000 registros).
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#6
|
||||
|
||||
Cita:
Su enfoque me parece adecuado. Si el usuario hace una búsqueda que va a devolver una cantidad más allá de un límite razonable de registros, ¿qué mejor que avisarle para que refine su búsqueda antes de lanzar la consulta real que traiga los registros? // Saludos |
#7
|
|||
|
|||
Hola, he probado a sustituir la instrucción
'SELECT * FROM &tablename1 WHERE ' por 'SELECT count(*) FROM &tablename1 WHERE ' y me da un error, indicando que el campo C_NIF no se encuentra, aunque existe y es el primer campo de la tabla, y forma parte de la clave única de la tabla CONSTRAINT "TA_NIF_C_NIF_C_VERSION_PK" UNIQUE("C_NIF", "N_VERSION") No sé, tal vez hay algún error en la sintesis - trabajo con Oracle 9i + Odac + D6-, de momento estoy intentando encontrar algún ejemplo que incluya esta instrucción, mientras tanto he modificado el codigo de la siguiente manera, aunque no lo veo muy claro: Un saludo a todos Jose Manuel García Código:
procedure TfDNI.Btn_consulta_fechasClick(Sender: TObject); var n,ini,fin,y:Double; i,x:integer; begin // deberia comprobar el nº de filas devueltas en la consulta fdm.tbNif.close; fdm.tbNif.SQL.Clear; fdm.tbNif.SQL.Text := 'SELECT COUNT(*) FROM &tablename1 WHERE '+#13+ '(F_ULTIMO_CONTACTO >= :desde'+#13+ ' and F_ULTIMO_CONTACTO <= :hasta)'+#13+ 'ORDER BY A_nombre'; fdm.tbNif.MacroByName('TableName1').Value := cb_tablespace.Text; fdm.tbNif.ParamByName('desde').AsDateTime := desde.date; fdm.tbNif.ParamByName('hasta').AsDateTime := hasta.date; if desde.date=hasta.date then hasta.date := desde.date+1; fdm.tbNif.Open; n:=fdm.tbNif.Recordcount; // nº de filas de la tabla ShowMessage ('Nº de filas devueltas = '+FormatFloat('####',n)); // esto se debe quitar // si el nº de filas devueltas es > 100, sugerir limitar el ambito de la consulta if n>10 then begin text:='Esta consulta tiene '+FormatFloat('####',n)+' filas'+#13+ 'le recomendamos, limite el ámbito de la consulta'+#13+#13+ 'Pulse Cancelar para salir'; IF Application.MessageBox((pChar(text)) ,'CONSULTAS ', mb_OkCancel + mb_IconExclamation)=IdCancel then Exit; end; // si no se limita el ambito y el nº de filas devueltas es > 10 (el nº de puede aumentar) // se muestra el resultado de 10 en 10, dando opción a cancelar la consulta if n>10 then begin y:=(int(n/10))+1; i:=StrToint(FloatToStr(y)); for x:=1 to i do begin ini:=x-1*10; // se puede cambiar para mostrar bloques de más de 10 filas fin:=x*10; fdm.tbNif.close; fdm.tbNif.SQL.Clear; fdm.tbNif.SQL.Text := 'SELECT * FROM &tablename1 WHERE '+#13+ ' (F_ULTIMO_CONTACTO >= :desde'+#13+ ' and F_ULTIMO_CONTACTO <= :hasta)'+#13+ ' and(rownum > :ini' +#13+ ' and rownum <= :fin)'+#13+ 'ORDER BY A_nombre'; fdm.tbNif.MacroByName('TableName1').Value := cb_tablespace.Text; fdm.tbNif.ParamByName('desde').AsDateTime := desde.date; fdm.tbNif.ParamByName('hasta').AsDateTime := hasta.date; fdm.tbNif.ParamByName('ini').AsFloat := ini; fdm.tbNif.ParamByName('fin').AsFloat := fin; if desde.date=hasta.date then hasta.date := desde.date+1; fdm.tbNif.Open; text:='Quieres ver los siguientes 10 registros'+#13+ 'Pulse Cancelar para salir'; IF Application.MessageBox((pChar(text)) ,'CONSULTA ', mb_OkCancel + mb_IconExclamation)=IdCancel then Exit; end; end else begin fdm.tbNif.close; fdm.tbNif.SQL.Clear; fdm.tbNif.SQL.Text := 'SELECT * FROM &tablename1 WHERE '+#13+ ' (F_ULTIMO_CONTACTO >= :desde'+#13+ ' and F_ULTIMO_CONTACTO <= :hasta)'+#13+ 'ORDER BY A_nombre'; fdm.tbNif.MacroByName('TableName1').Value := cb_tablespace.Text; fdm.tbNif.ParamByName('desde').AsDateTime := desde.date; fdm.tbNif.ParamByName('hasta').AsDateTime := hasta.date; if desde.date=hasta.date then hasta.date := desde.date+1; fdm.tbNif.Open; end; end; |
#8
|
||||
|
||||
Como te dije, yo no conozco Oracle. Pero la consulta que haces se ve bastante estándar así como lo es el count. Ahora, en el error que te marca se menciona el campo C_NIF que no aparece en ninguna parte de la consulta- ni la original, ni la que usa count. Quizá la componente tbNif la tengas asociada a algún DBGrid u otro control db que hacía referencia a dicho campo. Al sustituir * por count(*) tal campo ya no aparece en los resultados de la consulta. Si es algo por el estilo intenta entonces usar otra componente para obtener el número de registros (consulta count).
// Saludos |
#9
|
||||
|
||||
Para que quede un poco más claro
Una consulta de la forma:
te regresa un sólo registro con una sóla celda que contiene el número de registros de la tabla que satisfacen las condiciones. La consulta te devuelve todos los registros de la tabla que satisfacen las condiciones. La primera consulta es muy rápida ya que el conteo lo hace el servidor mandando al cliente únicamente una celda. // Saludos |
#10
|
||||
|
||||
Cita:
No utilices el mismo que usas para la consulta de datos y para acceder al resultado hazlo utilizando FieldByName.
Otra cosa, es que puedes eliminar de la consulta del Count el ORDER BY ya que es indiferente para el número de registros.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#11
|
|||
|
|||
nº de filas devueltas en una consulta
Hola, he descubierto que el componente ODAC que estoy utilizando para la conexión a ORACLE, tiene una opción que soluciona el problema que origino esta consulta, al tener la posibilidad de indicar que no traiga de una sola vez todas las filas de la consulta, y de indicar el nº de filas que debe traer en cada bloque.
TOraQuery.fetchAll :=False TOraQuery.fetchRows :=25 En las propiedades del componente he puesto estos datos, y ahora en el caso de una consulta que devuelva 1000 registros, primero trae 25 y solo si llego con el cursor al registro 25, automaticamente se obtiene un segundo bloque de 25 registros, y así hasta el final si continuamos la consulta. Un saludo a todos y gracias por vuestros comentarios. Jose Manuel |
|
|
|