Part 1:前面的话
- 对Access数据库的大部分操作都可以通过SQL语言来实现
- SQL:Structure Query Language,结构化查询语言,语法简单,非常容易学
- SQL语言的执行可借助于ADO,ADO本身也支持对数据库的各种操作,但是涉及到一些其它知识的学习
- 这个系列中,除非无法用SQL来实现,否则会使用SQL
- SQL作为数据库操作的通用语言,学会了后也可用于对其它数据库的操作,那也是极好的
Part 2:本篇目标
- 对已有空白数据库创建一个数据表
- 根据要求创建新的字段,指定字段的约束
- 基本逻辑过程:
- 连接数据库
- 确定SQL语句
- 执行SQL语句
- 根据需求重复上面两步
- 关闭数据库的连接
- 记得引用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 = NothingEnd Sub
执行结果:新建表
![4fa7af756fb74f3b1da6e51572f239fd.png](https://i-blog.csdnimg.cn/blog_migrate/f10a96aaa14b614aa023520be6185c63.jpeg)
执行结果:新建字段
![40497b68ea47423e033ac11c77f2e243.png](https://i-blog.csdnimg.cn/blog_migrate/083d49f89e47a9d62b699dc9a2c0e4e0.jpeg)
Part 4:部分代码解读
- ADO连接不同数据库采用不同引擎
- Microsoft.ACE.OLEDB.12.0 连接Access
- 老版本的Access(.mdb后缀的)可以使用引擎 Microsoft.Jet.OLEDB.4.0
- CREATE TABLE " & tblName & " (ID AUTOINCREMENT primary key)创建了一个工作表,并设置一个字段(主键,唯一且自增)
- CREATE TABLE 工作表名称 (字段信息),中文释义可以理解为:新建数据表XX,字段XX且为主键
- ID这个字段每增加一行记录,会自增1,设为主键
- SQL = "ALTER TABLE " & tblName & " ADD " & field1 & "," & field2 & "," & field3,新增字段
- ALTER,修改,上面的SQL中文释义可以理解为,修改数据表XX增加字段XX,其实还是比较直白的
- field2 = "学号 single",设置字段特性,字段名称为学号,类型为Single,单精度实数
- Set rs = cnn.Execute(SQL),运行该SQL语句
字段约束
![8bd7d25f4e8d0d0e49dc4dd0e27b8df8.png](https://i-blog.csdnimg.cn/blog_migrate/09f8a09843c1e1d5d95a17f273fe46dc.jpeg)
主键官方定义:主键是表中的一个字段或字段集,为每条记录提供一个唯一的标识符。在数据库中,请将信息划分到基于主题的不同表中。然后,使用表关系和主键以指示 Access 如何将信息再次组合起来。Access 使用主键字段将多个表中的数据迅速关联起来,并以一种有意义的方式将这些数据组合在一起。
小结:想对数据库的操作转化为对应的SQL语句,然后运行,搞定