Connecting readonly a .mdb MS ACCESS

[LarryM]

 Posted by:  LarryM 

Hi NG:

I have problem connecting readonly a .mdb MS ACCESS file.
Does anyone have an example of ODBC MS ACCES DB connectivity read only?

TIA

Larry

[Mike]

 Posted by:  Mike 

!!CB!! 70
Set SqlDatabaseOld=SqlDatabase
Set SqlUserOld=SqlUser
Set SqlPasswordOld=SqlPassword
Set SqlDatabase=''
Set SqlUser='Admin'
Set SqlPassword=''
If not SqlCreateSession(hSession,'Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=' || sAccessFileName)
Call fMsgBox('Database can not be opened')
Return FALSE
If not SqlCreateStatement(hSession,hSqlODBC)
Call fMsgBox('Database session can not be opened')
Return FALSE
Set SqlDatabase=SqlDatabaseOld
Set SqlUser=SqlUserOld
Set SqlPassword=SqlPasswordOld
....

Set bRes=SqlGetSessionHandle(hSqlODBC,hSession)
Set bRes=SqlFreeSession(hSession)