Mostrar base .MDB
Posted: Thu Aug 19, 2010 12:13 pm
Hola a todos
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:
Descargar la base desde: http://200.58.169.10/files/reloj.rar
Gracias por la aydua
Saludos
Adhemar
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