Создание базы данных формата Access 97

Question

Большинство примеров кода в Интернете используют либо базу данных формата access97, либо 2000. В коде создания базы данных было упомянуто, что если используется Jet OLEDB: Тип двигателя = 4, создается база данных формата 97 и если тип = 5, чем доступ к формату 2000. Но когда я создаю базу данных с кодом с использованием типа = 4 или даже с диспетчером визуальных данных, создаваемый формат - это доступ 95 (как показано при открытии с доступом MS 2003). Мне нужно проверить создание базы данных формата Access 97? Пожалуйста помоги!

Answer 1

Это не артефакт открытия его в MS Access 2003? Источники действительно показывают, что тип двигателя 4 подходит для Access 97.

Редактировать: по-видимому, тип двигателя 4 действителен как для доступа 95/97. Я еще раз посмотрю.

Редактировать 2: Какую версию JET вы используете? 3.0 связан с Access 95 db, 3.5 (1) с 97.

Answer 2

Hi.

Я успел сделать пустой доступ 97 Формат файла MDB с VBScript 32bit на Windows 10 + Access 2016 64 бит.

Чтобы создать "E: \ TEST97.MDB", запустите этот VBScript 32bit. (Запустите из командной строки (Cmd.exe) и вставьте% SystemRoot% \ SysWow64 \ cscript.exe "C: \ hoge \ MakeAC97. VBS "и введите)

язык Общие (английский язык и так далее)

сделать VBScript" C: \ Хоге \ MakeAC97.vbs

Transfer Access 2003 Формат MDB, «E: \ test2000_2003.mdb

Я могу получить доступ к 1.0 - Доступ к файлам формата 2003 2003 mdb

Пример кода это японская статья

[http://qiita.com/Q11Q/items/1793f43a1fd4dd3f480f]

и с помощью SQL на VBScript 32 бит, мы можем прочитать Access 97 Формат MDB таблицы данных, непосредственно.

[http://qiita.com/Q11Q/items/fc06d858ee0d3c9423f4]

Конечно, Существует ограниченное, но доступ к 2016 году формат ACCDB файлов Таблицы и выберите Запросы и Union Запросы Перевести на доступ 97 Формат MDB.

[http://qiita.com/Q11Q/items/0ada315f6b5eb9b14f8b]

 
    '%SystemRoot%\SysWow64\cscript.exe "C:\hoge\MakeAC97.vbs" 
    'Access 2013 Later 
    '64/32 Ok 
    Const DB_Lang_General = ";LANGID=0x0409;CP=1252;COUNTRY=0" 
    Const DB_LANG_JAPANESE = ";LANGID=0x0411;CP=932;COUNTRY=0" 
    Const DB_Lang_Arabic = ";LANGID=0x0401;CP=1256;COUNTRY=0" 
    Const DB_Lang_ChineseSimplified = ";LANGID=0x0804;CP=936;COUNTRY=0" 
    onst DB_Lang_ChineseTraditional = ";LANGID=0x0404;CP=950;COUNTRY=0" 
    Const DB_Lang_Cyrillic = ";LANGID=0x0419;CP=1251;COUNTRY=0" 
    Const DB_Lang_Czech = ";LANGID=0x0405;CP=1250;COUNTRY=0" 
    Const DB_Lang_Dutch = ";LANGID=0x0413;CP=1252;COUNTRY=0" 
    Const DB_Lang_Greek = ";LANGID=0x0408;CP=1253;COUNTRY=0" 
    Const DB_Lang_Hebrew = ";LANGID=0x040D;CP=1255;COUNTRY=0" 
    Const DB_Lang_Hungarian = ";LANGID=0x040E;CP=1250;COUNTRY=0" 
    Const DB_Lang_Icelandic = ";LANGID=0x040F;CP=1252;COUNTRY=0" 
    Const DB_Lang_Korean = ";LANGID=0x0412;CP=949;COUNTRY=0" 
    Const DB_Lang_Nordic = ";LANGID=0x041D;CP=1252;COUNTRY=0" 
    Const DB_Lang_NorwDan = ";LANGID=0x0406;CP=1252;COUNTRY=0" 'Norway and Dennmark 
    Const DB_Lang_Polish = ";LANGID=0x0415;CP=1250;COUNTRY=0" 
    Const DB_Lang_Slovenian = ";LANGID=0x0424;CP=1250;COUNTRY=0" 
    Const DB_Lang_Spanish = ";LANGID=0x040A;CP=1252;COUNTRY=0" 
    Const DB_Lang_SwedFin = ";LANGID=0x041D;CP=1252;COUNTRY=0" 
    Const DB_Lang_Thai = ";LANGID=0x041E;CP=874;COUNTRY=0" 
    Const DB_Lang_Turkish = ";LANGID=0x041F;CP=1254;COUNTRY=0"
 

Const DB_OPEN_DYNASET = 2 
Const DB_APPEND_ONLY = 8 
Const DRIVE_NAME = "E:\" 
Const FILE_NAME = "TEST97.mdb" 
Const oldFile = "E:\test97.mdb" 
Const NewFile = "E:\test2000_2003.mdb" 
Const cnsDbVersion30_AC95_AC97_Jet30_Jet35 = 32 
Const cnsDbVersion20_AC20_Jet20 = 16 
Const cndDBVerion10 =1 
Dim dbe : Set dbe = CreateObject("DAO.DBEngine.36") 
' MDB Start Making... 
Set dbe = CreateObject("DAO.DBEngine.36") 
Set db = dbe.CreateDatabase(DRIVE_NAME & FILE_NAME, DB_Lang_General, cnsDbVersion30_AC95_AC97_Jet30_Jet35) 
Set db = Nothing 
Set dbe = Nothing 
Call JetCompact 
End Sub 
Sub JetCompact() 
Dim JIRO : Set JIRO = CreateObject("JRO.JetEngine") 
Dim strOldConnect : strOldConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & oldFile & ";" 
Dim strNewConnect : strNewConnect ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NewFile & ";Jet OLEDB:Engine Type =5;" 

With CreateObject("Scripting.FileSystemObject") 
    If .FileExists(oldFIle)=False then Wscript.Quit 
    If .FileExists(NewFile)=True then Wscript.Quit 
End With 
JIRO.CompactDatabase strOldConnect, strNewConnect 
Set Jiro = Nothing 
WScript.Echo "Success End" 
End Sub