[Lazarus-es] M?s dudas

[Ismael L. Donis Garc?a]

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