Internet上的大多數示例代碼都使用access97或2000格式的數據庫。在數據庫創建代碼中提到,如果使用Jet OLEDB:Engine Type = 4,則創建的數據庫爲access 97格式並且如果Type = 5比訪問2000格式。但是當我使用type = 4或甚至使用可視化數據管理器創建數據庫時,創建的格式爲access 95(如使用MS Access 2003打開時所示)。我需要檢查以創建Access 97格式數據庫?請幫忙!創建Access 97格式數據庫
回答
這不是在MS Access 2003中打開它的人造物嗎?來源確實似乎表明引擎類型4對於Access 97是正確的。
編輯:顯然,引擎類型4對於Access 95/97都是有效的。我會再看一次。
編輯2:你使用什麼JET版本? 3.0與Access 95 db相關聯,3.5(1)與97相關。
嗨。
我成功地在Windows 10 + Access 2016 64位上使用VBScript 32位格式化空白訪問97格式的MDB文件。
要創建「E:\ TEST97.MDB」,請運行此VBScript 32位。(從命令提示符運行(Cmd.exe)並粘貼%SystemRoot%\ SysWow64 \ cscript.exe「C:\ hoge \ MakeAC97。 VBS 「進入)
通用語言(英語等)
使VBSCRIPT」 C:\霍格\ MakeAC97.vbs
傳輸訪問2003格式的mdb,「E:\ test2000_2003.mdb
我可以訪問1.0 - Access 2003格式mdb文件
代碼示例是這家日本第三
[http://qiita.com/Q11Q/items/1793f43a1fd4dd3f480f]
而且對VBScript的32位使用SQL,我們可以讀訪問97 MDB格式的表格數據,直。
[http://qiita.com/Q11Q/items/fc06d858ee0d3c9423f4]
當然,也有是有限的,但Access 2016格式ACCDB文件表和選擇查詢和聯合查詢轉移到Access 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
請首先看到:[回答](https://stackoverflow.com/help/answering)和[如何回答](https://stackoverflow.com/help/how-to-answer) – 2017-07-09 04:24:07
- 1. 使用Access 2003將Access 2000數據庫轉換爲Access 97
- 2. 格式化Access數據庫的記錄
- 3. 使用Access創建數據庫?
- 4. Python使用win32com創建Access數據庫
- 5. 有20個Access 97數據庫,需要遷移到Web Base
- 6. 通過vb.net以編程方式創建Access數據庫
- 7. 德爾福:創建沒有Ms Access的Access數據庫(.mdb)
- 8. Access數據庫形式
- 9. 從vb.net執行存在於Access 97數據庫中的查詢(表創建)失敗
- 10. 從數據庫創建的C#表格格式問題
- 11. Access數據庫
- 12. Scala在數據庫中創建表格
- 13. 在Azure數據庫上創建表格
- 14. 使用h2數據庫創建表格
- 15. postgres:在數據庫中創建表格
- 16. 隱藏數據庫格式
- 17. 如何創建Access數據庫或將其導入圖形數據庫
- 18. 如何使用Delphi打開Access 97數據文件
- 19. 創建特殊格式的數據幀
- 20. 數據庫格式
- 21. 創建數據庫
- 22. 創建「打印機」以PDF格式打印到SQL數據庫
- 23. 從數據庫模式創建網頁表格
- 24. 如何以Yii2格式創建數據庫
- 25. 從自定義格式的數據創建語料庫
- 26. 如何從數據庫中以html格式創建子菜單?
- 27. 如何僅以UTF-16格式創建SQlite數據庫?
- 28. 實時創建數據庫模式
- 29. 軌數據庫中創建複式
- 30. 以編程方式創建數據庫
「3.0與接入95分貝相關」 - 你確定嗎?我的回覆是,Jet數據庫格式在Access95和Access97之間沒有變化,並且都與Jet 3.51「關聯」。 – onedaywhen 2010-08-11 07:34:24
我從維基百科獲得了以下答案的背景信息:http://en.wikipedia.org/wiki/Microsoft_Jet_Database_Engine – Tobiasopdenbrouw 2010-08-11 07:41:28
創建數據庫我使用以下代碼: Dim cat As New ADOX.Catalog sConStr =「Provider = Microsoft .Jet.OLEDB.4.0; Data Source =「&App.Path&」\ personalDBase.mdb; Jet OLEDB:Engine Type = 4;「 cat.Create sConStr – 2010-08-11 11:43:02