Problema con la funcion recordcount de los TIBQuery

[[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

[[mlara]]

Bueno, ante las inquietudes leamos primero esto (extraído de http://www.firebirdsql.org/manual/es...ebird-sql.html):

Antes del estándar SQL-92, no era legal tener nombres de objetos (identificadores) en una base de datos que fueran iguales a las palabras claves del lenguaje, distinguieran mayúsculas de minúsculas, o contuvieran espacios. SQL-92 introdujo un nuevo estándar para hacer legales todas esas cosas, siempre que los identificadores fueran rodeados por un par de símbolos de comilla doble (ASCII 34) y fueran siempre referidos delimitados por comillas dobles.

El propósito de este “regalo” era hacer más fácil migrar metadatos desde RDBMSs no estándares. La parte mala es que, si Ud. elige encerrar un identificador con comillas dobles, distinguirá entre mayúsculas y minúsculas y será obligatorio siempre escribirlo entre comillas dobles.

Firebird permite una ligera relajación de esta regla si se cumple un conjunto de condiciones muy especial: si el identificador que fue definido entre comillas dobles:

1. fue definido totalmente en mayúsculas,
2. no es una palabra clave, y
3. no contiene espacios,

...entonces puede ser usado en SQL sin comillas y sin prestar atención a mayúsculas y minúsculas (¡pero en cuanto le pone comillas alrededor, debe coincidir las mayúsculas nuevamente!)

Gusto de usar comilllas para los nombres de objetos en mis bases de datos, sin embargo, podríamos hacer una modificación al código de la función para que no solamente funcione con nombres de tablas encerrados entre comillas. Es muy sencillo. La función queda así:

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 // Aquí se cambió el caracter " (comilla doble) por un espacio.
        Inc(C);
      case C of
        1:
          TableName := TableName + StrAux[i];
        2:
          begin
            TableName := TableName + StrAux[i];
            Break;
          end
      end;
    end
    // Esta línea no es del todo necesaria
    TableName := Trim(TableName);
  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;

De esta manera es independiente el hecho de que las tablas entén o no encerradas entre comillas.

Como dije anteriormente se trata de una función que permite extraer el número de registros totales de devueltos por una consulta simple. No soporta SELECT anidados, y se supone que sólo existe una expresión condicional entre las palabras clave WHERE Y GROUP u ORDER.

Precisamente por esto propongo a los interesados hacer modificaciones a esta función, que quizá más adelante les sirva a muchos.