[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