[Lazarus-es] Uso de par?metros

Ismael L. Donis García ismael en citricos.co.cu
Mar Dic 22 22:44:36 CET 2009


Si. Declaración

public
  { public declarations }
  strentidad: string;

A la hora de ejecutarlo:

strsql := 'select mpdatge.mpdp, mpdatge.clave from mpdatge where ((mpdatge.entidad)=:pEntidad)';
rsbuscar.Params.ParamByName('pEntidad').AsString:=dtm.strentidad;   // aquí da el error:
ejecrsbuscar(strsql, true, false);

//Procedimiento ejecutado
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;
      trabuscar.StartTransaction;
      rsbuscar.Open;
    end;
end;



DataType: ftString
Name: pEntidad
NumericScale: 0
ParamType: ptInput
Precision: 0
Size: 0
=========
¦¦ ISMAEL ¦¦
=========
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20091222/f332977e/attachment-0002.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: parametros2.JPG
Type: image/jpeg
Size: 7035 bytes
Desc: no disponible
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20091222/f332977e/attachment-0002.jpe>


More information about the Lazarus-es mailing list