VBA创建查询/修改查询/执行操作查询

来源: 点击数:22431 　 | 收藏 | 复制

时　间:2009-05-22 16:24:47
作　者: ID：6096 城市：秭归
摘　要:VBA 窗体组合框查询 SQL
正　文:

Sub CX() '最单的VBA创建查询例子
Dim strSQL As String
Dim qdf As QueryDef
'删除TEMP查询
For Each Query1 In CurrentDb.QueryDefs
  If Query1.Name = "TEMP" Then
    CurrentDb.QueryDefs.Delete Query1.Name
    Exit For
End If
Next Query1
strSQL = "Select * from ZZ1"   'tblaa为表
Set qdf = CurrentDb.CreateQueryDef("TEMP", strSQL)  '创建查询TEMP
DoCmd.OpenQuery qdf.Name '执行查询
End Sub

'//---------------------------------------------------------

Private Sub Command5_Click() '修改查询TMP的SQL

Dim db As DAO.Database
Dim qry As DAO.QueryDef
Set db = CurrentDb
Set qry = db.QueryDefs("TMP")
SQL = "Select myvagn([08期中],[08期末],[09期中]) AS X总分X,学号, 性别, 姓名, 班级,[08期中],[08期末],[09期中]"
SQL = SQL + " FROM " & Me.Combo0 & "摸底 orDER BY myvagn([08期中],[08期末],[09期中]) DESC;"
qry.SQL = SQL
DoCmd.OpenQuery "TMP", acNormal, acEdit '运行查询
End Sub

'//------------------------------------------------------------

Private Sub Command4_Click()' VBA执行查询生成表
SQL = "Select [0xx中学结构].* INTO " & Me.Combo0
SQL = SQL + " FROM 0xx中学结构;"
DoCmd.RunSQL (SQL)
End Sub

Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店

【打印此文】【关闭窗口】