ACCESS中的参数查询与自定义函数的实现

概述  1.       带参数的查询 有一个数据表，表名为myTEST，表结构及内容如下： 需要创建一个查询实现功能：指定月的数据统计。因为要用于GROUP BY ，所以无法在创建查询后使用条件来完成指定月的数据统计，例如： 创建查询：myView  查询的功能：显示指定月每天每个项目的完成数量情况（这里还需要用于交叉表），需要显示的结果如下： 如果发实现这样的结果，用简单的交叉表和统计功能可以实现  

1.       带参数的查询

有一个数据表，表名为myTEST，表结构及内容如下：

需要创建一个查询实现功能：指定月的数据统计。因为要用于GROUP BY ，所以无法在创建查询后使用条件来完成指定月的数据统计，例如：

创建查询：myVIEw  查询的功能：显示指定月每天每个项目的完成数量情况（这里还需要用于交叉表），需要显示的结果如下：

如果发实现这样的结果，用简单的交叉表和统计功能可以实现，但如果你需要单独列出指定的月份（用Where 或having）则不能实现，这个时候我们可以利用ACCESS数据库中的ParaMETERS 来实现，详细的语句如下：

ParaMETERS pMonth Short;

transform Sum(mytest.iNum) AS 总数

SELECT mytest.item AS 项目

FROM mytest

WHERE Month(dDate)=pMonth

GROUP BY mytest.item

PIVOT mytest.dDate;

在这里我们要注意：

l         transform 语句，它是用来生成交叉表的，详细说明请参考ACCESS帮助文件

l         ParaMETERS 声明，是用来定义查询中的参数，详细说明请参考ACCESS帮助文件

 

2.       在查询或SQL语句中使用自定义函数功能

在大型的数据库系统中（例如sqlServer），可以使用自定义函数功能来扩展数据处理功能，而在ACCESS数据库中没有存储过程、函数、触发器等功能。如何在SQL语句或定义查询使得到自定义的函数，用于扩展自己的数据库功能，可以使用ACCESS提供的模块功能来实现

首先，我们新建一个模块，取名为modMain（可选意取）。然后打开这个模块，在打开VBA环境下编写相应的代码来完成需要的功能。例如：需要获取某个列的所有值，并生成一个字串：

Option Compare Database

Public Function CombStr(tablename As String,FIEldname As String,GroupFIEld As String,GroupValue As String) As String

    Dim ResultStr As String

    Dim rs As Recordset

        Set rs = CurrentDb.OpenRecordset("select " & FIEldname & " from " & tablename & " where " & GroupFIEld & "='" & GroupValue & "'")

        If rs.RecordCount > 0 Then

            do while Not rs.EOF

                If InStr(ResultStr,rs.FIElds(0).Value) = 0 Then ResultStr = ResultStr & "," & rs.FIElds(0).Value

                rs.MoveNext

            Loop

        End If

        If ResultStr <> "" Then ResultStr = MID(ResultStr,2)

        CombStr = ResultStr

End Function

下面我们可以看下实现的效果：

首先创建一数据表，取名person

然后创建一个查询，取名Person_V，内容如下：

SELECT Company,combstr("Person","name","Company",Company) AS Combname,"sex",Company) AS CombSex

FROM Person GROUP BY Company;

执行查询Person_V，结果如下：

总结

以上是内存溢出为你收集整理的ACCESS中的参数查询与自定义函数的实现全部内容，希望文章能够帮你解决ACCESS中的参数查询与自定义函数的实现所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。