Sentencia SQL desde Delphi con Cremillas

[roman]

Empezado por newtron

si hubiera andado por este foro hace unos años de forma habitual lo hubiera montado todo con Firebird.

En el error cargas la penitencia...

// Saludos

[[newtron]]

Empezado por roman

En el error cargas la penitencia...

// Saludos

Bueno, ahora que no se vende un pimiento y tengo tiempo igual me pongo poquito a poco a convertir todo a Firebird. Estimo que en un par de años puedo tener ya una versión beta.

[Casimiro Noteví]

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

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