Xailer & OZ Software

HOLA A TODOS

TENGO ESTE CODIGO:

WITH OBJECT ::oUsuario // (TMariaDBDataSource)
:cDataBase := AppData:cDataBase
:cHost := AppData:cServer
:cUser := AppData:cUser
:cPassword := AppData:cPassWord
:nPort := 3306
:nTimeOut := 1000
:lConnected := .T.
:lDisplayErrors:= .T.
END

WITH OBJECT ::oQuery // (TSQLQuery)
:cSelect := "select * from usuarioext"
:nCursorType := adOpenDynamic
:nLockType := adLockOptimistic
:cProcess := 'GENERAL'
IF :lOpen
:Close()
ENDIF
IF !:lOpen
:lOpen:= .T.
IF !:lOpen
MsgStop( "ERROR: No es posible abrir el archivo Usuarioext", "Error de conexion.." )
RETURN NIL
ENDIF
ENDIF
:lReadOnly := .F.
IF :RecCount() = 0
:FastAddNew()
:Num := 1
:Nombre := 'Administrador'
:Clave := '1'
:FastUpdate()
:Refresh()
ENDIF
END

LA BASE DE DATOS SE CONECTA CORRECTAMENTE PERO AL INTENTAR EL QUERY APARECE :

" No DataSource, imposible to continue "

SALUDOS

DANIEL PECHIR TAGER

PERDON A TODOS

ME FALTABA LA PROPIEDAD

:oDataSource := AppData:oMySqlDS

DIOE LES BENDICE

DANIEL PECHIR