<<< 返回 access911.net 编程静态资料库索引页

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

 

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


专题地址:http://access911.net/fixhtm/73FAB41E17DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:如何动态生成查询

 


问题:

如何动态生成查询

 


回答:


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.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/73FAB41E17DC.htm

 


上一篇:SQL采用WINDOWS信任连接,连接字串如何写?SQL Server 2000 身份验证与安全控制

下一篇:如何在报表中每隔N行显示一条粗线

2017年2月22日生成静态资料