Necesito mostrar el contenido de un base .MDB, en el foro he encontrado un ejemplo de Patricio, pero me sale error en la ejecución:
- Code: Select all Expand view
#include "FiveWin.ch"
#include "xBrowse.ch"
*
FUNCTION Main()
LOCAL oWnd,oRSet, oBrw
TRY
oConnection := CreateObject( "ADODB.Connection" )
CATCH oError
MsgStop( "No se ha podido crear el 'ADODB.Connection' "+ oError:Description )
RETURN
END
sConnectionString := "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\SISTEMAS\DATA\RELOJ.MDB; Persist Security Info=False"
TRY
oConnection:Open( sConnectionString )
CATCH oError
MsgStop( "No se ha podido conectar con la base "+ oError:Description )
RETURN
END
TRY
oRSet := CreateObject( "ADODB.RecordSet" )
CATCH oError
MsgStop( "No se ha podido crear el RECORDSET"+ oError:Description )
RETURN
END
oRSet:CursorLocation := adUseClient //Error en ejecucion
oRSet:LockType := adLockReadOnly //Error en ejecucion
oRSet:CursorType := adOpenForwardOnly //Error en ejecucion
oRSet:ActiveConnection( oConnection )
sSQLQuery := "SELECT * FROM TABLA"
TRY
oRSet:Open( sSQLQuery, oConnection )
CATCH oError
MsgStop( "No se ha podido crear el consulta SQL "+ oError:Description )
RETURN
END
oRSet:MoveFirst()
DO WHILE !oRSet:EOF
if oRSet:Fields(0):Value = "xxx"
//BLA..
endif
oRSet:MoveNext()
ENDDO
oRSet:Close()
Return Nil
Descargar la base desde: http://200.58.169.10/files/reloj.rar
Gracias por la aydua
Saludos
Adhemar