access数据库语句建表-access怎么用sql建表

系统：Windows 10

软件：Excel 2010 / Access 2010

今日之歌：

第 1 部分：目标

从上一篇文章中，我们得到了一个worksheet（学生信息表）和4个字段（ID、姓名、学号、性别）

今天的文章开始往Access数据库中录入一段数据

包括两条记录

结果如下

第 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

第三部分：一些代码的解释

INSERT INTO 工作表名称（字段 1、字段 2、字段 3） VALUES（字段 1 的值、字段 2 的值、字段 3 的值）

中文解释：在工作表X的字段1中输入数据X，在字段2中输入数据X，在字段3中输入数据X

如果字段中对应的值是字符串，需要用单引号(Chr(39)) ''access数据库语句建表，如果是时间，使用#时间信息#

ID字段自增access数据库语句建表，无需额外赋值，每次有新记录自动+1

相关文章

总结：对数据库的操作转换成对应的SQL语句，然后运行即可完成

愿你内心深处永远有一颗童心。 六一儿童节快乐，大朋友们！

以上就是本次的学习内容，下次再见