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

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

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

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

• 今天讲讲如何新建新的记录（行）

• 涉及知识：ADO，SQL

今日歌曲：

Part 1：目标

1. 从上一篇文章中，我们已经获取了一个工作表（学生信息表）和4个字段（ID，姓名，学号，性别）

2. 今天的文章开始向Access数据库中录入一条条数据

3. 包括两条记录

• 张三，11，男

• 李四，12，男

结果如下

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    '记录1    stuName = '张三'    stuNum = 11    stuGender = '男'    SQL = 'INSERT INTO ' & tblName & ' (姓名,学号,性别) VALUES' _    & '(' & Chr(39) & stuName & Chr(39) & ',' & stuNum & ',' & Chr(39) & stuGender & Chr(39) & ')'    Set rs = cnn.Execute(SQL)    '记录2    stuName = '李四'    stuNum = 12    stuGender = '男'    SQL = 'INSERT INTO ' & tblName & ' (姓名,学号,性别) VALUES' _    & '(' & Chr(39) & stuName & Chr(39) & ',' & stuNum & ',' & Chr(39) & stuGender & Chr(39) & ')'    Set rs = cnn.Execute(SQL)    cnn.Close    Set rs = Nothing    Set cnn = NothingEnd Sub

Part 3：部分代码解读

1. INSERT INTO 工作表名称 （字段1，字段2，字段3） VALUES（字段1对应值，字段2对应值，字段3对应值）

2. 中文释义：向工作表X中的字段1中录入数据X，字段2中录入数据X，字段3录入数据X

3. 若字段中对应值为字符串，需在单引号（Chr(39)）中''，若是时间，则使用#时间信息#

4. ID字段是自增式，无需额外赋值，每有一个新的记录，会自动 1

相关文章

Access/VBA/Excel-数据库-01

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

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

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

祝大家内心深处一直有一颗童真的心，儿童节快乐，大朋友们！

---

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