怎样在窗体按钮的代码中创建一个空数据库？

hanxixian　发表于：2011-03-16 16:26:28 　

复制

我想把现有数据库中的部分资料导出到另一个盘上的新库中去，想在窗体中设一个按钮，需要在代码中先建一个空库，才能导出，请高手指点，怎样写呢？

Top

赵文斌发表于：2011-03-16 16:47:37

点击下载此附件

Top

红尘如烟发表于：2011-03-16 17:31:44

    Dim strNewDb As String

    strNewDb = "E:\Desktop\testA.mdb"

    '创建数据库文件
    DBEngine.CreateDatabase strNewDb, ";LANGID=0x0804;CP=936;COUNTRY=0"
    '向数据文件中生成表
    CurrentDb.Execute "Select * INTO  表1 In '" & strNewDb & "' FROM 表1"

Top

hanxixian 发表于：2011-03-17 10:01:04

谢谢红尘如烟，问题解决了。

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

怎样在窗体按钮的代码中创建一个空数据库？