使用ADO操作Access數(shù)據(jù)庫

昵稱2548375 2018-09-18

展開全文

ADO對象

1、Access內(nèi)嵌的VBA是用ADO技術(shù)開發(fā)數(shù)據(jù)庫應用的主要工具，ADO是目前Microsoft通用的數(shù)據(jù)訪問技術(shù)；

2、ADO對象模型包括：Connection、Recordset、Record、Command、Parameter、Field、Property、Stream、Error九個對象；

3、主要的ADO對象介紹：

1）Connection對象：ADO對象模型中的最高級對象，用來實現(xiàn)應用程序與數(shù)據(jù)源的連接；

2）Command對象：主要在VBA中使用SQL語句訪問、查詢和修改數(shù)據(jù)庫中的數(shù)據(jù)，實現(xiàn)Recordset對象無法實現(xiàn)的操作（數(shù)據(jù)表級別的操作），可以使用DoCmd代替；

3）Recordset對象：ADO最為常用的、重要的對象，可以訪問表和查詢對象，返回的記錄儲存在Recorderset對象中，主要執(zhí)行的操作：

①查詢數(shù)據(jù)表中的數(shù)據(jù)；

②在數(shù)據(jù)表中添加數(shù)據(jù)；

③更新數(shù)據(jù)表中的數(shù)據(jù)；

④刪除數(shù)據(jù)表中的特定數(shù)據(jù)；

在Access中引用ADO對象

1、Access引用ADO的步驟：

①聲明、初始化Connection對象；

②創(chuàng)建Recordset對象，編程完成各種操作；

③關(guān)閉ADO對象；

2、聲明、初始化Connection對象

'聲明Connection對象：一般使用cn做為變量的命名前綴；

Dim coName As ADODB.Connection

'初始化Connection對象，連接當前數(shù)據(jù)庫；

Set cnName = CurrentProject.Connection

3、聲明和打開Recordset對象

1）聲明、初始化Recordset對象

Dim rsName As ADODB.Recoreset

set rsName = new ADODB.Recordset

2）打開一個Recordset對象

使用Recordset的Open方法可以打開數(shù)據(jù)表、查詢對象、或直接引用SQL查詢語句

rsName.Open source, ActiveConnection, CursorType，LockType，Option

常用Option類型
adCmdTable	表類型
adCmdText	命令文本
adCmdStoredProc	過程
adCmdUnKnowm	不指定內(nèi)容

4、關(guān)閉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開始，可以用循環(huán)輸出需要量的記錄

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	數(shù)據(jù)處于只讀狀態(tài)，數(shù)據(jù)不能改變
adLockPressimistic	保守式鎖定，在編輯數(shù)據(jù)是時鎖定數(shù)據(jù)源記錄，直到數(shù)據(jù) 編輯完成時才釋放
adLockOptimistic	開放式鎖定，編輯數(shù)據(jù)時不鎖定數(shù)據(jù)，只在調(diào)用Update方法提交數(shù)據(jù)時才鎖定數(shù)據(jù)源記錄
adLockBathOptimistic	開方式更新，應用于批更新模式

通過Recordset對象編輯數(shù)據(jù)

1、用AddNew方法添加記錄

1）調(diào)用記錄集AddNew方法，產(chǎn)生一個空記錄

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

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）將某條記錄指定為當前記錄

'刪除rsDemo數(shù)據(jù)集中Age = "18" 的記錄

Private Sub DeleteAge(Dim deleteAge as Integer)

rsDemo.MoveFirst

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、定義數(shù)據(jù)

1）創(chuàng)建數(shù)據(jù)表

格式：Create Table 表名 (字段名數(shù)據(jù)類型.....)

如：DoCmd.RunSQL "Create Table 研究生(姓名 text(6),年齡 byte,入學日期 date)"

2）增加字段

格式：Alter Table 表名 Add 字段名數(shù)據(jù)類型

如：DoCmd.RunSQL "Alter Table student Add 學費 currency"

3）改變字段類型

格式：Alter Table 表名 Alter 字段名新數(shù)據(jù)類型

如：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）刪除一個數(shù)據(jù)表

格式：Drop Table 表名

如：DoCmd.RunSQL "Drop Table student"

7）修改數(shù)據(jù)表名字

格式：DoCmd.rename "新表名", acTable, "舊表名"

如：DoCmd.rename "學生", acTable, "student"

2、編輯數(shù)據(jù)

1）向表中追加數(shù)據(jù)

格式：Insert into 表名 Values（記錄.....）

注：字符串型數(shù)據(jù)用 ‘ ’，日期型型數(shù)據(jù)可以 ‘ ’，或 # #；

如：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 字段=數(shù)值 Where 限定條件

如：DoCmd.RunSQL "Update student set 年齡=20 Where 姓名='李達'"

3）刪除待定記錄

格式：Delete from 表名 where 限定條件

如： DoCmd.RunSQL "Delete from student where 姓名='李達'"

3、實現(xiàn)數(shù)據(jù)完整性約束

1）設置主鍵

格式：Alter Table 表名 Add Primary Key (字段名)

如：DoCmd.RunSQL "Alter Table 導師 Add Primary Key (導師編號)"

2）設置外鍵

格式：Alter Table 主表名 Add Foreign Key (字段名) References 從表名