使⽤ADO操作Access数据库
ADO对象
1、Access内嵌的VBA是⽤ADO技术开发数据库应⽤的主要⼯具，ADO是⽬前Microsoft通⽤的数据访问技术；
2、 ADO对象模型包括：Connection、Recordset、Record、Command、Parameter、Field、Property、Stream、Error九个对象；
3、主要的ADO对象介绍：
1）Connection对象：ADO对象模型中的最⾼级对象，⽤来实现应⽤程序与数据源的连接；
2）Command对象：主要在VBA中使⽤SQL语句访问、查询和修改数据库中的数据，实现Recordset对象⽆法实现的操作（数据表级别的操作），可以使⽤DoCmd代替；
3）Recordset对象：ADO最为常⽤的、重要的对象，可以访问表和查询对象，返回的记录储存在Recorderset对象中，主要执⾏的操作：
①查询数据表中的数据；
②在数据表中添加数据；
③更新数据表中的数据；
④删除数据表中的特定数据；
在Access中引⽤ADO对象
1、Access引⽤ADO的步骤：
①声明、初始化Connection对象；
②创建Recordset对象，编程完成各种操作；
③关闭ADO对象；
2、声明、初始化Connection对象
'声明Connection对象：⼀般使⽤cn做为变量的命名前缀；
Dim coName As ADODB.Connection
'初始化Connection对象，连接当前数据库；
Set cnName = CurrentProject.Connection
3、声明和打开Recordset对象
1）声明、初始化Recordset对象
Dim rsName As ADODB.Recoreset
set rsName = new ADODB.Recordset
2）打开⼀个Recordset对象
使⽤Recordset的Open⽅法可以打开数据表、查询对象、或直接引⽤SQL查询语句
rsName.Open source, ActiveConnection, CursorType，LockType，Option
常⽤Option类型
adCmdTable表类型
adCmdText命令⽂本
adCmdStoredProc过程
adCmdUnKnowm不指定内容
4、关闭Recordset和Connection对象
rsName.Close
cnName.Close
Set rsName = Nothing
Set cnName = Nothing
通过Recordset对象引⽤记录字段
1、引⽤字段的⽅法有2种：直接在记录集对象中引⽤字段名称；使⽤记录集对象的Fields（n）属性引⽤；Code = rsName！字段名
'引⽤该字段的第⼀条记录
Code = rsName.Field(n)
'引⽤该字段的第n条记录，n从0开始，可以⽤循环输出需要量的记录
2、如果记录集字段包含空格、或者是⼀个保留字，则引⽤时必须将该字段⽤ [  ] 括起来；
通过Recordset对象浏览记录
1.Recordset记录集对象提供了4种⽅法浏览记录
MoveFirst记录指针移动到记录集的第⼀条记录
MoveNext移动到当前记录的下⼀条记录
MovePrevious移动到当前记录的上⼀条记录
MoveLast移动到记录集的最后⼀条记录
2、 BOF、EOF属性分别记录指针是否在⽂件开始、⽂件末尾；
如果记录集指针指向某记录时，BOF和EOF都为false；
'添加⼀个窗体部件的按钮事件：浏览下⼀条记录
Priavte Sub ComomndNext_Click()
rsDemo.MoveNext
If rsDemo。EOF Then
rsDemo.MoveFirst
End If
End Sub
3、Recordset对象的LockType属性默认为adLockReadOnly（只读）
adLockReadOnly数据处于只读状态，数据不能改变
adLockPressimistic 保守式锁定，在编辑数据是时锁定数据源记录，直到数据 编辑完成时才释放
adLockOptimistic 开放式锁定，编辑数据时不锁定数据，只在调⽤Update⽅法提交数据时才锁定数据源记录
adLockBathOptimistic开⽅式更新，应⽤于批更新模式
通过Recordset对象编辑数据
1、⽤AddNew⽅法添加记录
1）调⽤记录集AddNew⽅法，产⽣⼀个空记录
2）为空记录的各个字段赋值；
3）⽤记录集Update⽅法更新保持新记录；
'添加记录按钮事件，假设rsDemo记录集有字段Id(int),Name(String),Age(int)
Private Sub CommandAdd_Click()
rsDemo.MoveLast  '记录集指针移动到记录集最后
rsDemo.AddNew  '添加⼀条新纪录
rsDemo ! Id = "123"
rsDemo ! Name = "assad"
rsDemo ! Age = "18"
rsDemo.Update
End Sub
2、⽤Update⽅法修改记录
1）寻并将记录集指针移动到需要修改的记录上；
2）对记录中的各个字段的值进⾏修改；
3）⽤记录集Update⽅法更新保持新记录；
'修改记录集中Age字段所有值+1；
Private Sub UpdateAge()
rsDemo.MoveFirst
Do
Dim Code as Integer
Code = rsDemo ! Age
rsDemo ! Age = Code +1
Loop Until rsDemo.EOF
rsDemo.Update
End Sub
3、⽤Delete⽅法删除记录
1）将记录集指针移动到需要删除的记录上；
2）使⽤Delete⽅法删除当前记录；
3）将某条记录指定为当前记录
access数据库生成网页版
'删除rsDemo数据集中Age = "18" 的记录
Private Sub DeleteAge(Dim deleteAge as Integer)
rsDemo.MoveFirst
Do
IF rsDemo ! Age == deleteAge Then
rsDemo。Delete
rsDemo。MoveNext
End IF
Loop Until rsDemo.EOF
End Sub
注： ⼀条记录被删除后，Access不会⾃动是下⼀条记录成为当前记录，这时要⽤MoveNext⽅法将记录集指针定位到最后⼀条记录中；
通过Command/DoCmd对象使⽤SQL命令
Access提供了DoCmd对象，其RunSOL⽅法可以在VBA中使⽤SQL命令；
DoCmd.RunSQL "SQL命令"
or：
Dim s AS String
s = "SQL命令"
DoCmd.RunSQL s
1、定义数据
1）创建数据表
格式： Create Table 表名 (字段名 数据类型.....)
如：DoCmd.RunSQL "Create Table 研究⽣(姓名 text(6)，年龄 byte,⼊学⽇期 date)"
2）增加字段
格式： Alter Table 表名 Add 字段名 数据类型
如：DoCmd.RunSQL "Alter Table student Add 学费 currency"
3）改变字段类型
格式： Alter Table 表名 Alter 字段名 新数据类型
如：DoCmd.RunSQL "Alter Table student Alter 年龄  integer"
4）改变字段宽度
格式： Alter Table 表名 Alter 字段名 新宽度
如：DoCmd.RunSQL "Alter Table studnt Alter 姓名 text(6)"
5）删除⼀个字段
格式： Alter 表名 Drop 字段名
如: DoCmd.RunSQL "Alter student Drop 年龄"
6）删除⼀个数据表
格式： Drop Table 表名
如：DoCmd.RunSQL "Drop Table student"
7）修改数据表名字
格式： ame "新表名", acTable, "旧表名"
如：ame "学⽣", acTable, "student"
2、编辑数据
1）向表中追加数据
格式： Insert into 表名 Values（记录.....）
注： 字符串型数据⽤ ‘  ’， ⽇期型型数据可以 ‘    ’，或 #  #；
如：DoCmd.RunSQL "Insert into student Values('李达',35,'2003-1-15') "
或：Dim name As String
Dim age As Byte, dates As Date
name = InputBox("输⼊学⽣姓名")
dates = InputBox("输⼊⼊学⽇期")
ages = 17
DoCmd.RunSQL "Insert into student Values ('" & name & "'," & age & ",'" & dates & "')"
2）修改表中记录
格式： Update 表名 set 字段=数值  Where 限定条件
如：DoCmd.RunSQL "Update student set 年龄=20 Where 姓名='李达'"
3）删除待定记录
格式： Delete from 表名 where 限定条件
如： DoCmd.RunSQL "Delete from student where 姓名='李达'"
3、实现数据完整性约束
1）设置主键
格式： Alter Table 表名 Add Primary Key (字段名)
如：DoCmd.RunSQL "Alter Table 导师 Add Primary Key (导师编号)"
2）设置外键
格式： Alter Table 主表名 Add Foreign Key (字段名) References 从表名
如：DoCmd.RunSQL "Alter Table 研究⽣ Add Foreign Key (导师编号) References 导师"
4、执⾏查询操作
VBA程序中可以⽤SQL命令完成数据查询操作，但是⽆法直接将查询结果所返回的记录集按数据表的形式显⽰，解决⽅法有：
1）将查询结果的返回记录集⽣成⼀个新表保存在数据库中，然后⽤ADO记录集对象对这个表进⾏各种操作，完成后再删除这个表；  Docmd.runSQL "Select 姓名，职称，年龄  Into temp From 导师 Where 职称 in（'教授'，'副教授'）"
操作.....
rsTeacher.Close
Docmd.runSQL "Drop Table temp"
2）将返回的记录集看成保存在内存中的⼀个临时表，⽤ADO记录集对象直接打开该查询指令；
访问当前数据库以外的数据库
1、Access提供了Connection.Open⽅法以连接另⼀个数据库
2、格式： Connection对象.Open "Provider=提供者；Date Source=数据库名；User ID=⽤户；PassWord=密码"
3、其中提供者为 Microsoft.Jet.OLEDDB.4.0；数据库名包括 数据库所在的路径（包括.mdb⽂件名）；

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。