Problema con la funcion recordcount de los TIBQuery

[capo979]

y eso es lo que me pasa a mi la consulta que tengo trae muchisimos registros y hacerle un recordcount me lo mata pero tengo que encontrar algo que me diga la cantidad de registros que tiene esa consulta si a alguien se le ocurre joya

nos vemos

[Mick]

Pues tendras que hacer otra query con las mismas condiciones del where
y un count(*)

select count(*) from table where mismas_condiciones

Saludos

[capo979]

Gracias justo eso era lo que no queria hacer

[alexander_lv]

el FIBPlus ya tiene una funcion para que hace exactamente el

Código SQL [-]
SELECT COUNT(*) FROM Table1

Código Delphi [-]
function RecordCountInQuery(FQuery: TFIBQuery): integer;

muy funcional para que no hagas otra sentencia porque se le llena el codigo de sentencias sql repetidas pero tiene unas limitaciones







Unit

CommonIB

function RecordCountInQuery(FQuery: TFIBQuery): integer;

Description

Call RecordCountInQuery to get a number of records, which are returned by the query (FQuery). The procedure tries to change a query text in FQuery.SQL and executes changed query. For example, if you set FQuery.SQL to 'SELECT * FROM Table1' RecordCountInQuery executes the following query: SELECT COUNT(*) FROM Table1. It allows getting number of result records for a query without fetching records. However, this function has some limitations. You can not use this function for queries, which include GROUP BY, DISTINCT and UNION options.

[[mlara]]

Bueno, pues dado el asunto de caracter importante, escribí una pequeña función que nos retornaría el número de registros de una consulta, pasándole como parámetro la propiedad SQL o SelectSQL en el caso de los DataSets. Es básica claro, por eso si alguien tiene alguna sugerencia bienvenida sea. Aquí está:

Código Delphi [-]
function RecordCountInQuery(SQL: TStrings): Integer;
var
  P, I, C: SmallInt;
  StrAux, TableName, SearchCondition: string;
  Q: TMDOQuery;
begin
  // Nombre de tabla en consulta (esto funciona siempre que las
  // tablas estén encerradas entre comillas)
  TableName := '';
  P := Pos('FROM', UpperCase(SQL.Text));
  if P > 0 then begin
    StrAux := Copy(SQL.Text, P+4, Length(SQL.Text)-(P+3));
    C := 0;
    for I := 1 to Length(StrAux) do begin
      if StrAux[i] = '"' then
        Inc(C);
      case C of
        1:
          TableName := TableName + StrAux[i];
        2:
          begin
            TableName := TableName + StrAux[i];
            Break;
          end
      end;
    end
  end;

  // Expresión condicional
  SearchCondition := '';
  P := Pos('WHERE', UpperCase(SQL.Text));
  if P > 0 then begin
    StrAux := Copy(SQL.Text, P+5, Length(SQL.Text)-(P+4));
    P := Pos('GROUP', UpperCase(StrAux));
    if P = 0 then
      P := Pos('ORDER', UpperCase(StrAux));
    if P = 0 then
      SearchCondition := Trim(StrAux)
    else
      SearchCondition := Trim(Copy(StrAux, 1, P-1));
  end;

  // Consulta del número de registros
  Q := TMDOQuery.Create(DM);
  Q.Database := DM.MDODB;  // Componente de base de datos
  Q.Transaction := DM.MDOTranAction; // Transacción
  if SearchCondition = '' then
    Q.SQL.Text := 'SELECT COUNT(*) "RecordCount" FROM '+TableName
  else
    Q.SQL.Text := 'SELECT COUNT(*) "RecordCount" FROM '+TableName+' WHERE '+SearchCondition;
  Q.Open;
  Result := Q.FieldByName('RecordCount').AsInteger;
  Q.Close;
  Q.Free;
end;

Como se pueden dar cuenta, esta función extrae el nombre de la tabla o vista siempre que esta se encuentre entre comillas, así que habría que hacer una pequeña modificación para otros casos.

[[mlara]]

Bueno, por otra parte es importante tener en cuenta lo siguiente:

1. La función RecordCount retorna el número de registros solicitados por el cliente.
2. Cuando se tiene un DataSource, el número de registros solicitados al servidor es el número de registros que se requieren para visualización, por ejemplo en un DBGrid.
3. Cuando el DataSet o el query no tienen un DataSource asociado, la función RecordCount siempre retorna 1 si la consulta devuelve más de 1 registro. Retorna 0 en caso de que la consulta retorne 0 registros.

Como se dijo antes, usando las funciones First y Last se causa la solicitud de todos los registros a la base de datos, por lo que de esta manera la función RecordCount devuelve el número correcto de registros. También se logra el mismo efecto usando la función FetchAll. Sin embargo, también se dijo que no es adecuado, ya que usar estas funciones incrementa el tráfico innecesario a través de la red, ocupa al servidor atendiendo dicha solicitud que además puede tomar un tiempo considerable dependiendo del número de registros. Hay que tomar atenta nota de la ayuda de Delphi, con especial relación a la función FetchAll, en donde no se recomienda su uso para bases de datos accedidas por muchos clientes a la vez.

[[mlara]]

Bueno, y para terminar, tengo dos (o tres?) dudas relacionadas con el tema que quisiera resolver.

1. Lo que sucede con la función RecordCount en InterBase y Firebird no sucede en Paradox. La duda es: ¿siempre que trabajo con un motor de bases de datos voy a tener este inconveniente, digamos con mySQL, SQL Server, Oracle, PostgreSQL?
2. Esto es muy importante: ¿Alguien conoce otro tipo de solución?
3. Dado que el código que comparto supone el uso de comillas dobles para los objetos de InterBase o Firebird, ¿específicamente en Oracle alguien sabe si se pueden usar comillas también para los nombres de la tablas y los campos?

[[Chris]]

Empezado por mlara

Bueno, pues dado el asunto de caracter importante, escribí una pequeña función que nos retornaría el número de registros de una consulta, pasándole como parámetro la propiedad SQL o SelectSQL en el caso de los DataSets. Es básica claro, por eso si alguien tiene alguna sugerencia bienvenida sea. Aquí está:

Código Delphi [-]function RecordCountInQuery(SQL: TStrings): Integer;
var P, I, C: SmallInt; StrAux, TableName, SearchCondition: string;
Q: TMDOQuery;
begin // Nombre de tabla en consulta (esto funciona siempre que las
// tablas estén encerradas entre comillas)
TableName := '';
P := Pos('FROM', UpperCase(SQL.Text));
if P > 0 then begin StrAux := Copy(SQL.Text, P+4, Length(SQL.Text)-(P+3)); C := 0; for I := 1 to Length(StrAux) do begin if StrAux[i] = '"' then Inc(C); case C of 1: TableName := TableName + StrAux[i]; 2: begin TableName := TableName + StrAux[i]; Break; end end;
end end;

// Expresión condicional
SearchCondition := '';
P := Pos('WHERE', UpperCase(SQL.Text));
if P > 0 then begin StrAux := Copy(SQL.Text, P+5, Length(SQL.Text)-(P+4)); P := Pos('GROUP', UpperCase(StrAux));
if P = 0 then P := Pos('ORDER', UpperCase(StrAux));
if P = 0 then SearchCondition := Trim(StrAux) else SearchCondition := Trim(Copy(StrAux, 1, P-1)); end;

// Consulta del número de registros
Q := TMDOQuery.Create(DM);
Q.Database := DM.MDODB; // Componente de base de datos
Q.Transaction := DM.MDOTranAction; // Transacción
if SearchCondition = '' then Q.SQL.Text := 'SELECT COUNT(*) "RecordCount" FROM '+TableName
else Q.SQL.Text := 'SELECT COUNT(*) "RecordCount" FROM '+TableName+' WHERE '+SearchCondition;
Q.Open;
Result := Q.FieldByName('RecordCount').AsInteger;
Q.Close;
Q.Free;
end;


Como se pueden dar cuenta, esta función extrae el nombre de la tabla o vista siempre que esta se encuentre entre comillas, así que habría que hacer una pequeña modificación para otros casos.

Hola mlara, me agrada que hayas compartido con nosotros tu código, pero tengo dudas acerca de éste. Pero, estoy seguro que se puede escribir un código un poco más sencillo. Además que pasa con los select anidados en condiciones?

Saludos.

[[Lepe]]

Cada motor tendrá sus detallitos.

Firebird 1.5 tiene una "variable" llamada ROWCOUNT que nos devuelve la cantidad de registros solicitados por el sql ejecutado anteriormente. No la he usado nunca, pero googleando no creo tengas probelmas en ver como funciona.

Yo hasta ahora lo había resuelto con el famoso count(clavePrimaria) y siempre para pocos registros.

Según he leido, las comillas dobles se usan cuando una tabla tiene el nombre de una palabra reservada o incluye espacios:

Código SQL [-]
select idcliente, password, nombre from mitabla

"password" es reconocida como parte del sql y no como nombre de un campo, aquí si hace falta entrecomillarla.

Yo al menos en Firebird no uso esta característica. Lamento no poder hablar nada de Oracle.

Saludos