[求助]生成查询的VBA语句是什么?

bjyizhang

请问:生成查询的VBA语句是什么?

fan0217

SELECT field1[, field2[, ...]]INTO新表[IN外部数据库]
    FROM源


SELECT...INTO 语句可分为以下几个部分：











部分


说明





field1, field2


欲复制至新表的字段的名称。





NewTable


欲创建的表的名称。它应遵循标准命名公约.如果 NewTable 的名称与现存表的名称相同时，将会发生可以捕捉到的错误。





Externaldatabase


进入外部数据库的路径。有关路径的描述，请参阅 [url=mkMSITStore:C:\Program%20Files\Common%20Files\Microsoft%20Shared\OFFICE11\2052\jetsql40.chm::/dasqlin.htm]IN 子句[/url]。





source


从其中选择记录的现存表的名称。它可以是单一表或多重表或一个查询。



说明


可以使用生成表查询来存档记录、生成表的复制备份、或生成输出至另一个数据库的表的副本、或用作定期显示数据的报表的依据。例如，可以每月运行一次同样的生成表查询，生成地区的销售月报。

fan0217

SELECT...INTO 语句示例

此示例选择在员工表中的所有记录，然后复制到命名为 Emp Backup 的新表中。

Sub SelectIntoX()



    Dim dbs As Database

    Dim qdf As QueryDef



    ' 在您的计算机中修改此行使其正确指到 Northwind 的路径。

    Set dbs = OpenDatabase("Northwind.mdb")

    ' 对运费超过 $100 的订单，



    ' 选择员工表中的所有记录，

    ' 并且复制到称作员工备份的新表中。

    dbs.Execute "SELECT Employees.* INTO " _

        & "[Emp Backup] FROM Employees;"

        

    ' 删除 QueryDef 因为这是一个演示。

    dbs.Execute "DROP TABLE [Emp Backup];"

   

    dbs.Close



End Sub

bjyizhang

xiexie