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

L罗乐 2017-12-17

展开全文

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

这个系列开展一个新的篇章，重点关注Access数据库
主体框架：以Excel作为操作界面，Access作为数据库
今天讲讲如何新建新的记录（行）
涉及知识：ADO，SQL

今日歌曲：

Part 1：目标

从上一篇文章中，我们已经获取了一个工作表（学生信息表）和4个字段（ID，姓名，学号，性别）
今天的文章开始向Access数据库中录入一条条数据
包括两条记录

张三，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 = Nothing

End Sub