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.

DataSource

Foro de Xailer profesional en español
Daniel Pechir
Posts: 116
Joined: Fri Mar 15, 2013 12:32 am

DataSource

Postby Daniel Pechir » Thu Aug 11, 2016 7:36 pm

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
Daniel Pechir
Posts: 116
Joined: Fri Mar 15, 2013 12:32 am

Re: DataSource

Postby Daniel Pechir » Thu Aug 11, 2016 9:24 pm

PERDON A TODOS

ME FALTABA LA PROPIEDAD

:oDataSource := AppData:oMySqlDS

DIOE LES BENDICE

DANIEL PECHIR

Return to “Spanish”