Jet Version

[Chedva]

I found a few jet40.dll files on my comuter (I have installed Acc97, Acc2K
and AccXP on the same computer) and I'd like to know which .dll it using
currently. How can I check it?

 

[Wayne Morgan]

Access should use the one in the <windir>\system or <windir>\system32
directory, depending on your operating system. The actuall name of the file
should be msjet40.dll. Access 97 will use msjet35.dll, Access 2000 and XP
will use msjet40.dll and, I suspect, msjet35.dll if opening an older
database file.

To verify whether or not you have the current jet service pack, check this
link.

http://support.microsoft.com/default.aspx?kbid=239114

 

[david epsom dot com dot au]

This is a dll version checker for use inside an application.
Note that it does not include a path to the DLL. by default,
it finds the version of the DLL that has been loaded into
memory by the application. You can modify this code so that
it always displays the version number of the files it checks.

'David Graham. (david) Right to attribution retained.
'Watch for word wrap

Option Compare Database
Option Explicit
Const mcModuleName = "mdlRP_DLLCheck"
'2003/02/26 dlg
Private Declare Function GetFileVersionInfo& Lib "Version" Alias
"GetFileVersionInfoA" (ByVal FileName$, ByVal lptr&, ByVal lSize&, lpvData
As Any)

Public Sub gsbDLLCheck()
If ("4.0.7328.0" > gfn_GetVersion("msjet40.dll")) Then MsgBox "Warning:
MSJET40.dll is " & gfn_GetVersion("msjet40.dll") ' & ", not SP7"
If ("9.0.0.3822" > gfn_GetVersion("msaccess.exe")) Then MsgBox "Warning:
MSACCESS.EXE is " & gfn_GetVersion("msaccess.exe") ' & ", not SR1"

End Sub

Public Function gfn_GetVersion(FileName$)
'2003/02/26 dlg --minimalist version -- Right to attribution retained
Dim iBuf(0 To 99) As Integer
Call GetFileVersionInfo(FileName$, 0&, 200, iBuf(0))
gfn_GetVersion = iBuf(25) & "." & iBuf(24) & "." & iBuf(27) & "." &
iBuf(26) 'FILE VERSION

End Function

 

[Shira]

This is a good question. Send me the answer if you know it. shira

 

[Shira]

aaa