
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML><HEAD>

<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">

<META content="MSHTML 6.00.6000.16850" name=GENERATOR>

<STYLE></STYLE>

</HEAD>

<BODY>

<DIV><FONT face=Arial>Si. Declaración</FONT></DIV>

<DIV><FONT face=Arial></FONT> </DIV>

<DIV><FONT face=Arial>public<BR>  { public declarations }<BR>  

strentidad: string;<BR></FONT></DIV>

<DIV><FONT face=Arial>A la hora de ejecutarlo:</FONT></DIV>

<DIV><FONT face=Arial></FONT> </DIV>

<DIV><FONT face=Arial>strsql := 'select mpdatge.mpdp, mpdatge.clave from mpdatge 

where 

((mpdatge.entidad)=:pEntidad)';<BR>rsbuscar.Params.ParamByName('pEntidad').AsString:=dtm.strentidad;   

// aquí da el error:</FONT></DIV>

<DIV><FONT face=Arial>ejecrsbuscar(strsql, true, false);<BR></FONT></DIV>

<DIV><FONT face=Arial>//Procedimiento ejecutado</FONT></DIV>

<DIV><FONT face=Arial>procedure Tfrmlogin.ejecrsbuscar(sqlstr: string; blnopen: 

boolean; blnwrite: boolean);<BR>begin<BR>  try 

try<BR>    if trabuscar.Active then trabuscar.Commit;<BR>  

except on e:exception do<BR>    trabuscar.Rollback;<BR>  

end;<BR>  finally<BR>    trabuscar.EndTransaction;<BR>  

end;<BR>  rsbuscar.Close;<BR>  rsbuscar.SQL.Clear;<BR>  if 

blnopen then<BR>    begin<BR>      

rsbuscar.ReadOnly := blnwrite;<BR>      

rsbuscar.SQL.Text := sqlstr;<BR>      

trabuscar.StartTransaction;<BR>      

rsbuscar.Open;<BR>    end;<BR>end;<BR></FONT></DIV><FONT 

face=Arial></FONT>

<DIV><FONT face=Arial><IMG alt="" hspace=0 

src="cid:8C42256379224982897F133DAEC60F9B@desarrollo" align=baseline 

border=0></FONT></DIV>

<DIV><FONT face=Arial></FONT> </DIV>

<DIV><FONT face=Arial>DataType: ftString</FONT></DIV>

<DIV><FONT face=Arial>Name: pEntidad</FONT></DIV>

<DIV><FONT face=Arial>NumericScale: 0</FONT></DIV>

<DIV><FONT face=Arial>ParamType: ptInput</FONT></DIV>

<DIV><FONT face=Arial>Precision: 0</FONT></DIV>

<DIV><FONT face=Arial>Size: 0</FONT></DIV>

<DIV><FONT face=Arial>=========<BR>ŚŚ ISMAEL 

ŚŚ<BR>=========<BR></FONT></DIV></BODY></HTML>