如何以編程方式將ACCDB轉換爲MDB？

Question

有沒有辦法以編程方式將Access 2010 ACCDB文件轉換爲Access 95/97 MDB文件？

Answer 1

以下是一些注意事項。我沒有舊版本一起玩，所以我不知道你是否能導入比你更可以導出：

Dim ws As Workspace 
Dim db As Object 
Dim tdf As TableDef 
Dim qdf As QueryDef 
Dim dbExp As Database 
Dim acApp As New Access.Application 

acApp.OpenCurrentDatabase "z:\docs\demo.accdb" 
Set dbExp = acApp.CurrentDb 

Set ws = DBEngine.Workspaces(0) 
FName = "z:\docs\oldver95.mdb" 
''Access 95 
Set db = ws.CreateDatabase(FName, dbLangGeneral, dbVersion30) 
''You can only export tables and a limited range of datatypes 
For Each tdf In dbExp.TableDefs 
    If Left(tdf.Name, 4) <> "Msys" Then 
     acApp.DoCmd.TransferDatabase acExport, "Microsoft Access", _ 
      FName, acTable, tdf.Name, tdf.Name 
    End If 
Next 

使用VBScript利用發動機來證明見http://msdn.microsoft.com/en-us/library/office/bb243161(v=office.12).aspx

的幾點說明：

Dim objEngine 
Dim objWS 
Dim objDB 
Dim db: db = "z:\docs\oldver95.mdb" 

Set objEngine = CreateObject("DAO.DBEngine.36") 
Set objDB = objEngine.OpenDatabase(db) 

strSQL="SELECT * FROM Table1" 

objDB.CreateQueryDef "Query1", strSQL