Shamil Salakhetdinov
shamil at users.mns.ru
Thu Jan 12 14:42:28 CST 2006
<<<
I use to read 2000 mdb's in Access 97 VBA. It won't allow you to link tables
as Access itself defaults to 3.51 but you can use from VBA code to read
a 2000 mdb
>>>
OK. I didn't know that. It doesn't work here but I don't have the latest Jet
3.51 patch that could be the problem.
Shamil
----- Original Message -----
From: "MartyConnelly" <martyconnelly at shaw.ca>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Thursday, January 12, 2006 10:14 PM
Subject: Re: [AccessD] Access97 on W2000 crashes
You can remove DAO 3.51 from the reference list and replace with DAO 3.60
Then run Debug.Print DAO.DBEngine.Version
It returns 3.6
I use to read 2000 mdb's in Access 97 VBA. It won't allow you to link tables
as Access itself defaults to 3.51 but you can use from VBA code to read
a 2000 mdb
Of course MS says this is unsupported.
This is security patch to Jet 3.51 after installing Office 97 SR-1 and SR2-B
Jet 3.51 Service Pack 3
http://www.microsoft.com/downloads/details.aspx?FamilyID=7e82ef88-52ec-4a8f-8bb2-8b06d6cb668d&DisplayLang=en
Sub testb()
Dim db As DAO.Database
Dim dbe As Object
'Set dbe = CreateObject("DAO.DBEngine.36")
'Set db = dbe.CreateDatabase("c:\temp\test.mdb", _
' ";LANGID=0x0409;CP=1252;COUNTRY=0")
Set db = OpenDatabase("c:\temp\test.mdb")
Dim tdfLoop As TableDef
For Each tdfLoop In db.TableDefs
Debug.Print tdfLoop.Name
Next tdfLoop
Set db = Nothing
End Sub
<<< tail skipped >>>