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

Part 1：前面的话

1. 对Access数据库的大部分操作都可以通过SQL语言来实现
2. SQL:Structure Query Language，结构化查询语言，语法简单，非常容易学
3. SQL语言的执行可借助于ADO，ADO本身也支持对数据库的各种操作，但是涉及到一些其它知识的学习
4. 这个系列中，除非无法用SQL来实现，否则会使用SQL
5. SQL作为数据库操作的通用语言，学会了后也可用于对其它数据库的操作，那也是极好的

Part 2：本篇目标

1. 对已有空白数据库创建一个数据表

2. 根据要求创建新的字段，指定字段的约束

3. 基本逻辑过程：

4. • 连接数据库
   • 确定SQL语句
   • 执行SQL语句
   • 根据需求重复上面两步
   • 关闭数据库的连接

5. 记得引用Microsoft ActiveX Data Objects 2.8 Library

Part 3：代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

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

    SQL = "CREATE TABLE " & tblName & " (ID AUTOINCREMENT primary key)"
    Set rs = cnn.Execute(SQL)

    field1 = "姓名  text(6)"
    field2 = "学号  single"
    field3 = "性别  text(1)"

    SQL = "ALTER TABLE " & tblName & " ADD " & field1 & "," & field2 & "," & field3
    Set rs = cnn.Execute(SQL)

    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing

End Sub

执行结果：新建表

执行结果：新建字段

Part 4：部分代码解读

1. ADO连接不同数据库采用不同引擎

2. • Microsoft.ACE.OLEDB.12.0 **连接Access**
   • 老版本的Access（.mdb后缀的）可以使用引擎 Microsoft.Jet.OLEDB.4.0

3. CREATE TABLE " & tblName & " (ID AUTOINCREMENT primary key)创建了一个工作表，并设置一个字段（主键，唯一且自增）

4. • CREATE TABLE 工作表名称 （字段信息），中文释义可以理解为：新建数据表XX，字段XX且为主键
   • ID这个字段每增加一行记录，会自增1，设为主键

5. SQL = "ALTER TABLE " & tblName & " ADD " & field1 & "," & field2 & "," & field3，新增字段

6. • ALTER，修改，上面的SQL中文释义可以理解为，修改数据表XX增加字段XX，其实还是比较直白的

7. field2 = "学号 single"，设置字段特性，字段名称为学号，类型为Single，单精度实数

8. Set rs = cnn.Execute(SQL)，运行该SQL语句

字段约束

1
2
3
4
5
6

主键官方定义：

主键是表中的一个字段或字段集，为每条记录提供一个唯一的标识符。
在数据库中，请将信息划分到基于主题的不同表中。
然后，使用表关系和主键以指示 Access 如何将信息再次组合起来。
Access 使用主键字段将多个表中的数据迅速关联起来，并以一种有意义的方式将这些数据组合在一起。