Detrmine MDB version remotely?

[Me]

Hi all,

I have a little stinging issue,
I have an Access application that has to import hundreds of other
MDB's, some access 97 and some 2000, and merge them into several large
mdb's.
so far so good, but my command:

Set appAccess = GetObject(TargetDBPathNAme, "Access.Application.9")

sometimes fails, of course, when the MDB to be imported is Access 97
type.
How do I determine in advance (before GetObject) what version a closed
(unaccessed) MDB is created with?

the best I have come up with, shamefully, was to use "On error"
detection
like this:
<the beginning of the import loop>

OpenImportConnection = true
Set appAccess = GetObject(TargetDBPathNAme, "Access.Application.9")
OpenImportConnection = false


< the error handling section >


If (Err.Number = 7866 Or InStr(1, Err.Description, "Microsoft Access
can't open the database because it is missing") > 0) And
OpenImportConnection Then

' probably trying to open an Access 97 file as an Access 2000 version,
' so switch importing to version 97

Set appAccess = Nothing
Set appAccess = GetObject(TargetDBPathNAme,
"Access.Application.8")
Resume Next

End If



(I got two types of error mesasges occuring because of this).

is there anything better than this, that doesn't depend on
errorhandling?


Thanks for reading.

hh.

 

[John Nurick]

Hi hh,

Two thoughts:

1) Is it necessary to pass the class string in GetObject?

2) If you really do have to know the version before opening, see
http://www.aylott.com.au/