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

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