У меня есть программа, которая должна обновить любую базу данных Access (Jet), которую она открывает для СТРУЙНОГО Version4.x, если это уже не та версия. (Это включает использование функций SQL-92 синтаксиса),
Обновление (относительно) легко. Вызов к методу CompactDatabase объекта JRO.JetEngine (как описано здесь) должен добиться цели, но прежде чем я сделаю это, я должен определить, требуется ли обновление. Как я определяю Струйный Тип OLEDB:Engine существующей базы данных? Это может быть определено от открыть OleDBConnection?
Примечание:
Вам придется установить ссылку на 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, иначе это более ранняя версия.
Вот еще один пример техники обновления, которую вы также рассматриваете: Преобразование базы данных MDB в другой формат (JET, версия access)
Просто сделайте тестовый вызов оператора, который использует возможности языка SQL-92. Если это не удается, вам необходимо обновить.
Вы можете использовать Office Interop и получить информацию (явно украденную из статьи):
Как определить, какая версия доступа использовалась для создания базы данных?
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 (из этой ссылки , переведенной с японского). Возможно, вам придется настроить значения, но похоже, что это хорошее место для начала.
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;
}