[Lazarus-es] zeos-firebird: ejemplo transacciones

Paola Bruccoleri pbruccoleri en adinet.com.uy
Lun Mayo 10 18:51:45 CEST 2010


Ismael L. Donis García escribió:
> rsbuscar.SQL.Clear;
> rsbuscar.SQL.Text := 'execute procedure p_num_rec(:vch_entidad, 
> :sin_almacen)';
> rsbuscar.Params.ParamByName('vch_entidad').AsString:='nombre_de_la_entidad'; 
>
> rsbuscar.Params.ParamByName('sin_almacen').AsSmallInt:=número_del_almacén; 
>
> trabuscar.StartTransaction;
> rsbuscar.Open;
> numero_de_la_recepción := rsbuscar.FieldByName('int_nrec').AsInteger;
Hola!!
agradezco a todos por las ideas que me han dado respecto a este tema... 
ya casi casi tengo todo funcionando... veré esta tarde de seguir en esto!!
chauuuuuuuuuuu





More information about the Lazarus-es mailing list