Problema con la funcion recordcount de los TIBQuery

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