[AccessD] Access97 on W2000 crashes

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 >>>




More information about the AccessD mailing list