Una consulta, ¿ la clase TODBC() ya no se puede usar en HMG 3.4.4 ? - Estuve realizando pruebas y ya no funciona me lanza error:
Code: Select all
FUNC ODBCConecta
LOCAL lConectado := .T.
PUBLIC oConexion
PUBLIC aRecordSetX
cTexto := "Driver={MariaDb};Server=localhost;Database=infofarma;Uid=root;Pwd=miclave;"
DO WHILE .T.
oConexion := TODBC():New( cTexto )
IF oConexion:FETCH( 2 ) = -1
MsgExclamation( 'No se pudo conectar al servidor' )
lConectado := .F.
RETURN
ELSE
MsgInfo('Conexión exitosa.')
EXIT
ENDIF
ENDDO
RETURN( lConectado )
Att.