Saludos cuando ejecuto el comando ::oMySQL:Locate( "Prd_Producto = '" +
cProducto + "'" ) aveces lo encuentra y aveces me trae otro que nada
tiene que ver ! ah alguien le ah pasado esto ?
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.
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 con locate MySQL!!!
-
- Mensajes: 148
- Registrado: Mar Dic 18, 2007 4:39 pm
Problema con locate MySQL!!!
Diego,
> Saludos cuando ejecuto el comando ::oMySQL:Locate( "Prd_Producto = '" +
> cProducto + "'" ) aveces lo encuentra y aveces me trae otro que nada tiene
> que ver ! ah alguien le ah pasado esto ?
Yo he trabajado con MySQL y no me ha pasado. Habría que ver exactamente qué,
cómo y cuando ocurre. Envíanos un ejemplo que podamos reproducir.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
> Saludos cuando ejecuto el comando ::oMySQL:Locate( "Prd_Producto = '" +
> cProducto + "'" ) aveces lo encuentra y aveces me trae otro que nada tiene
> que ver ! ah alguien le ah pasado esto ?
Yo he trabajado con MySQL y no me ha pasado. Habría que ver exactamente qué,
cómo y cuando ocurre. Envíanos un ejemplo que podamos reproducir.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
-
- Mensajes: 24
- Registrado: Dom Jun 05, 2005 6:16 pm
Problema con locate MySQL!!!
Diego Ferreira escribió:
> Saludos cuando ejecuto el comando ::oMySQL:Locate( "Prd_Producto = '" +
> cProducto + "'" ) aveces lo encuentra y aveces me trae otro que nada
> tiene que ver ! ah alguien le ah pasado esto ?
A mi me pasa exactamente lo mismo.. y cuando los encuentra el browse no
se refresca bien y el registro encontrado queda como ultimo del browse..
SAludos
> Saludos cuando ejecuto el comando ::oMySQL:Locate( "Prd_Producto = '" +
> cProducto + "'" ) aveces lo encuentra y aveces me trae otro que nada
> tiene que ver ! ah alguien le ah pasado esto ?
A mi me pasa exactamente lo mismo.. y cuando los encuentra el browse no
se refresca bien y el registro encontrado queda como ultimo del browse..
SAludos
- Carlos Ortiz
- Mensajes: 873
- Registrado: Mié Jul 01, 2009 5:44 pm
- Ubicación: Argentina - Córdoba
- Contactar:
Problema con locate MySQL!!!
Yo lo hago de esta manera para devolver los datos de un registro con una
sentencia sql estandar.
//---
METHOD DevolverPorID( ID ) CLASS Articulos
//---
local ret , oDataSet:=TOdbcDataSet():New()
oDataSet:Close()
oDataSet:=AppData:oSql:QU( "select descripcion, codigo, IDTipoArticulo,
idtipoalicuota, alta, baja, idestadoregistro, idproveedor, idorigen from
articulos where IDArticulo="+str(ID) )
oDataSet:Open()
IF oDataSet:reccount()>0
// Levanto los datos de articulo y lo seteo en las propiedades de su
clase
::IDArticulo :=ID
::Descripcion :=oDataSet:Descripcion
::Codigo :=oDataSet:Codigo
::IDTipoArticulo :=oDataSet:IDTipoArticulo
::idtipoalicuota :=oDataSet:idtipoalicuota
::alta :=oDataSet:alta
::baja :=oDataSet:baja
::idestadoregistro:=oDataSet:idestadoregistro
::idproveedor :=oDataSet:idproveedor
::idorigen :=oDataSet:idorigen
ret := .T.
ENDIF
oDataSet:Close()
RETURN ret
la llamda a AppData:oSql:QU() es un query en realidad pero hemo añadido esta
capa para hacer pasar todo por una funcion nuestra que de paso atrapa los
errores y demás.
Atte. CO.
sentencia sql estandar.
//---
METHOD DevolverPorID( ID ) CLASS Articulos
//---
local ret , oDataSet:=TOdbcDataSet():New()
oDataSet:Close()
oDataSet:=AppData:oSql:QU( "select descripcion, codigo, IDTipoArticulo,
idtipoalicuota, alta, baja, idestadoregistro, idproveedor, idorigen from
articulos where IDArticulo="+str(ID) )
oDataSet:Open()
IF oDataSet:reccount()>0
// Levanto los datos de articulo y lo seteo en las propiedades de su
clase
::IDArticulo :=ID
::Descripcion :=oDataSet:Descripcion
::Codigo :=oDataSet:Codigo
::IDTipoArticulo :=oDataSet:IDTipoArticulo
::idtipoalicuota :=oDataSet:idtipoalicuota
::alta :=oDataSet:alta
::baja :=oDataSet:baja
::idestadoregistro:=oDataSet:idestadoregistro
::idproveedor :=oDataSet:idproveedor
::idorigen :=oDataSet:idorigen
ret := .T.
ENDIF
oDataSet:Close()
RETURN ret
la llamda a AppData:oSql:QU() es un query en realidad pero hemo añadido esta
capa para hacer pasar todo por una funcion nuestra que de paso atrapa los
errores y demás.
Atte. CO.
@dbfarma
www.dbfarma.com.ar
www.dbfarma.com.ar