[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