VBA创建查询示例

时　间:2013-05-11 12:24:59
作　者:杜超-2号   ID：16058  城市：江阴
摘　要:VBA创建查询示例
正　文:

点击下载附件

Private Sub 创建白云石查询_Click()
    Set qdf = CurrentDb.CreateQueryDef("qry白云石", "select * from 白云石")
    Application.RefreshDatabaseWindow  '刷新
    MsgBox "创建成功！"

End Sub

Private Sub 删除白云石查询_Click()
    DoCmd.DeleteObject acQuery, "qry白云石"
    Application.RefreshDatabaseWindow  '刷新
    MsgBox "删除成功！"
End Sub

Private Sub 根据表名创建一个查询_Click()
    Set qdf = CurrentDb.CreateQueryDef("" & "qry" & Me.txt表名 & "", "select * from " & Me.txt表名 & "")
    Application.RefreshDatabaseWindow  '刷新
    MsgBox "创建成功！"
End Sub

Private Sub 删除此查询_Click()
    DoCmd.DeleteObject acQuery, "" & "qry" & Me.txt表名 & ""
    Application.RefreshDatabaseWindow  '刷新
    MsgBox "删除成功！"

End Sub