<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<STYLE>.hmmessage P {
PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; PADDING-TOP: 0px
}
BODY.hmmessage {
FONT-FAMILY: Verdana; FONT-SIZE: 10pt
}
</STYLE>
<META name=GENERATOR content="MSHTML 8.00.6001.18702"></HEAD>
<BODY class=hmmessage bgColor=#ffffff>
<DIV><FONT face=Arial>No has probado con:</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV>qobjetos.Params.ParamByName('grp_codigo').AsInteger:=grup;</DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Saludos</FONT></DIV>
<DIV>=========<BR>|| ISMAEL ||<BR>=========</DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #000000 2px solid; PADDING-LEFT: 5px; PADDING-RIGHT: 0px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="FONT: 10pt arial; BACKGROUND: #e4e4e4; font-color: black"><B>From:</B>
<A title=joelptit@hotmail.com href="mailto:joelptit@hotmail.com">Joel
Petit</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A
title=lazarus-es@lists.lazarus.freepascal.org
href="mailto:lazarus-es@lists.lazarus.freepascal.org">lazarus-es@lists.lazarus.freepascal.org</A>
</DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Monday, April 05, 2010 9:36
AM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> [Lazarus-es] Problema con
TSQLQuery</DIV>
<DIV><BR></DIV>Saludos...<BR>Para comenzar quiero comentarles que uso como
motor de base de datos Postgresql. <BR>Les comento que el codigo que ven abajo
funciona correctamente. El Problema está cuando le quito la funcion
<EM>StrToInt </EM>a la variable<BR><EM>grup </EM>en la linea 7. Pareciera
lógico que por eso diera error pues en la base de datos el campo
<EM>grp_codigo (linea 7) </EM>es de tipo integer pero<BR>según tengo
entendido, el objeto TSQLQuery deberia tomar las variables como parametro en
tipo string y el mismo objeto convertirlas <BR>en sus respectivos tipos cuando
haga la consulta.<BR> <BR>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?
<BR> <BR>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<BR>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<BR>base de
datos.<BR> <BR>.<BR>.<BR>.<BR> <BR>
<OL>
<LI>var
<LI> grup: String;
<LI>begin
<LI> grup:=frmmd.grupo;
<LI> qobjetos.Close;
<LI>
qobjetos.Params.ParamByName('accsis_objeto').Value:=objeto;
<LI>
qobjetos.Params.ParamByName('grp_codigo').Value:=StrToInt(grup);
<LI> qobjetos.Open;
<LI> if not qobjetos.IsEmpty then
<LI> begin
<LI> permiso:=False;
<LI> end
<LI> else
<LI> begin
<LI> permiso:=True;
<LI> end;
<LI>end;</LI></OL> <BR> <BR><BR>
<HR>
Get news, entertainment and everything you care about at Live.com. <A
href="http://www.live.com/getstarted.aspx " target=_new>Check it out!</A>
<P>
<HR>
<P></P>_______________________________________________<BR>Lazarus-es mailing
list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR></BLOCKQUOTE></BODY></HTML>