ACCESS在程序运行中实时更新查询列表的条件

        最近抽时间在帮其它部门处理数据，使用ACCESS处理数据，里面有个需求，需要在运行时动态的更改一个查询的条件（也就是更新SQL语句内容）。之前简单的想法是像更改报表一样的更改查询条件。 报表的格式可以使用是：Reports(ReportDocName).RecordSource = sch ，sch 为数据记录源的方式。

      但是使用查询的时候，是无法使用这个记录源做更改的的。 也就是无法使用这种方法 Queries(QueriesName) 在运行时更改查询的信息/参数。

       通过学习和搜索，在微软官网找到使用方法，具体网站如下：

https://docs.microsoft.com/zh-cn/office/client-developer/access/desktop-database-reference/querydefs-collection-dao

使用 DAO 的 QueryDef 方法，可以更改SQL 的语句内容，做到实时更改的方法：       

      SoldToPartyCountry = Right(ShipToCombo, 4) '取出部分值
      Const cstrQueryName As String = "QuerySalePrice"   '查询的表名
      Dim dbs As DAO.Database            '定义DAO
      Dim qdf As DAO.QueryDef             '定义查询
   
      Set dbs = CurrentDb()  '联接数据库
      Set qdf = dbs.QueryDefs(cstrQueryName)    '打开数据库的查询表
      
'更新查询的SQL指令
        sch = "SELECT ExportPrice.Material, ExportPrice.[Purch Organization]," & _
        "ExportPrice.[Net Price], ExportPrice.[Base Unit of Measure], ExportPrice.[Price unit]," & _
        "ExportPrice.[Country of origin], ExportPrice.DiffCurrency FROM ExportPrice " & _
        "WHERE (((ExportPrice.[Purch Organization])='" & SoldToPartyCountry & "'));"
             
        'MsgBox sch
'将SQL指令写回查询里面
        qdf.SQL = sch

使用这个功能， 可以方便的运行时更新查询 的 SQL 语句。QueryDef 里面还有很多参数可以设置，由于我也是ACCESS 新手，所以还有很多功能没测试出来。

 

来源：CSDN

作者：DerekXiong

链接：https://blog.csdn.net/ldxepthnn/article/details/103680251