系统:Windows 10
软件:Excel 2010 / Access 2010
这个系列开展一个新的篇章,重点关注Access数据库
主体框架:以Excel作为操作界面,Access作为数据库
今天讲讲如何删除原有记录
涉及知识:
ADO
,SQL:delete
今日歌曲:
删除姓名为张三的这一条记录
逻辑过程
连接数据库
根据需求确定SQL语句
执行SQL语句
断开与数据库的连接
删除记录前
Sub test()
Dim cnn As New ADODB.Connection '连接 Dim rs As New ADODB.Recordset
Dim SQL As String Dim tblName
Dim dbAddr dbAddr = ThisWorkbook.Path & '\学生信息.accdb' tblName = '学生信息表' '连接数据库 With cnn .Provider = 'Microsoft.ACE.OLEDB.12.0' .Open 'Data Source=' & dbAddr
End With SQL = 'delete from ' & tblName & ' where 姓名='张三'' Set rs = cnn.Execute(SQL) cnn.Close
Set rs = Nothing Set cnn = Nothing
End Sub
执行后效果
delete from ' & tblName & ' where 姓名='张三'
中文释义:从工作表中删除一条 姓名字段取值为张三的一条记录
注意:张三有单引号包围起来
Access/VBA/Excel-Access记录修改-05
Access/VBA/Excel-Access记录创建-04
Access/VBA/Excel-Access表及字段创建-03
Access/VBA/Excel-新建Access文件-02
联系客服