Error en algunos Querys
Publicado: Sab Abr 24, 2021 3:50 am
Hola a todos
Me está dando problemas mi programa: Ya estoy conectado a mi sitio Web pero en algunos casos No en todos dice que la tabla no existe, y SI EXISTE
WITH OBJECT ::oPrecios
:oDataSource := AppData:oMySqlDS
:cSelect := "select * from Precio Where Num = '"+cNlista+"'"
:nCursorType := adOpenDynamic
:nLockType := adLockOptimistic
:cProcess := 'GENERAL'
IF :lOpen
:Close()
ENDIF
IF !:lOpen
:lOpen:= .T.
IF !:lOpen
MsgStop( "ERROR: No es posible abrir el archivo Precio", "Error de conexion.." )
RETURN NIL
ENDIF
ENDIF
:lReadOnly := .F.
:GoTop()
IF :RecCount() > 0
cLista := :Descrip
ELSE
cLista := 'No Asignada'
ENDIF
::oPrecio:Value:= cLista
END
Me está dando problemas mi programa: Ya estoy conectado a mi sitio Web pero en algunos casos No en todos dice que la tabla no existe, y SI EXISTE
WITH OBJECT ::oPrecios
:oDataSource := AppData:oMySqlDS
:cSelect := "select * from Precio Where Num = '"+cNlista+"'"
:nCursorType := adOpenDynamic
:nLockType := adLockOptimistic
:cProcess := 'GENERAL'
IF :lOpen
:Close()
ENDIF
IF !:lOpen
:lOpen:= .T.
IF !:lOpen
MsgStop( "ERROR: No es posible abrir el archivo Precio", "Error de conexion.." )
RETURN NIL
ENDIF
ENDIF
:lReadOnly := .F.
:GoTop()
IF :RecCount() > 0
cLista := :Descrip
ELSE
cLista := 'No Asignada'
ENDIF
::oPrecio:Value:= cLista
END