[Lazarus-es] SQLQuery

Claudio Romero clauslack en gmail.com
Jue Sep 24 13:52:42 CEST 2015


Aqui hay un procedimiento de ejemplo, solo le paso el SQL (INSERT,
UPDATE, DELETE) y la Ibconeccion y crea todo dinamicamente.
Para que lo uses asi, o de guia.
Saludos

procedure EjecutaSql(consulta:string;IBexecSql:TIBConnection);
var SQLQuery1:TSQLQuery;SQLTransaction1:TSQLTransaction;
begin
    try
        SQLQuery1:=TSQLQuery.Create(nil);
        SQLTransaction1:=TSQLTransaction.Create(nil);
        SQLTransaction1.DataBase:=IBexecSql;
        SQLQuery1.UsePrimaryKeyAsKey:=false;
        SQLQuery1.Transaction:=SQLTransaction1;
        //
        SQLQuery1.SQL.add(consulta);
        try
              SQLTransaction1.StartTransaction;
            SQLQuery1.ExecSQL;
            SQLTransaction1.Commit;
        except on e:exception do
               begin
                SQLTransaction1.Rollback;
                mensajeExcepcion('procedure EjecutaSql'+#13+'Error al
ejecutar: '+#13+consulta+#13+e.message);
            end;
        end;
    finally
        SQLTransaction1.free;
        SQLQuery1.free;
    end;
end;

El día 24 de septiembre de 2015, 8:47, Héctor Fiandor
<hfiandor en ceniai.inf.cu> escribió:
> Estimados miembros de la lista:
>
>
>
> Estoy usando Lazarus para la aplicación y sqlite para las BD.
>
>
>
> He usado la facilidad SQLQuery para mostrar un Reporte de una consulta
> simple, usando en el DataModule el SQLQuery, la Coneccion y la Trnsition, y
> quiero conocer si tengo que usar la Conección y la Transitión para consultas
> simples y en qué orden debo cerrarlas cuando termine el Reporte.
>
>
>
> Anticipándole las gracias,
>
>
>
> Ing. Héctor Fiandor
>
> hfiandor en ceniai.inf.cu
>
>
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>




More information about the Lazarus-es mailing list