系统:Windows 7
软件:Excel 2010 / Access 2010
- 这个系列开展一个新的篇章,重点关注Access数据库
- 主体框架:以Excel作为操作界面,Access作为数据库
- 今天讲讲如何删除特定字段
- 涉及知识:
ADO
,SQL:Alter + drop
Part 1:目标
- 如上图所示,删除性别这一字段(列)
- 逻辑过程
- 连接数据库
- 根据需求确定SQL语句
- 执行SQL语句
- 断开与数据库的连接
Part 2:代码
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 = "Alter table " & tblName & " drop Column 性别"
Set rs = cnn.Execute(SQL)
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub
执行后效果
Part 3:部分代码解读
Alter table " & tblName & " drop Column 性别
- 中文释义:从工作表中删除性别列(字段)
本文为原创作品,如需转载,可加小编微信号learningBin
以上为本次的学习内容,下回见
如发现有错误,欢迎留言指出
更多精彩,请关注微信公众号
扫描二维码,关注本公众号