作者：绿色风
分类：
时间：2022-08-17
浏览：189
楼主
wise |
Q:如何使用VBA删除SQL Server 表中多条记录?
A:ALT+F11→插入模块，在模块中输入以下代码：- Sub Deletedata()
- Dim conn As Object, rs As Object
- Dim SQL As String
- '***********************需要修改此处的SQL Server 数据库条件******************************
- MyServer = "WISE-THINK" '存放数据的SQL Server 服务器
- mydata = "VBA学习专用" '存放数据的SQL Server 数据库
- '***********************修改结束*********************************************************
- Set conn = CreateObject("ADODB.Connection") '建立ADODB连接对象
- Set rs = CreateObject("ADODB.recordset") '建立收集器对象
- conn.connectionstring = "Driver={sql server};" _
- & "server=" & MyServer & ";" _
- & "uid=;pwd=;" _
- & "database=" & mydata _
- & ";AutoTranslate=False"
- '服务器是:WISE-THINK
- conn.Open '打开连接SQL server
- If MsgBox("是否要删除数据?", vbQuestion + vbYesNo) = vbYes Then
- '删除记录的SQL语句
- SQL = "Delete from 套餐 where 品牌='小米' "
- '执行SQL语句
- conn.Execute SQL
- MsgBox "数据删除!", vbInformation
- Else
- MsgBox "数据删除操作取消", vbInformation
- End If
- conn.Close
- Set conn = Nothing
- End Sub
|
2楼
纵鹤擒龙水中月 |
学习了 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一