Sentencia SQL desde Delphi con Cremillas

[[BlueSteel]]

lo que si os aseguro es que:

1.- Que me equivoque de nombre... si se que son comillas, pero tuve un lapsus, asi que aún no se por que le puse Cremillas...

2.- la funcion 1 de Roman me funciono super.... poner 2 comillas simples juntas me sirvio.

Salu2

[[newtron]]

Empezado por Casimiro Notevi

Pues si usa sql estandar (más o menos), la conversión puede ser rápida

Si, aunque basicamente tengo dos problemas:

1-Los triggers habría que rehacerlos totalmente porque el lenguaje cambia de forma radical y el problema no es desarrollarlos, es la depuración posterior.
2-El problema inicial era que la aplicación, al venir de usar bases de datos de escritorio está plagada de ttables por lo cual habría que buscar componentes de acceso a firebird que los contemplen, cosa que ya he hecho pero tendría que probar bien.

La verdad es que antes de cambiar todo el desarrollo a esta base de datos contraté a un supuesto "guru" de delphi para que me cambiara los componentes a firebird, cosa que se hizo (bajo un presupuesto a mi parecer excesivo). El problema es que se usaron los componentes dbexpress (quiero recordar) para los ttable y como imagino que sabréis estos componentes lo primero que hacen es un select * de la tabla y con tablas grandes el programa se hacía inoperativo. Cuando le comento el tema a mi "guru" la respuesta fue "esto no es renault ocasión, no hay milagros". Por otro lado cuando trincó la pasta se "olvidó" de rematar el tema y empezaron los problemas así que opté por pasar de todo y cambiarlo yo personalmente a ElevateDB que tiene componentes propios y no me resultó excesivamente complicado hacer la migración.

La ignorancia, algo después andando por aquí me di cuenta de que hay componentes de acceso a firebird a montones y muchos de ellos, sin importarme que fueran de pago tienen componentes ttable para el acceso a las tablas.

Saludos

[Casimiro Noteví]

Bueno, si necesitas un TTable, sólo tienes que usar un TIBDataSet y poner "select * from laTabla", ya tienes un TTable, que eso es lo que hacen todos, como ya sabes.

[[newtron]]

Empezado por Casimiro Notevi

Bueno, si necesitas un TTable, sólo tienes que usar un TIBDataSet y poner "select * from laTabla", ya tienes un TTable, que eso es lo que hacen todos, como ya sabes.

Ya, pero eso con tablas a partir de unos miles de registros no es operativo porque tardaría muchisimo en abrir la tabla, con la base de datos que yo uso la apertura de componentes ttable es inmediato independientemente del número de registros y quiero recordar que pasado esa historia estuve haciendo pruebas con algún componente de pago para firebird y también abrían los ttable de forma inmediata, pero ya era tarde.

[Casimiro Noteví]

Empezado por newtron

Ya, pero eso con tablas a partir de unos miles de registros no es operativo porque tardaría muchisimo en abrir la tabla, con la base de datos que yo uso la apertura de componentes ttable es inmediato independientemente del número de registros y quiero recordar que pasado esa historia estuve haciendo pruebas con algún componente de pago para firebird y también abrían los ttable de forma inmediata, pero ya era tarde.

uummm... creo que no

Abrir la tabla debe ser inmediato con todos, lo que ocurre es que algunos componentes tienen una propiedad para indicar si quieres que cargue todo en memoria o no.
Evidentemente, si tiene que cargarlos todos, por ejemplo, haciendo un 'fetch' (ir al final .last) o contar los registros, será lento cuando tengas muchos registros.
Pero todos trabajan igual, me explico, un componente Table es lo que he comentado antes, un Dataset que su sql pone "select * from tabla". No hay más, ni puede haberlo.
En este hilo se habló sobre ese tema y aquí están los resultados:

Zeos:

Código Delphi [-]
procedure TZAbstractTable.SetTableName(const Value: string);  
begin    
  if FTableName <> Value then    
  begin      
    FTableName := Value;      
    if Value <> '' then        
      SQL.Text := Format('SELECT * FROM %s', [FTableName])      
    else SQL.Text := '';
  end;
end;

IBX:

Código Delphi [-]
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;

MDO:

Código Delphi [-]
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;

IBDAC

Código Delphi [-]
select count(*) from table;
select * from table;

[[newtron]]

Pues con la base de datos que yo uso el tema de los ttable funciona exactamente igual que con bases de datos dbf, abres el ttable y directamente puedes pedir un recordcount, irte al final, etc de forma inmediata ya tenga uno o millones de registros. No sé, igual estoy confundido en algo pero funciona de esa forma.

[Casimiro Noteví]

Sí, bueno, para irte al final rápidamente puede tener, por ejemplo, un índice descendente. Pero de todas formas, salvo que sea una tabla muuuy grande y con muuuchos campos, será rápido siempre.
Y, por supuesto, un Ttable es un dataset con un "select *".
Otra cosa que se me ocurre en tu caso es que esa base de datos use técnicas de bases de datos de escritorio, que almacena el tamaño de cada registro y multiplica por la posición del registro que quieres ir y accede directamente a esa posición en la tabla. Pero en ese caso no usaría registros de longitud variable.
En fin, aunque he usado bases de datos dbisam, no conozco elevatedb.

[[newtron]]

Bueno, la verdad es que no sé cómo van las tripas de estas cosas. Lo único que pude comprobar es que con las pruebas que hacía con firebird tardaba bastantes segundos en abrir una tabla de algunos miles de registros y eso me hizo desistir de esa vía, sin embargo con esto es todo igual que con los dbf.

[Casimiro Noteví]

Claro, es que es muy diferente usar unos componentes u otros, no es lo mismo zeos que fibplus, la diferencia en velocidad es bastante significativa.
Pero, de todas formas, ahora mismo yo aplicaría el famoso: "si funciona, no lo toques". Es lo mejor

[[newtron]]

Empezado por Casimiro Notevi

Pero, de todas formas, ahora mismo yo aplicaría el famoso: "si funciona, no lo toques". Es lo mejor

Si, y además es de cómodo....

[Casimiro Noteví]

Empezado por newtron

Si, y además es de cómodo....

Y con el día que hace hoy, apetece más bajar al puerto y sentarse al solecito a mirar el mar

[[newtron]]

Empezado por Casimiro Notevi

Y con el día que hace hoy, apetece más bajar al puerto y sentarse al solecito a mirar el mar

..... o las churris...

[[Al González]]

Empezado por newtron

Por favor, si teneis un tema distinto del original deberiais de crear un hilo nuevo, ¿habéis leido ya la guía de estilo?