查看JET的版本号

yodong

winxp+officexp的JET是什么版本,win2K+office2K是什么版本.那位朋友知道.谢谢了!

[此贴子已经被zhengjialon于2004-12-7 14:10:17编辑过]

zhanguoru

在VBA編輯器中的"工具/參照"里可以看到,請指教謝謝!!

yodong

在VBA編輯器中的"工具/參照"中找不到参照???

zhanguoru

簡體版好像是"工具/引用,請指教謝謝!!

tmtony

JET版本应该是 3.51 或 4.0  可采用下面代码来判断:

Const StdJet35DLLDateTimeInfo As Date = #9/28/1999 10:42:48 PM#
Const StdJet35DLLVerInfo As String = "3.51.3328.0"
Dim CurJet35DLLDateTimeInfo As Date, CurJet35DLLVerInfo As String

CurJet35DLLDateTimeInfo = FileDateTime(fReturnSysDir & "\msjet35.dll")
CurJet35DLLVerInfo = tt_ProdVerInfo(fReturnSysDir & "\msjet35.dll")
If CurJet35DLLVerInfo <> StdJet35DLLVerInfo Or _
        CLng(StdJet35DLLDateTimeInfo) <> CLng(CurJet35DLLDateTimeInfo) Then
    MsgBox "A wrong version of an MS Access DLL is present on your system. Please get it checked soon as this " & _
        "may cause corruption of data." & vbCrLf & vbCrLf & _
        "(Technical Details for file " & fReturnSysDir & "\msjet35.dll" & vbCrLf & _
        "Version " & CurJet35DLLVerInfo & " present but should be " & StdJet35DLLVerInfo & vbCrLf & _
        "Date/Time " & CurJet35DLLDateTimeInfo & " present but should be " & StdJet35DLLDateTimeInfo & ".)", _
        vbCritical
End If

Private Declare Function apiGetSystemDirectory& Lib "kernel32" _
              Alias "GetSystemDirectoryA" _
              (ByVal lpBuffer As String, ByVal nSize As Long)

Function fReturnSysDir()
'Returns System Folder Name (C:\WinNT\System32)
Dim strSysDirName As String
Dim lngx As Long
strSysDirName = String$(MAX_PATH, 0)
lngx = apiGetSystemDirectory(strSysDirName, MAX_PATH)
If lngx <> 0 Then
    fReturnSysDir = Left$(strSysDirName, lngx)
Else
    fReturnSysDir = ""
End If
End Function

其中tt_ProdVerInfo 函数来源微软的 http://support.microsoft.com/?kbid=210120


如果是判断OFFICE版本,可参考下面Dev Ashish 的 函数,可检测打上补丁的OFFICE

显示结果:.

Exe Name  Office
2000  Office
2000 SR1   Office XP   Office XP SP1   Office XP SP2

MsAccess.exe  9.0.0.2719  9.0.0.3822  10.0.2627.1  10.0.3409.0  10.0.4302.0
WinWord.exe  9.0.0.2717  9.0.0.3822  10.0.2627.0  10.0.3416.0  10.0.4219.0
Excel.Exe  9.0.0.2719  9.0.0.3822  10.0.2614.0  10.0.3506.0  10.0.4302.0
FrontPage.exe  4.0.2.2717  4.0.2.3821  10.0.2623.0  10.0.3402.0  10.0.4128.0
Outlook.exe  9.0.0.2416  9.0.0.2416  10.0.2627.1  10.0.3416.0  10.0.4024.0
PowerPnt.exe  9.0.0.2716  9.0.0.3821  10.0.2623.0  10.0.3506.0  10.0.4205.0
WinProj.exe  8.0.98.407  unknown  unknown  unknown  unknown

' ******** 代码开始********
'This code was originally written by Dev Ashish.
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.
'
'Code Courtesy of
'Dev Ashish
'
'  structure contains version information about a file. This
'  information is language and code page independent.
Private Type VS_FIXEDFILEINFO
    '  Contains the value 0xFEEFO4BD (szKey)
    dwSignature As Long
    '  Specifies the binary version number of this structure.
    dwStrucVersion As Long
    '  most significant 32 bits of the file's binary version number.
    dwFileVersionMS As Long
    '  least significant 32 bits of the file's binary version number.
    dwFileVersionLS As Long
    '  most significant 32 bits of the binary version number of
    ' the product with which this file was distributed
    dwProductVersionLS As Long
    '  least significant 32 bits of the binary version number of
    ' the product with which this file was distributed
    dwFileFlagsMask As Long
    '  Contains a bitmask that specifies the valid bits in dwFileFlags.
    dwProductVersionMS As Long
    '  Contains a bitmask that specifies the
    '  Boolean attributes of the file.
    dwFileFlags As Long
    '  operating system for which this file was designed.
    dwFileOS As Long
    '  general type of file.
    dwFileType As Long
    '  function of the file.
    dwFileSubtype As Long
    '  most significant 32 bits of the file's 64-bit
    ' binary creation date and time stamp.
    dwFileDateMS As Long
    '  least significant 32 bits of the file's 64-bit binary
    ' creation date and time stamp.
    dwFileDateLS As Long
End Type

'  

tmtony

要获取详细的JET及补丁的内容,可参考微软的KB
http://support.microsoft.com/default.aspx?kbid=239114
获得最新的 Microsoft Jet 4.0 数据库引擎 Service Pack

yodong

非常多谢站长!

tmtony

获取Jet 版本更简单的办法

Function GetJetVersion() As String

    GetJetVersion = DBEngine.Version

End Function

hi-wzj

后面这种方式我喜欢！