[Lazarus-es] Problema con TSQLQuery

Joel Petit joelptit en hotmail.com
Lun Abr 5 16:36:36 CEST 2010


Saludos...

Para comenzar quiero comentarles que uso como motor de base de datos Postgresql. 

Les comento que el codigo que ven abajo funciona correctamente. El Problema está cuando le quito la funcion StrToInt a la variable

grup en la linea 7. Pareciera lógico que por eso diera error pues en la base de datos el campo grp_codigo (linea 7) es de tipo integer pero

según tengo entendido, el objeto TSQLQuery deberia tomar las variables como parametro en tipo string y el mismo objeto convertirlas 

en sus respectivos tipos cuando haga la consulta.

 

Mi pregunta es la siguiente: si este mismo trozo de codigo sin la función StrToInt en la linea 7 funciona en otros computadores, ¿porque en mi computador solo funciona con la función StrToInt? 

 

PD. : Este trozo de código pertenece a un proyecto que ya está terminado, solo se le están agregando otras funciones, pero no me parece lógico cambiar toda

ves que aparesca un objeto TSQLQuery (en todo el proyecto) para que los parametros que se les están pasando vayan segun el tipo de campo que está en la

base de datos.

 

.

.

.

 


var
   grup: String;
begin
    grup:=frmmd.grupo;
    qobjetos.Close;
    qobjetos.Params.ParamByName('accsis_objeto').Value:=objeto;  
    qobjetos.Params.ParamByName('grp_codigo').Value:=StrToInt(grup); 
    qobjetos.Open;
    if not qobjetos.IsEmpty then
    begin
         permiso:=False;
    end
       else
    begin
        permiso:=True;
    end;  
end;
 

 
 		 	   		  
_________________________________________________________________
News, entertainment and everything you care about at Live.com. Get it now!
http://www.live.com/getstarted.aspx
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20100405/dc52c9b1/attachment-0002.html>


More information about the Lazarus-es mailing list