您正在 access911.net -> 静态资料库

作者：cg1 摘自：access911.net 录入：cg1 时间：2003-3-27 浏览人次：2033

DAO动态生成查询：

CurrentDb.QueryDefs("查询名称").SQL = "select * from table1"

        Dim dbs As Database, strSQL1 As String, strSQL2 As String
        Dim qdf1 As QueryDef

        Set dbs = CurrentDb

        strSQL1 = "SELECT 职工表.* " & _
        "FROM 职工表 " & _
        "WHERE (((职工表.性别)" & GenderNo & ") " & _
        "AND ((职工表.是否已婚)" & Married & ") " & _
        "AND ((职工表.编制)" & PList & ")"

        strSQL2 = ");"
        Set qdf1 = dbs.CreateQueryDef("~人员查询", strSQL1 + strSQL2)
        DoC.....................
...........

用VBA灵活生成查询，动态生成查询