FireBird + Delphi 7

[[Caral]]

Hola
Por eso digo, no hay que ser un maestro para saber algo tan básico.
Seguir insistiendo en que un table.open es eficiente o que es lo mismo que hacerlo por SQL, es perder el tiempo.
Me sigue extrañando que AzidRain defienda lo indefendible y que ademas mcs insista en esto sin conocimiento alguno, notable.
Soy novato, pero hay mas principiantes.
Saludos

[Casimiro Noteví]

Por eso las originales FreeIB Components no traían componente TTable, porque querían primar la velocidad y eficiencia. Después, las siguientes herencias creadas a partir de las FreeIB que han querido seguir siendo eficientes tampoco han traído ese componente, como FIBL, FIBplus, etc.
Sin embargo, Borland sí añadió una TIBTable en las IBX, heredadas, como todos sabemos, de FreeIB, seguramente por hacerlo más cómodo a los que venían de usar paradox o access.

Empezado por IBX

SQL := TStringList.Create;
SQL.Text := 'select ' + {do not localize}
QuoteIdentifier(DataBase.SQLDialect, FTableName) + '.*, ' {do not localize}
+ 'RDB$DB_KEY as IBX_INTERNAL_DBKEY from ' {do not localize}
+ QuoteIdentifier(DataBase.SQLDialect, FTableName);
if Filtered and (Filter <> '') then
begin
SQL.Text := SQL.Text + ' where ' + Filter; {do not localize}
bWhereClausePresent := True;

Que como se puede observar también usa, obviamente, un " select * ".
Luego, los MDO (Mercury Database Objects), que no heredaron de FreeIB, sino que decidieron heredar de IBX, también lleva un TTable, que el código parece el mismo de las IBX:

Empezado por MDO

SQL := TStringList.Create;
SQL.Text := 'select ' + {do not localize}
QuoteIdentifier(DataBase.SQLDialect, FTableName) + '.*, ' {do not localize}
+ 'RDB$DB_KEY as IBX_INTERNAL_DBKEY from ' {do not localize}
+ QuoteIdentifier(DataBase.SQLDialect, FTableName);
if Filtered and (Filter <> '') then
begin
SQL.Text := SQL.Text + ' where ' + Filter; {do not localize}
bWhereClausePresent := True;

Bueno, no parece, es que es el mismo código

Y ya no sigo con esto, creo que está claro el tema.

[mcs]

Hola otra vez!

Soy tozudo como una mula, y seguía con mi idea que los IBDAC no podían estar TAN mal programados.

Y teneis CASI LA RAZON! En las IBDAC, los componentes que uso en el curro y que he recomendado al comapñero Gimli, un table.open se traduce en:

SELECT COUNT(*) FROM table;
SELECT * FROM table;

O sea, que no sé si puede haber algo más ineficiente... Muchas gracias por participar en este debate, y por haberme hecho dudar. Debido a esto, me he animado a hacer la prueba...

Saludos,

Marc

[Casimiro Noteví]

Empezado por mcs

[..] Soy tozudo como una mula, y seguía con mi idea que los IBDAC no podían estar TAN mal programados.

No es que estén mal programados, es que no hay otra forma de hacerlo. Ten en cuenta que, por ejemplo, en una tabla dbf, hay una cabecera donde indica la estructura de los datos, la longitud que ocupa cada registro y el total de registros, entre otros. Si quieres ir al último registro sólo tienes que avanzar el puntero (UltimoRegistro*OcupacionDeCadaRegistro). Que quieres ir al registro 1000, pues multiplicas 1000*OcupacionDeCadaRegistro y posicionas el puntero en ese lugar del fichero.
Pero una base de datos relacional no tiene nada que ver con una tabla plana. En una RDBMS hay registros (y campos) con longitud variable, no existe un primer registro y un último registro, todo depende del orden con el que los queramos presentar. No podemos ir al último registro porque no sabemos cual es, ¿el último ordenado por fecha, por código, por nombre, etc.?, cuando hacemos un select traemos sólo unos pocos registros, por ejemplo, si los presentamos en un dbgrid normalmente serán justos los que quepan en pantalla, luego se irán trayendo los siguientes según avanzamos en el dbgrid, y si le damos "ir al final" entonces se traerá todos los registros.
Son filosofías muy distintas de trabajo.

Empezado por mcs

SELECT COUNT(*) FROM table;
SELECT * FROM table;

¿Por qué IBDAC hace eso?, está claro, para que "parezca" que es una tabla "normal", primero cuenta los registros que hay, además lo hace muy ineficientemente (el asterisco), podría usar uno sólo de los campos que tenga índice, sería mucho más rápido. Y una vez que sabe cuantos registros hay, o sea, ha tenido que ir hasta el último campo para traérselos todos, es ahora cuando hace un select de todos los campos, otra vez el *, y sigue la ineficiencia elevada al cuadrado

Pero, repito, no es que esté mal programado, es que si quieres simular una tabla plana con un RDBMS no tienes otra solución.
La otra solución es hacer lo mismo que FreeIB, FIBL, FIBplus, etc. ¡¡¡no tener componente TTable!!!

Estas cosas se aprende estudiando bastante en profundidad las bases de datos, su código fuente, descubres cosas curiosas, trucos interesantes y algunos fallos tremendos. Las bases de datos son una de mis aficiones, me gusta inspeccionar cómo están hechas, hace muchos años hice un sistema de bases de datos como el de los dbf, al que añadí control multiusuario para red local. Y años más tarde hice otro sistema de gestión de bases de datos (un sistema Btree+) también con control de bloqueos, multiusuario, red, journaling, etc. en lenguaje C, lo utilicé en algunos proyectos propios y la verdad es que funcionaban muy bien estable y muy rápido.
Lástima que los perdí en un disco defectuoso, estoy hablando de la época 1990 a 1995, ya ha llovido

[[Delphius]]

Empezado por Casimiro Notevi

No es que estén mal programados, (...)

Estas cosas se aprende estudiando bastante en profundidad las bases de datos, su código fuente, descubres cosas curiosas, trucos interesantes y algunos fallos tremendos. Las bases de datos son una de mis aficiones, me gusta inspeccionar cómo están hechas, hace muchos años hice un sistema de bases de datos como el de los dbf, al que añadí control multiusuario para red local. Y años más tarde hice otro sistema de gestión de bases de datos (un sistema Btree+) también con control de bloqueos, multiusuario, red, journaling, etc. en lenguaje C, lo utilicé en algunos proyectos propios y la verdad es que funcionaban muy bien estable y muy rápido.
Lástima que los perdí en un disco defectuoso, estoy hablando de la época 1990 a 1995, ya ha llovido

¡Hey! Cuidado con mi apellido... ¡que no tiene nada de malo el tener una mente cuadrada!

Veo amigo que te gusta mucho el tema de bases de datos, yo todavía no me animé a ver el code de Firebird... por empezar no se de C (y C++, ahora Firebird se ha portado a este) y el tema de los árboles B+ me suena un tantito a chino y que decir de snapshots... al concepto lo entiendo... la pregunta es ¿Y técnicamente, como se lo programa?

¿Haz considerado meterte bien de lleno en aportar tus conocimientos formando parte oficial de Firebird Proyect?

Saludos,

[Casimiro Noteví]

Empezado por Delphius

[..] ¿Haz considerado meterte bien de lleno en aportar tus conocimientos formando parte oficial de Firebird Proyect?

Sí, lo he pensado algunas veces, y estoy convencido de que puedo colaborar en algunos apartados, pero tendría que dedicarle muchísimo tiempo y dedicación para conocer a fondo el código del mismo, por lo que surgen varios problemas respecto a eso:

Código Delphi [-]
while NecesitoGanarmeLasHabichuelas do
begin
  if getTiempoParaConocerEnProfundidadElProyecto then
    ColaborarEnProyecto('xxx');
end;

function getTiempoParaConocerEnProfundidadElProyecto:boolean;
begin
  result := false;
  if Jubilado or HerenciaRecibida or GanadoLoteria then
    result := true;
end;

Por si fuese poco, el inglés y yo estamos peleados


p.d. Evidentemente, dedicándole el suficiente tiempo y dedicación, no sólo yo podría colaborar, también cualquiera de vosotros.

[[Delphius]]

A Pues, si... viéndolo de ese modo esta difícil. Es una de las cosas malas que tiene este mundito... le hemos dado a él un valor tan alto que cualquier otro interés y gusto no puede ganarle una apuesta.

Es muy cierto amigo, cuesta y lleva tiempo es adentrarse en cualquier proyecto ya comenzado y maduro para ponerse al día.

Lástima, estoy convencido que podrías ser de mucha utilidad para el equipo y el proyecto.

Yo ya he dejado en pausa las traducciones. Logré traducir casi todos los documentos "Utility" (de hecho, me faltó nBackup solamente), Ernesto Cullen me había pasado algunas correcciones del primer documento, lo corregí y añadí algunas sugerencias y observaciones para conocer su opinión al respecto de algunas cosas y no he vuelto a recibir respuesta. Ya me había dicho que el estaba bastante ocupado y se le hacía difícil sacar tiempo para ver como andan mis documentos.
Es una lástima que esto esté quedando en "veremos", sería un buen aporte para la comunidad en Español el tener a mano documentación en el idioma. Para colmo yo ahora también ando entrando en falta de tiempo.

Saludos,

[[Delphius]]

Por cierto... la función:

Código Delphi [-]
function getTiempoParaConocerEnProfundidadElProyecto:boolean;
begin
  result := false;
  if Jubilado or HerenciaRecibida or GanadoLoteria then
    result := true;
end;

Puede simplificarse así:

Código Delphi [-]
function getTiempoParaConocerEnProfundidadElProyecto:boolean;
begin
  result := Jubilado or HerenciaRecibida or GanadoLoteria;
end;

Saludos,