[Lazarus-es] Uso de par?metros

Ismael L. Donis Garc?a ismael en citricos.co.cu
Mar Dic 22 23:39:54 CET 2009


Lo estaba ejecutando antes de asignar el SQL.Text, pero lo probé moviéndolo 
y tampoco funciona, da el mismo error:

En la prueba puse:

strsql := 'select mpdatge.mpdp, mpdatge.clave from mpdatge where 
((mpdatge.entidad)=:pEntidad)';
ejecrsbuscar(strsql, true, false);

procedure Tfrmlogin.ejecrsbuscar(sqlstr: string; blnopen: boolean;
  blnwrite: boolean);
begin
  try try
    if trabuscar.Active then trabuscar.Commit;
  except on e:exception do
    trabuscar.Rollback;
  end;
  finally
    trabuscar.EndTransaction;
  end;
  rsbuscar.Close;
  rsbuscar.SQL.Clear;
  if blnopen then
    begin
      rsbuscar.ReadOnly := blnwrite;
      rsbuscar.SQL.Text := sqlstr;
      rsbuscar.Params.ParamByName('pEntidad').AsString:=dtm.strentidad; // 
aquí da el error
      trabuscar.StartTransaction;
      rsbuscar.Open;
    end;
end;

Saludos reiterados
=========
¦¦ ISMAEL ¦¦
=========
"----- Mensaje original ----- 
De: "JoshyFun" <joshyfun en gmail.com>
Para: "Spanish version of Lazarus List" 
<lazarus-es en lists.lazarus.freepascal.org>
Enviado: martes, 22 de diciembre de 2009 02:51
Asunto: Re: [Lazarus-es] Uso de par?metros


Hello Ismael,

Tuesday, December 22, 2009, 9:36:29 PM, you wrote:

ILDGa> Si eso estoy claro, pero es a la hora de pasarle el valor al 
parámetro.
ILDGa> Lo trato de hacer de la siguiente forma pero da error:
ILDGa> rsbuscar.Params.ParamByName('pEntidad').AsString:=dtm.strentidad;
ILDGa> Como es que hay que pasarle el valor?

Así está bien.

ILDGa> rsbuscar.Params.ParamByName('pEntidad').AsString:=dtm.strentidad;

Si te da el error en el momento de la asignación debe de ser que el
SQL.Text no dispone de ese campo, aunque me extraña que haga el
"parsing" cada vez que asignas un parámetro.

A menos que rsbuscar esté "active", en ese caso si es posible que de
un error de ese tipo (más tarde lo intento).

-- 
Best regards,
 JoshyFun


_______________________________________________
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