In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Problema en la modificación de campo

Foro público de Xailer en español
Responder
artur
Mensajes: 31
Registrado: Lun Sep 06, 2010 11:13 am

Problema en la modificación de campo

Mensaje por artur »

Hola!
Estoy haciendo una clases para buscar un resultado en una base de datos y cargar el valor en distintos tipos de objeto ( textBox , TDBbrowse).
La idea es la siguiente :
La clase tiene el siguiente constructor donde recibe la sentencia sql a ejecutar i el objeto oSender que es el objeto donde rellenara el resultado. Por ejemplo devolver el resultado en un textbox.
METHOD NEW(consulta,oSender)
::fconsulta:=consulta
::foSender:=oSender
Super:New()
return self
Luego al seleccionar el registro correcto ejecuta el siguiente código :
if ::oSender:ClassName = "TEditBtn"
::oSender:value:=::sqlQuery:PCTA(dsFIELD)+" "+::sqlQuery:PTIT(dsFIELD)
elseif ::oSender:clasSName="NUMERIC" .or. ::oSender:clasSName="CHARACTER"
::oSender:=::sqlQuery:PCTA(dsFIELD)+" "+::sqlQuery:PTIT(dsFIELD)
end
El problema es el siguiente :
* Si uso esta clase en un textbox ( primer caso ) no hay ningún problema y funciona bien pero al usarlo para cargar los datos en una celda de un TDBBrowse no funciona :S
¿ Alguna sugerencia / idea ? Voy mal encaminado ?
Arriba
Avatar de Usuario
Marcelo Coelho Silva
Mensajes: 269
Registrado: Sab May 31, 2008 4:49 pm
Ubicación: Brasil
Contactar:
Contactar Marcelo Coelho Silva

Problema en la modificación de campo

Mensaje por Marcelo Coelho Silva »

Prezado Artur,
Seu Metodo:
METHOD NEW(consulta,oSender)
::fconsulta:=consulta
::foSender:=oSender
Super:New()
return self
Modifique para:
METHOD NEW(consulta,oSender)
::fconsulta:=consulta
::foSender:=oSender
Return Super:New()
att.
Marcelo Coelho Silva
Brasil.
Em 20/09/2010 04:44, artur escreveu:
> Hola!
>
> Estoy haciendo una clases para buscar un resultado en una
> base de datos y cargar el valor en distintos tipos de objeto
> ( textBox , TDBbrowse).
>
> La idea es la siguiente :
> La clase tiene el siguiente constructor donde recibe la
> sentencia sql a ejecutar i el objeto oSender que es el
> objeto donde rellenara el resultado. Por ejemplo devolver el
> resultado en un textbox.
>
> METHOD NEW(consulta,oSender)
> ::fconsulta:=consulta
> ::foSender:=oSender
> Super:New()
> return self
>
> Luego al seleccionar el registro correcto ejecuta el
> siguiente código : if ::oSender:ClassName = "TEditBtn"
> ::oSender:value:=::sqlQuery:PCTA(dsFIELD)+"
> "+::sqlQuery:PTIT(dsFIELD)
>
> elseif ::oSender:clasSName="NUMERIC" .or. ::oSender:clasSName="CHARACTER"
> ::oSender:=::sqlQuery:PCTA(dsFIELD)+"
> "+::sqlQuery:PTIT(dsFIELD)
> end
>
> El problema es el siguiente : * Si uso esta clase en un textbox ( primer
> caso ) no hay
> ningún problema y funciona bien pero al usarlo para cargar
> los datos en una celda de un TDBBrowse no funciona :S
>
> ¿ Alguna sugerencia / idea ? Voy mal encaminado ?
Att.

Marcelo Coelho Silva
Brasil.
Arriba
Responder

Volver a “Xailer Spanish”