VBA代码添加修改删除查询
在使用access数据库的过程中,创建查询是一个必不可少的步骤,每次都要手工去创建查询又是一件比较枯燥的事情(主要是想偷懒),经过一番东翻西找,疯狂的百度后,终于是找到了方法如何实现VBA代码去新增修改删除查询,做出一个例子分享一下自己的收获。
制作例子和原理表述的清晰就不搞的太复杂了,简单明了才是好例子。
*******************我是华丽的分割线
新增一个名为"myQuery"查询,代码如下:
Private Sub cmd新增查询_Click()
On Error GoTo errorHandler
Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSQL As String
Set dbs = CurrentDb
Set qdf = dbs.CreateQueryDef("myQuery")
Application.RefreshDatabaseWindow
strSQL = "Select * FROM [供应商信息表] "
qdf.SQL = strSQL
qdf.Close
Set qdf = Nothing
Set dbs = Nothing
MsgBox "已添加名称为 [myQuery] 查询"
ExitHere:
Exit Sub
errorHandler:
MsgBox Err.Description
Resume ExitHere
End Sub
修改"myQuery"查询,代码如下:
Private Sub cmd修改查询_Click()
On Error GoTo errorHandler
Dim strSQL As String
strSQL = "Select * FROM [供应商信息表] Where [供应商名称]='华为'"
CurrentDb.QueryDefs("myQuery").SQL = strSQL
ExitHere:
Exit Sub
errorHandler:
MsgBox Err.Description
Resume ExitHere
End Sub
删除"myQuery"查询,代码如下:
Private Sub cmd删除查询_Click()
Dim Query1 As QueryDef
CurrentDb.QueryDefs.Refresh
For Each Query1 In CurrentDb.QueryDefs
If Query1.Name = "myQuery" Then
CurrentDb.QueryDefs.Delete Query1.Name
Exit For
End If
Next Query1
End Sub
*******************又是我, 我是华丽的分割线
附变量的设置:
数字型变量:"& 变量 & "
文本型变量:'"& 变量 &"'
日期型变量:#"& 变量 &"#
*********************还是我,我是华丽的分割线
通过这次学习,发现一般的一个表的查询如果使用代码创建还可以非常方便,算是减轻了工作量,优化了步骤,假如新增的时候,使用组合框显示表名称来创建查询就更加的方便了,这里把思路留给各位同好,或者留到下一次再去挖掘。
*************最后还是我,我是华丽的分割线
每一次的进步都是为了怎么把自己从繁琐枯燥的工作中解脱出来,让自己做的东西更加智能化。
附 件:
点击下载此附件