Access各种查询代码

　　相关搜索: 查询

　　ACCESS查询分段统计人数

　　这样一个表 tblScore：

　　班级 姓名 总分 语文 数学

　　1班 a 601 108 120

　　2班 b 589 112 133

　　3班 C 551 98 145

　　2班 D 502 80 124

　　1班 E 508 90 85

　　3班 F 561 97 135

　　TRANSFORM Count(tblScore.总分) AS 总分OfCount

　　Select tblScore.班级

　　FROM tblScore

　　GROUP BY tblScore.班级

　　PIVOT Switch([总分]>=600,">=600",[总分]>=550 And [总分]<600,"550-599",[总分]>=500 And [总分]<550,"500-549",True,"Other") In (">=600","550-599","500-549","Other");

　　可得到第一個查詢

　　班级总分600分以上人数 总分550-600人数 总分550以下人数

　　1班 1 0 1

　　2班 0 1 1

　　3班 0 2 0

　　(二)用代码在ACCESS中生成永久查询

　　dim strSQL as string

　　dim qdf as QueryDef

　　strSQL = "Select * from tblaa" 'tblaa为表

　　Set qdf = CurrentDb.CreateQueryDef("创建的查询", strSQL)

　　DoCmd.OpenQuery qdf.Name

　　用代码删除一个已存在的查询

　　Dim Query1 As QueryDef

　　CurrentDb.QueryDefs.Refresh

　　For Each Query1 In CurrentDb.QueryDefs

　　If Query1.Name = "想要删除的查询名称" Then

　　CurrentDb.QueryDefs.Delete Query1.Name

　　Exit For

　　End If

　　Next Query1

　　(三)使用ADO和SQL语句建立一个新查询

　　Dim cat As New ADOX.Catalog

　　Dim cmd As New ADODB.Command

　　Set cat.ActiveConnection = CurrentProject.Connection

　　cmd.CommandText = "Select * FROM 表1"

　　cat.Views.Append "newView", cmd

　　以窗体的文体框为条件进行模糊查询时查询的设计视图中准则：

　　Like IIf(IsNull([Forms]![存书查询窗体]![作者]),'*','*' & [Forms]![存书查询窗体]![作者] & '*')

　　(四)用VBA代码生成一个条件组合的字符串作为子窗体的窗体筛选的条件来实现窗体的多条件查询。

　　Option Compare Database

　　'==================================

　　'

　　'由浅入深的介绍几种最常用的利用主/子窗体来实现查询的方法，

　　'使初学者和有一定VBA基础的人可以更好的使用窗体查询这种手段。

　　'

　　'本例程是讲解用VBA代码生成一个条件组合的字符串作为子窗体的

　　'窗体筛选的条件来实现窗体的多条件查询。

　　Private Sub cmd查询_Click()

　　On Error GoTo Err_cmd查询_Click

　　Dim strWhere As String '定义条件字符串

　　strWhere = "" '设定初始值-空字符串

　　'判断【书名】条件是否有输入的值

　　If Not IsNull(Me.书名) Then

　　'有输入

　　strWhere = strWhere & "([书名] like '*" & Me.书名 & "*') AND "

　　End If

　　'判断【类别】条件是否有输入的值

　　If Not IsNull(Me.类别) Then

　　'有输入

　　strWhere = strWhere & "([类别] like '" & Me.类别 & "') AND "

　　End If

　　'判断【作者】条件是否有输入的值

　　If Not IsNull(Me.作者) Then

　　'有输入

　　strWhere = strWhere & "([作者] like '*" & Me.作者 & "*') AND "

　　End If

　　'判断【出版社】条件是否有输入的值

　　If Not IsNull(Me.出版社) Then

　　'有输入

　　strWhere = strWhere & "([出版社] like '" & Me.出版社 & "') AND "

　　End If

　　'判断【单价】条件是否有输入的值，由于有【单价开始】【单价截止】两个文本框

　　'所以要分开来考虑

　　If Not IsNull(Me.单价开始) Then

　　'【单价开始】有输入

　　strWhere = strWhere & "([单价] >= " & Me.单价开始 & ") AND "

　　End If

　　If Not IsNull(Me.单价截止) Then

　　'【单价截止】有输入

　　strWhere = strWhere & "([单价] <= " & Me.单价截止 & ") AND "

　　End If

　　'判断【进书日期】条件是否有输入的值，由于有【进书日期开始】【进书日期截止】两个文本框

　　'所以要分开来考虑

　　If Not IsNull(Me.进书日期开始) Then

　　'【进书日期开始】有输入

　　strWhere = strWhere & "([进书日期] >= #" & Format(Me.进书日期开始, "yyyy-mm-dd") & "#) AND "

　　End If

　　If Not IsNull(Me.进书日期截止) Then

　　'【进书日期截止】有输入

　　strWhere = strWhere & "([进书日期] <= #" & Format(Me.进书日期截止, "yyyy-mm-dd") & "#) AND "

　　End If

　　'如果输入了条件，那么strWhere的最后肯定有" AND "，这是我们不需要的，

　　'要用LEFT函数截掉这5个字符。

　　If Len(strWhere) > 0 Then

　　'有输入条件

　　strWhere = Left(strWhere, Len(strWhere) - 5)

　　End If

　　'先在立即窗口显示一下strWhere的值，代码调试完成后可以取消下一句

　　Debug.Print strWhere

　　'让子窗体应用窗体查询

　　Me.存书查询子窗体.Form.Filter = strWhere

　　Me.存书查询子窗体.Form.FilterOn = True

　　'在子窗体筛选后要运行一下自编子程序CheckSubformCount()

　　Call CheckSubformCount

　　Exit_cmd查询_Click:

　　Exit Sub

　　Err_cmd查询_Click:

　　MsgBox Err.Description

　　Resume Exit_cmd查询_Click

　　End Sub

　　Private Sub cmd导出_Click()

　　On Error GoTo Err_cmd导出_Click

　　'这里将使用DAO来改变查询的SQL语句，必须先在“工具”→“引用”中选择

　　'Microsoft DAO 3.6 Object Library.

　　'================================

　　Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象

　　Dim strWhere, strSQL As String

　　strWhere = Me.存书查询子窗体.Form.Filter

　　If strWhere = "" Then

　　'没有条件

　　strSQL = "Select * FROM [存书查询]"

　　Else

　　'有条件

　　strSQL = "Select * FROM [存书查询] Where " & strWhere

　　End If

　　Set qdf = CurrentDb.QueryDefs("查询结果")

　　qdf.SQL = strSQL

　　qdf.Close

　　Set qdf = Nothing

　　DoCmd.OutputTo acOutputQuery, "查询结果", acFormatXLS, , True

　　Exit_cmd导出_Click:

　　Exit Sub

　　Err_cmd导出_Click:

　　MsgBox Err.Description

　　Resume Exit_cmd导出_Click

　　End Sub

　　Private Sub cmd清除_Click()

　　On Error GoTo Err_cmd清除_Click

　　'这里将使用FOR EACH CONTROL的方法来清除控件的值

　　'这在控件比较多的时候非常有用。

　　'================================

　　Dim ctl As Control

　　For Each ctl In Me.Controls

　　'根据ctl的控件类型来选择

　　Select Case ctl.ControlType

　　Case acTextBox '是文本框，要清空(注意，子窗体下面还有两个锁定的文本框不能赋值)

　　If ctl.Locked = False Then ctl.Value = Null

　　Case acComboBox '是组合框，也要清空

　　ctl.Value = Null

　　'其它类型的控件不处理

　　End Select

　　Next

　　'取消子窗体的筛选

　　Me.存书查询子窗体.Form.Filter = ""

　　Me.存书查询子窗体.Form.FilterOn = False

　　'在子窗体取消筛选后要运行一下自编子程序CheckSubformCount()

　　Call CheckSubformCount

　　Exit_cmd清除_Click:

　　Exit Sub

　　Err_cmd清除_Click:

　　MsgBox Err.Description

　　Resume Exit_cmd清除_Click

　　End Sub

　　Private Sub cmd预览报表_Click()

　　On Error GoTo Err_cmd预览报表_Click

　　Dim stDocName, strWhere As String

　　stDocName = "藏书情况报表"

　　strWhere = Me.存书查询子窗体.Form.Filter

　　'在打开报表的同时把子窗体的筛选条件字符串也传递给报表，

　　'这样地话报表也会显示和子窗体相同的记录。

　　DoCmd.OpenReport stDocName, acPreview, , strWhere

　　Exit_cmd预览报表_Click:

　　Exit Sub

　　Err_cmd预览报表_Click:

　　MsgBox Err.Description

　　Resume Exit_cmd预览报表_Click

　　End Sub

　　Private Sub CheckSubformCount()

　　'这是一个自编子程序，专门用来检查子窗体上的记录数，

　　'以便修改主窗体上的“计数”和“合计”的控件来源，

　　'以防止出现“#错误”。

　　'================================

　　If Me.存书查询子窗体.Form.Recordset.RecordCount > 0 Then

　　'子窗体的记录数>0

　　Me.计数.ControlSource = "=[存书查询子窗体].[Form].[txt计数]"

　　Me.合计.ControlSource = "=[存书查询子窗体].[Form].[txt单价合计]"

　　Else

　　'子窗体的记录数=0

　　Me.计数.ControlSource = "=0"

　　Me.合计.ControlSource = "=0"

　　End If

　　End Sub

　　(五)用VBA代码+DAO生成带条件的交叉表查询

　　Option Compare Database

　　Private Sub cmd查询_Click()

　　On Error GoTo Err_cmd查询_Click

　　Dim strWhere As String '定义条件字符串

　　Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象

　　Dim strSQL As String

　　strWhere = "" '设定初始值-空字符串

　　'判断【类别】条件是否有输入的值

　　If Not IsNull(Me.类别) Then

　　'有输入

　　strWhere = strWhere & "([类别] like '" & Me.类别 & "') AND "

　　End If

　　'判断【出版社】条件是否有输入的值

　　If Not IsNull(Me.出版社) Then

　　'有输入

　　strWhere = strWhere & "([出版社] like '" & Me.出版社 & "') AND "

　　End If

　　'判断【单价】条件是否有输入的值，由于有【单价开始】【单价截止】两个文本框

　　'所以要分开来考虑

　　If Not IsNull(Me.单价开始) Then

　　'【单价开始】有输入

　　strWhere = strWhere & "([单价] >= " & Me.单价开始 & ") AND "

　　End If

　　If Not IsNull(Me.单价截止) Then

　　'【单价截止】有输入

　　strWhere = strWhere & "([单价] <= " & Me.单价截止 & ") AND "

　　End If

　　'判断【进书日期】条件是否有输入的值，由于有【进书日期开始】【进书日期截止】两个文本框

　　'所以要分开来考虑

　　If Not IsNull(Me.进书日期开始) Then

　　'【进书日期开始】有输入

　　strWhere = strWhere & "([进书日期] >= #" & Format(Me.进书日期开始, "yyyy-mm-dd") & "#) AND "

　　End If

　　If Not IsNull(Me.进书日期截止) Then

　　'【进书日期截止】有输入

　　strWhere = strWhere & "([进书日期] <= #" & Format(Me.进书日期截止, "yyyy-mm-dd") & "#) AND "

　　End If

　　'如果输入了条件，那么strWhere的最后肯定有" AND "，这是我们不需要的，

　　'要用LEFT函数截掉这5个字符。

　　If Len(strWhere) > 0 Then

　　'有输入条件

　　strWhere = Left(strWhere, Len(strWhere) - 5)

　　End If

　　'先在立即窗口显示一下strWhere的值，代码调试完成后可以取消下一句

　　'Debug.Print strWhere

　　'根据是否有条件来设定交叉表查询的SQL语句

　　If Len(strWhere) > 0 Then

　　strSQL = "TRANSFORM Sum(存书查询.单价) AS 单价之Sum Select 存书查询.类别FROM 存书查询 "

　　strSQL = strSQL & "Where(" & strWhere

　　strSQL = strSQL & ") GROUP BY 存书查询.类别 PIVOT Format([进书日期],'yyyy/mm')"

　　Else

　　strSQL = "TRANSFORM Sum(存书查询.单价) AS 单价之Sum" & _

　　" Select 存书查询.类别" & _

　　" FROM 存书查询" & _

　　" GROUP BY 存书查询.类别" & _

　　" PIVOT Format([进书日期],'yyyy/mm')"

　　End If

　　'修改交叉表查询的SQL语句

　　Set qdf = CurrentDb.QueryDefs("存书查询_交叉表")

　　qdf.SQL = strSQL

　　qdf.Close

　　Set qdf = Nothing

　　'显示交叉表的内容，不能直接刷新

　　Me.存书查询子窗体.SourceObject = ""

　　Me.存书查询子窗体.SourceObject = "查询.存书查询_交叉表"

　　'刷新计数和合计显示

　　Me.计数 = DCount("*", "存书查询_交叉表")

　　Me.合计 = DSum("[单价]", "存书查询", strWhere)

　　Exit_cmd查询_Click:

　　Exit Sub

　　Err_cmd查询_Click:

　　MsgBox Err.Description

　　Resume Exit_cmd查询_Click

　　End Sub

　　Private Sub cmd导出_Click()

　　On Error GoTo Err_cmd导出_Click

　　'刘小军(Alex) 2003-5-27

　　'由于前面我们已经通过DAO修改了“存书查询_交叉表”的SQL语句，

　　'所以这里我们直接导出就可以了。

　　'================================

　　DoCmd.OutputTo acOutputQuery, "存书查询_交叉表", acFormatXLS, , True

　　Exit_cmd导出_Click:

　　Exit Sub

　　Err_cmd导出_Click:

　　MsgBox Err.Description

　　Resume Exit_cmd导出_Click

　　End Sub

　　Private Sub cmd清除_Click()

　　On Error GoTo Err_cmd清除_Click

　　Dim ctl As Control

　　Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象

　　Dim strSQL As String

　　For Each ctl In Me.Controls

　　'根据ctl的控件类型来选择

　　Select Case ctl.ControlType

　　Case acTextBox '是文本框，要清空(注意，子窗体下面还有两个锁定的文本框不能赋值)

　　If ctl.Locked = False Then ctl.Value = Null

　　Case acComboBox '是组合框，也要清空

　　ctl.Value = Null

　　'其它类型的控件不处理

　　End Select

　　Next

　　strSQL = "TRANSFORM Sum(存书查询.单价) AS 单价之Sum" & _

　　" Select 存书查询.类别" & _

　　" FROM 存书查询" & _

　　" GROUP BY 存书查询.类别" & _

　　" PIVOT Format([进书日期],'yyyy/mm')"

　　'修改交叉表查询的SQL语句

　　Set qdf = CurrentDb.QueryDefs("存书查询_交叉表")

　　qdf.SQL = strSQL

　　qdf.Close

　　Set qdf = Nothing

　　'显示交叉表的内容，不能直接刷新

　　Me.存书查询子窗体.SourceObject = ""

　　Me.存书查询子窗体.SourceObject = "查询.存书查询_交叉表"

　　'刷新计数和合计显示

　　Me.计数 = DCount("*", "存书查询_交叉表")

　　Me.合计 = DSum("[单价]", "存书查询")

　　Exit_cmd清除_Click:

　　Exit Sub

　　Err_cmd清除_Click:

　　MsgBox Err.Description

　　Resume Exit_cmd清除_Click

　　End Sub

　　Private Sub cmd预览报表_Click()

　　On Error GoTo Err_cmd预览报表_Click

　　Dim stDocName, strWhere As String

　　stDocName = "藏书情况报表"

　　DoCmd.OpenReport stDocName, acViewPreview

　　Exit_cmd预览报表_Click:

　　Exit Sub

　　Err_cmd预览报表_Click:

　　MsgBox Err.Description

　　Resume Exit_cmd预览报表_Click

　　End Sub

　　Private Sub Form_Open(Cancel As Integer)

　　'如果没有这一段代码，窗体打开时，虽然子窗体有显示，但下面的两个文本框是空的。

　　'刷新计数和合计显示

　　Me.计数 = DCount("*", "存书查询_交叉表")

　　Me.合计 = DSum("[单价]", "存书查询")

　　End Sub