Access/VBA/Excel-Access记录修改-05

系统：Windows 10
软件：Excel 2010 / Access 2010

• 这个系列开展一个新的篇章，重点关注Access数据库

• 主体框架：以Excel作为操作界面，Access作为数据库

• 今天讲讲如何修改原有记录

• 涉及知识：ADO，SQL：UPDATE

今日歌曲：

Part 1：目标

1. 前文中，我们已经获取了一个工作表（学生信息表）和4个字段（ID，姓名，学号，性别），并输入了两行记录

2. 今天在原有字段的基础上增加籍贯，语文成绩两个新的字段

3. 并对原张三的记录做一些修改：修改学号信息，增加籍贯及语文成绩信息
   

• 原记录：张三，11，男

• 修改后：张三，1，男，广东省，85

结果如下

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    field1 = '籍贯 text(10)'    field2 = '语文成绩 single'    '增加字段    SQL = 'ALTER TABLE ' & tblName & ' ADD ' & field1 & ',' & field2    Set rs = cnn.Execute(SQL)    '补充记录    stuName = '张三'    jiGuan = '广东省'    yuWenNote = 85    newXueHao = 1    SQL = 'Update ' & tblName & ' SET ' _    & '籍贯=' & Chr(39) & jiGuan & Chr(39) _    & ',语文成绩=' & yuWenNote _    & ',学号=' & newXueHao _    & ' where 姓名=' & Chr(39) & stuName & Chr(39)    Set rs = cnn.Execute(SQL)    cnn.Close    Set rs = Nothing    Set cnn = Nothing End Sub

Part 3：部分代码解读

1. Update 工作表名 set 字段1=X1，字段2=X2 where 字段4=X4

2. 中文释义：修改（更新）工作表，字段4=X4所在记录（行）中，字段1的值改为=X1，字段2改为X2

3. 即：通过某一字段的值，定位到某一记录（行），修改这一记录（行）中其它字段的值

相关文章

Access/VBA/Excel-Access记录创建-04

Access/VBA/Excel-Access表及字段创建-03

Access/VBA/Excel-新建Access文件-02

Access/VBA/Excel-数据库-01

小结：对数据库的操作转化为对应的SQL语句，然后运行，搞定

---

以上为本次的学习内容，下回见