[Lazarus-es] M?s dudas

[Claudio Romero]

mE OLVIDE
HAY UN mensajeExcepcion
SOLO ES UNA RUTINA QUE muestra el mensaje, y graba en un archivo log
el error. Puedes Poner un ShowMessage, o lo que quieras.

2009/11/24 Ismael L. Donis Garc?a <ismael en citricos.co.cu>:
> 1 Millón de gracias.
>
> Has explicado superbien.
>
> GRACIAS Reiteradas
> =========
> ¦¦ ISMAEL ¦¦
> =========
> ----- Mensaje original -----
> De: "Claudio Romero" <clauslack en gmail.com>
> Para: "Spanish version of Lazarus List"
> <lazarus-es en lists.lazarus.freepascal.org>
> Enviado: martes, 24 de noviembre de 2009 08:55
> Asunto: Re: [Lazarus-es] Más dudas
>
>
> Por ej: con este procedimiento (Ejecutas INSERT, DELETE, u STORED
> PROCEDURE, o EXECUTE BLOCK) Usa SQLDB
> 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;
> //puedes llamarlo asi
>    sentencia:='EXECUTE PROCEDURE
> PAGO_FACTURA('+GclaveFactura+','+DBEtoco.text+','+Gfecha+',1,'+origen+')';
>    EjecutaSql(sentencia,IBConnection1);
>
> //En Firebird es asi EXECUTE PROCEDURE PAGO_FACTURA(CLAVE_FACT, TOCO,
> FECPAGO, VENPAGO1, ORIGEN)
>
> Saludos
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>