VBA代码添加修改删除查询
时 间:2020-06-14 10:26:16
作 者:欧志华 ID:51519 城市:广州
摘 要:VBA代码添加修改删除查询。
正 文:
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] 查询"
新增一个名为"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
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
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
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
*******************又是我, 我是华丽的分割线
附变量的设置:
数字型变量:"& 变量 & "
文本型变量:'"& 变量 &"'
日期型变量:#"& 变量 &"#
数字型变量:"& 变量 & "
文本型变量:'"& 变量 &"'
日期型变量:#"& 变量 &"#
*********************还是我,我是华丽的分割线
通过这次学习,发现一般的一个表的查询如果使用代码创建还可以非常方便,算是减轻了工作量,优化了步骤,假如新增的时候,使用组合框显示表名称来创建查询就更加的方便了,这里把思路留给各位同好,或者留到下一次再去挖掘。
通过这次学习,发现一般的一个表的查询如果使用代码创建还可以非常方便,算是减轻了工作量,优化了步骤,假如新增的时候,使用组合框显示表名称来创建查询就更加的方便了,这里把思路留给各位同好,或者留到下一次再去挖掘。
*************最后还是我,我是华丽的分割线
每一次的进步都是为了怎么把自己从繁琐枯燥的工作中解脱出来,让自己做的东西更加智能化。
附 件:
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)
- 【Access查询示例】怎么将两个...(04.09)
- 【Access窗体导出PDF】Ac...(04.08)