Question

VB中筛选ACCESS数据库，把结果导入到一个新建的MDB

以下是我的一段：
OpenDB
Set zlRst = New ADODB.Recordset
zlRst.CursorLocation = adUseClient
zlRst.Open "select 吊机类型，起重能力 From 600T Where 起重能力 > 10000 union select 吊机类型,起重能力 From 400TDEMAG Where 起重能力 > 10000;", LiftingCon, adOpenDynamic, adLockOptimistic

我想在接下来的一段程序中，新建一个MDB，把zlRst中的数据导进去。各位大侠帮帮忙~
Dim cata As ADOX.Catalog
Set cata = New ADOX.Catalog
cata.Create ("Provider=Microsoft.Jet.OLEDB.4.0;data source=" + App.Path + "\a.mdb")
Set cata = Nothing
这是网上找到的一个新建MDB的程序，但是里面没有东西。应该有什么地方可以添加的吧。

Answer 1

直接用一条SQL语句导出到新的MDB我试了很久也没找到答案
不过可以先建个一MDB，再导入：
Dim cat
Set cat = CreateObject("ADOX.Catalog")
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;data source=c:\a.mdb"
Set cat = Nothing
你的连接.Execute "SELECT * INTO [c:\a.mdb].[表名] FROM （select 吊机类型，起重能力 From 600T Where 起重能力 > 10000 union select 吊机类型,起重能力 From 400TDEMAG Where 起重能力 > 10000）a"

Answer 2

思路是：打开这个数据库在里面新一个表，把查到的记录插入新建那个表不就可以了吗

Answer 3

看不太懂啊。。