ADO簡(jiǎn)介和新增記錄-部分預(yù)覽
內(nèi)容
中級(jí)學(xué)員可獲取完整教程 |
只有VIP中級(jí)學(xué)員才可查看本章【ADO簡(jiǎn)介和新增記錄】的 完整課件、完整源碼、清晰視頻（講師逐個(gè)知識(shí)點(diǎn)專(zhuān)業(yè)講解），系統(tǒng)、高效、專(zhuān)業(yè)地學(xué)習(xí)Access應(yīng)用及開(kāi)發(fā)，讓您節(jié)約大量的時(shí)間和精力，我們帶給您的不只是知識(shí)的講解，還有普通培訓(xùn)機(jī)構(gòu)無(wú)法提供給您的更多行業(yè)的編程經(jīng)驗(yàn)以及實(shí)戰(zhàn)開(kāi)發(fā)中的技巧，這些可以讓您少花很多無(wú)謂的時(shí)間，少走很多彎路，輕松直達(dá)專(zhuān)業(yè)開(kāi)發(fā)之路。
如需【Ado簡(jiǎn)介及新增記錄】完整培訓(xùn)視頻與源碼下載，請(qǐng)咨詢(xún)：
培訓(xùn)課件部分內(nèi)容預(yù)覽 |
ADO 基礎(chǔ)課程-部分PPT之1
ADO 基礎(chǔ)課程-部分PPT之2
ADO 基礎(chǔ)課程-部分PPT之3
ADO 基礎(chǔ)課程-部分PPT之4
ADO 基礎(chǔ)課程-部分PPT之5
ADO 基礎(chǔ)課程-部分PPT之6
ADO 基礎(chǔ)課程-部分PPT之7
ADO 基礎(chǔ)課程-部分PPT之8
ADO 基礎(chǔ)課程-部分PPT之9
ADO 基礎(chǔ)課程-部分PPT之10
培訓(xùn)內(nèi)容部分關(guān)鍵字 |
內(nèi)容摘要：
本Access培訓(xùn)視頻由Office中國(guó)出品
Access中級(jí)培訓(xùn)
ADO 基礎(chǔ)課程
本節(jié)講師：楊仕航
第一節(jié) ADO簡(jiǎn)介和新增記錄
本節(jié)摘要
ADO 簡(jiǎn)介
1
基本使用流程
2
用ADO實(shí)現(xiàn)增加記錄
3
ADO簡(jiǎn)介和新增記錄
ADO 簡(jiǎn)介
1
ADO (ActiveX Data Objects）是Microsoft提出的應(yīng)用程序接口（API）用以實(shí)現(xiàn)訪(fǎng)問(wèn)關(guān)系或非關(guān)系數(shù)據(jù)庫(kù)中的數(shù)據(jù)。
ADO 是對(duì)當(dāng)前微軟所支持的數(shù)據(jù)庫(kù)進(jìn)行操作的最有效和最簡(jiǎn)單直接的方法，它數(shù)據(jù)訪(fǎng)問(wèn)功能十分強(qiáng)大。
ADO簡(jiǎn)介和新增記錄
在Access中，ADO是除了Docmd對(duì)象之外的強(qiáng)大數(shù)據(jù)庫(kù)操作對(duì)象。
ADO 簡(jiǎn)介
1
ADO簡(jiǎn)介和新增記錄
基本使用流程
2
第一步，打開(kāi)連接Connection
Access中，有一個(gè)數(shù)據(jù)庫(kù)連接是一直打開(kāi)的 CurrentProject.Connection
后面直接使用這個(gè)即可，直接跳過(guò)這一步。
第二步，打開(kāi)記錄集RecordSet
1、定義一個(gè)記錄集
Dim Rs as New ADODB.RecordSet ‘聲明并定義一個(gè)記錄集
或者
Dim Rs as ADODB.RecordSet ‘聲明一個(gè)記錄集
Set Rs as new ADODB.RecordSet ‘定義
推薦用第一種方式定義，提高VBA運(yùn)行速度
ADO簡(jiǎn)介和新增記錄
基本使用流程
2
2、打開(kāi)一個(gè)記錄集
Rs.Open SQL語(yǔ)句,連接,參數(shù)A, 參數(shù)B
SQL語(yǔ)句，我們一般用的都比較簡(jiǎn)單，通常是 “select * from 表名” 或者
“select * from 表名 where 條件”
連接：用currentproject.connection
參數(shù)A和參數(shù)B內(nèi)容比較多，講解起來(lái)比較費(fèi)勁。為了容易上手，
我先簡(jiǎn)單說(shuō)兩個(gè)常用的參數(shù)：
參數(shù)A=1 參數(shù)B=3 表示可以修改
參數(shù)A=1 參數(shù)B=1 表示只讀，不可以修改（速度快）
舉例：Rs.Open “select * from tblPerson”,CurrentProject.Connection,1,3
打開(kāi)表tblPerson所有字段和記錄，可修改形式
ADO簡(jiǎn)介和新增記錄
ADO簡(jiǎn)介和新增記錄
基本使用流程
2
第三步，數(shù)據(jù)相關(guān)操作
1、增
2、查
3、改
4、刪
第四步，關(guān)閉記錄集
不關(guān)閉記錄集的話(huà)，容易出錯(cuò)，容易導(dǎo)致數(shù)據(jù)混亂。
ADO簡(jiǎn)介和新增記錄
用ADO實(shí)現(xiàn)增加記錄
3
Dim Rs as New ADODB.RecordSet ‘定義一個(gè)記錄集
Dim strSql as String ‘定義一個(gè)字符串，用于存放SQL語(yǔ)句
strSql=“select * from tblPerson” ‘設(shè)置SQL語(yǔ)句
Rs.Open strSql,CurrentProject.Connection,1,3 ‘打開(kāi)記錄集
Rs.Add ‘新增
Rs.Fields(“字段名”)=“值” ‘新增相關(guān)操作（fields(1)）
‘…
Rs.Update ‘提交數(shù)據(jù)
Rs.close ‘關(guān)閉記錄集，用完一定要關(guān)閉
Set Rs = Nothing ‘清除對(duì)象，釋放空間。養(yǎng)成好習(xí)慣
ADO簡(jiǎn)介和新增記錄
本節(jié)摘要
ADO 簡(jiǎn)介
1
基本語(yǔ)法：打開(kāi)連接
2
用ADO實(shí)現(xiàn)增加記錄
3
謝 謝！
Access中級(jí)培訓(xùn)
Access課程源碼-部分預(yù)覽 |
部分代碼展示
1 Option Compare Database
2
3 '單參數(shù)寫(xiě)入
4 Public Function gf_Write_1()
5 Dim strPath As String
6 strPath = CurrentProject.Path & "\1.txt"
7
8 Open strPath For Output As #1 '打開(kāi)文件1.txt
9 Print #1, "你好"
10 ' Write #1, "你好"
11 Close #1 '關(guān)閉文件1.txt
12
13 Shell "notepad.exe " & strPath, vbNormalFocus
14 End Function
15
16 '多參數(shù)寫(xiě)入
17 Public Function gf_Write_2()
18 Dim a$, b$, c$
19 a = "123": b = "ABC": c = "你好哦"
20 Dim strPath As String
21 strPath = CurrentProject.Path & "\1.txt"
22
23 Open strPath For Output As #1 '打開(kāi)文件1.txt
24 Print #1, a & b & c
25 Write #1, a, b, c
26 Close #1
27
28 Shell "notepad.exe " & strPath, vbNormalFocus
29 End Function
30
31 '追加寫(xiě)入
32 Public Function gf_Write_3()
33 Dim strPath As String
34 strPath = CurrentProject.Path & "\1.txt"
35
36 Open strPath For Append As #1 '打開(kāi)文件1.txt
37 Print #1, "你好"
38 Close #1 '關(guān)閉文件1.txt
39
40 Shell "notepad.exe " & strPath, vbNormalFocus
41 End Function
42
43 '寫(xiě)入九九乘法
44 Public Function gf_Write_4() As String
45 Dim strAll As String
46 Dim str As String
47 Dim i&, j&
48 For i = 1 To 9
49 For j = 1 To i
50 str = i & "x" & j & "=" & i * j
51 strAll = strAll & str & vbTab
52 Next
53 strAll = strAll & vbCrLf
54 Next i
55
56 Dim strPath As String
57 strPath = CurrentProject.Path & "\1.txt"
58
59 Open strPath For Output As #1 '打開(kāi)文件1.txt
60 Print #1, strAll
61 Close #1 '關(guān)閉文件1.txt
62
63 Shell "notepad.exe " & strPath, vbNormalFocus
64 End Function
65
66 '寫(xiě)入九九乘法
67 Public Function gf_Write_5() As String
68 Dim strAll As String
69 Dim str As String
70 Dim i&, j&
71 Dim strPath As String
72 strPath = CurrentProject.Path & "\1.txt"
73
74 Open strPath For Output As #1 '打開(kāi)文件1.txt
75
76 For i = 1 To 9
77 strAll = ""
78 For j = 1 To i
79 str = i & "x" & j & "=" & i * j
80 strAll = strAll & str & vbTab
81 Next
82 Print #1, strAll
83 Next i
84 Close #1 '關(guān)閉文件1.txt
85
86 Shell "notepad.exe " & strPath, vbNormalFocus
87 End Function