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. 连接数据库
5. 确定SQL语句
6. 执行SQL语句
7. 根据需求重复上面两步
8. 关闭数据库的连接
9. 记得引用Microsoft ActiveX Data Objects 2.8 Library

Part 3：代码

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
3. 老版本的Access（.mdb后缀的）可以使用引擎 Microsoft.Jet.OLEDB.4.0
4. CREATE TABLE " & tblName & " (ID AUTOINCREMENT primary key)创建了一个工作表，并设置一个字段（主键，唯一且自增）
5. CREATE TABLE 工作表名称 （字段信息），中文释义可以理解为：新建数据表XX，字段XX且为主键
6. ID这个字段每增加一行记录，会自增1，设为主键
7. SQL = "ALTER TABLE " & tblName & " ADD " & field1 & "," & field2 & "," & field3，新增字段
8. ALTER，修改，上面的SQL中文释义可以理解为，修改数据表XX增加字段XX，其实还是比较直白的
9. field2 = "学号 single"，设置字段特性，字段名称为学号，类型为Single，单精度实数
10. Set rs = cnn.Execute(SQL)，运行该SQL语句

字段约束

主键官方定义：

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

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