access查询好.docVIP

Access各种查询代码 (2012-03-01 18:56:00) 转载▼ 标签： 分类： Access各种查询代码相关搜索: 查询ACCESS查询分段统计人数这样一个表? tblScore：班级 姓名 总分 语文 数学1班?? a???? 601?? 108?? 1202班?? b???? 589?? 112?? 1333班?? C???? 551?? 98??? 1452班?? D???? 502?? 80??? 1241班?? E???? 508?? 90??? 853班?? F???? 561?? 97??? 135? TRANSFORM Count(tblScore.总分) AS 总分OfCountSelect tblScore.班级FROM tblScoreGROUP 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 stringdim 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.CatalogDim cmd As New ADODB.CommandSet cat.ActiveConnection = CurrentProject.Connectioncmd.CommandText = Select * FROM 表1cat.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.类别