如何以编程方式确定 Jet 数据库引擎类型

Question

我有一个程序需要将它打开的任何 Access (Jet) 数据库升级到 JET Version4.x，如果它还不是那个版本的话。 （这可以使用 SQL-92 语法特性）

升级（相对）容易。调用 JRO.JetEngine 对象的 CompactDatabase 方法 (as described here) 应该可以解决问题，但在此之前，我需要确定是否需要升级。如何确定现有数据库的 Jet OLEDB:Engine Type？这可以通过打开的 OleDBConnection 确定吗？

注意：

1. 我说的是数据库版本，而不是 Jet 库版本。
2. 非常感谢 C# 或 .Net 解决方案。
3. 这是一个使用 Jet 引擎的应用程序，而不是 Access 应用程序。

Answer 1

我知道这是一篇旧帖子，但我已经寻找了几天来找到可以检索的其他属性列表，例如“Jet OLEDB:Engine Type”。这是列出所有属性的 MS 链接。 Jet Provider Specific Connection Parameters Listing

Answer 2

只需对使用 SQL-92 语言功能的语句进行测试调用。如果失败，则需要升级。

Answer 3

您可以使用 Office Interop 并获取信息（公然从文章中窃取）：

How Can I Determine Which Version of Access was Used to Create a Database?

    public void WhichVersion(string mdbPath)
    {
        Microsoft.Office.Interop.Access.Application oAccess = new Microsoft.Office.Interop.Access.ApplicationClass();
        oAccess.OpenCurrentDatabase(mdbPath, false, "");

        Microsoft.Office.Interop.Access.AcFileFormat fileFormat = oAccess.CurrentProject.FileFormat;

        switch (fileFormat)
        {
            case Microsoft.Office.Interop.Access.AcFileFormat.acFileFormatAccess2:
                Console.WriteLine("Microsoft Access 2"); break;
            case Microsoft.Office.Interop.Access.AcFileFormat.acFileFormatAccess95:
                Console.WriteLine("Microsoft Access 95"); break;
            case Microsoft.Office.Interop.Access.AcFileFormat.acFileFormatAccess97:
                Console.WriteLine("Microsoft Access 97"); break;
            case Microsoft.Office.Interop.Access.AcFileFormat.acFileFormatAccess2000:
                Console.WriteLine("Microsoft Access 2000"); break;
            case Microsoft.Office.Interop.Access.AcFileFormat.acFileFormatAccess2002:
                Console.WriteLine("Microsoft Access 2003"); break;
        }

        oAccess.Quit(Microsoft.Office.Interop.Access.AcQuitOption.acQuitSaveNone);
        Marshal.ReleaseComObject(oAccess);
        oAccess = null;
    }
}

编辑：

另一种方法是使用 DAO（来自此 link 翻译自日语）。您可能需要调整这些值，但这看起来是个不错的起点。

public int GetCreatedVersion(string mdbPath)
{
    dao.DBEngine engine = new dao.DBEngine();
    dao.Database db = engine.OpenDatabase(mdbPath, false, false, "");
    string versionString = db.Properties["AccessVersion"].Value.ToString();
    int version = 0;
    int projVer = 0;

    switch (versionString.Substring(0, 2))
    {
        case "02":
            version = 2; break;
        case "06":
            version = 7; break;
        case "07":
            version = 8; break;
        case "08":
            foreach (dao.Property prop in db.Properties)
            {
                if (prop.Name == "ProjVer")
                {
                    projVer = int.Parse(prop.Value.ToString());
                    break;
                }
            }
            switch (projVer)
            {
                case 0:
                    version = 9; break;
                case 24:
                    version = 10; break;
                case 35:
                    version = 11; break;
                default:
                    version = -1; break;                            
            }
            break;
        case "09":
            foreach (dao.Property prop in db.Properties)
            {
                if (prop.Name == "ProjVer")
                {
                    projVer = int.Parse(prop.Value.ToString());
                    break;
                }
            }
            switch (projVer)
            {
                case 0:
                    version = 10; break;
                case 24:
                    version = 10; break;
                case 35:
                    version = 11; break;
                default:
                    version = -1; break;
            }
            break;
    }
    db.Close();

    return version;
}

Answer 4

您必须设置对 ADO 的引用，然后才能获取该属性。

从 Access 内部

Dim cnn As ADODB.Connection
Set cnn = CurrentProject.Connection

从 Access 外部

Dim cnn As New ADODB.Connection
cnn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Contact.mdb

最后

Debug.Print cnn.Properties("Jet OLEDB:Engine Type").Value

这个.Value会返回1到5。如果是5，说明已经在Jet4x中，否则是较早的版本。

这是您正在研究的另一个升级技术示例：Convert MDB database to another format (JET, access version)