項(xiàng)目9 數(shù)據(jù)庫編程基礎(chǔ)

Access實(shí)用教程

項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)

項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)項(xiàng)目目標(biāo)

通過本項(xiàng)目的學(xué)習(xí)，讀者將掌握VBA程序設(shè)計(jì)基礎(chǔ)，學(xué)習(xí)VBA程序結(jié)構(gòu)控制語句，了解模塊與面向?qū)ο缶幊汰h(huán)境。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)項(xiàng)目要點(diǎn)

1．?dāng)?shù)據(jù)類型、常量和變量2．運(yùn)算符與表達(dá)式、函數(shù)3．VBA程序結(jié)構(gòu)4．類模塊和標(biāo)準(zhǔn)模塊5．Sub過程和Function過程的定義、調(diào)用6．VBA編程環(huán)境項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)項(xiàng)目任務(wù)

編寫程序管理教務(wù)系統(tǒng)的各類信息。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)一了解VBA程序設(shè)計(jì)基本語法

（一）數(shù)據(jù)類型、常量和變量（1）數(shù)據(jù)類型。VBA提供了較為完備的數(shù)據(jù)類型，Access數(shù)據(jù)表中字段使用的數(shù)據(jù)類型（OLE對象和備注字段數(shù)據(jù)類型除外）在VBA中都有對應(yīng)的類型。VBA數(shù)據(jù)類型參見下表9-1。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)一了解VBA程序設(shè)計(jì)基本語法

項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)一了解VBA程序設(shè)計(jì)基本語法

（2）常量。常量是指在程序運(yùn)行的過程中，其值不能被改變的量。VBA支持下列3種類型的常量:①符號常量：用Const語句創(chuàng)建，并且在模塊中使用的常量。②固有常量：是MicrosoftAccess或引用庫的一部分。③系統(tǒng)定義常量：True、False和Null。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)一了解VBA程序設(shè)計(jì)基本語法

（3）變量。變量是指程序運(yùn)行時(shí)值會發(fā)生變化的數(shù)據(jù)。在一個(gè)變量使用之前，可以通過聲明變量的語句指定數(shù)據(jù)類型（即采用顯式聲明），也可以不指定（即采用隱式聲明）。①顯示聲明，格式：Dim變量名As數(shù)據(jù)類型。例如：DimnumAsInteger②隱式聲明，格式：變量名=值。例如：num=345項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)一了解VBA程序設(shè)計(jì)基本語法

根據(jù)作用范圍的不同，可以將變量分為3個(gè)層次，如表9-2所示。

項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)一了解VBA程序設(shè)計(jì)基本語法

（二）運(yùn)算符和表達(dá)式VBA中的運(yùn)算符分為4種：算術(shù)運(yùn)算符、關(guān)系運(yùn)算符、邏輯運(yùn)算符和連接運(yùn)算符。（1）算術(shù)運(yùn)算符與算術(shù)表達(dá)式。算術(shù)運(yùn)算符是常用的運(yùn)算符，用來執(zhí)行簡單的算術(shù)運(yùn)算。VBA提供了8個(gè)算術(shù)運(yùn)算符，表9-3列出了這些運(yùn)算符以及優(yōu)先級順序。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)一了解VBA程序設(shè)計(jì)基本語法

（2）關(guān)系運(yùn)算符與關(guān)系表達(dá)式。關(guān)系運(yùn)算符是用來對兩個(gè)表達(dá)式的值進(jìn)行比較的運(yùn)算符。關(guān)系表達(dá)式的值是邏輯值，只有兩種情況，即真（True）或假（False），通常作為判斷用。表9-4列出了VBA中常用的6種關(guān)系運(yùn)算符。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)一了解VBA程序設(shè)計(jì)基本語法

在VBA中，允許部分不同數(shù)據(jù)類型的變量進(jìn)行比較，但要注意其運(yùn)算方法。關(guān)系運(yùn)算符的優(yōu)先次序如下。所有關(guān)系運(yùn)算符的優(yōu)先級相同。關(guān)系運(yùn)算符的優(yōu)先級低于算術(shù)運(yùn)算符。關(guān)系運(yùn)算符的優(yōu)先級高于賦值運(yùn)算符（=）。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)一了解VBA程序設(shè)計(jì)基本語法

（3）邏輯運(yùn)算符與邏輯表達(dá)式。邏輯運(yùn)算也稱布爾運(yùn)算，由邏輯運(yùn)算符連接兩個(gè)或多個(gè)關(guān)系式，組成一個(gè)布爾表達(dá)式。VBA的邏輯運(yùn)算符有以下6種（自上而下優(yōu)先級由高到低）。①邏輯非，格式為：Not<表達(dá)式>。運(yùn)算規(guī)則是：進(jìn)行“取反”運(yùn)算。例如：Not(3>8)的值為True。②邏輯與，格式為：<表達(dá)式1>And<表達(dá)式2>。運(yùn)算規(guī)則是：對兩個(gè)表達(dá)式的值進(jìn)行比較，如果兩個(gè)表達(dá)式的值均為True，結(jié)果才為True；否則為False。例如：(3>8)And(5<7)的值為False。③邏輯或，格式為：<表達(dá)式1>Or<表達(dá)式2>。運(yùn)算規(guī)則是：對兩個(gè)表達(dá)式的值進(jìn)行比較，如果其中一個(gè)表達(dá)式的值為True，結(jié)果就為True；只有兩個(gè)表達(dá)式的值均為False，結(jié)果才為False。例如：(3>8)Or(5<7)的值為True。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)一了解VBA程序設(shè)計(jì)基本語法

④邏輯異或，格式為：<表達(dá)式1>Xor<表達(dá)式2>。運(yùn)算規(guī)則是：如果兩個(gè)表達(dá)式同時(shí)為True或同時(shí)為False，則結(jié)果為False，否則為True。例如：(3<8)Xor(5<7)的結(jié)果為False。⑤等價(jià)，格式為：<表達(dá)式1>Eqv<表達(dá)式2>。運(yùn)算規(guī)則是：如果兩個(gè)表達(dá)式同時(shí)為True或同時(shí)為False，則結(jié)果為True。例如：(3<8)Eqv(5<7)的結(jié)果為True。⑥蘊(yùn)含，格式為：<表達(dá)式1>Imp<表達(dá)式2>。運(yùn)算規(guī)則是：當(dāng)表達(dá)式1取值為True而表達(dá)式2的取值為False時(shí)，整個(gè)表達(dá)式的取值為False，其他情況下蘊(yùn)含表達(dá)式的值均為True。例如：(3<8)Imp(5>7)的值為False，而(3<8)Imp(5<7)的值為True。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)一了解VBA程序設(shè)計(jì)基本語法

項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)一了解VBA程序設(shè)計(jì)基本語法

(4)連接運(yùn)算符與字符串表達(dá)式。字符串連接符（&）用來連接多個(gè)字符串（字符串相加）。例如：A$="My"B$="Space"C$=A$+B$運(yùn)算結(jié)果為：變量C$的值為”MySpace"。在VBA中，“+”既可用作加法運(yùn)算符，還可以用作字符串連接符，但“&”專門用作字符串連接運(yùn)算符，其作用與“+”相同。在有些情況下，用“&”比用“+”可能更安全。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)一了解VBA程序設(shè)計(jì)基本語法

(5)各種運(yùn)算符的優(yōu)先級。當(dāng)一個(gè)表達(dá)式由多個(gè)運(yùn)算符連接在一起時(shí)，運(yùn)算的先后順序是按優(yōu)先級來決定的，優(yōu)先級高的先運(yùn)算，優(yōu)先級等同，按照從左向右的順序運(yùn)算。運(yùn)算符優(yōu)先級規(guī)則如下：算術(shù)運(yùn)算符＞連接運(yùn)算符＞關(guān)系運(yùn)算符＞邏輯運(yùn)算符。優(yōu)先級相同，按照從左向右的順序運(yùn)算。括號優(yōu)先級最高。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)一了解VBA程序設(shè)計(jì)基本語法

（三）函數(shù)的使用標(biāo)準(zhǔn)函數(shù)一般用于表達(dá)式中，用戶在程序代碼中可隨時(shí)調(diào)用。函數(shù)的一般調(diào)用格式如下：①數(shù)學(xué)函數(shù)。數(shù)學(xué)函數(shù)主要用于對數(shù)值型數(shù)據(jù)進(jìn)行數(shù)據(jù)處理，其返回值多為數(shù)值型。它們的函數(shù)名、類型和功能如表9-6所示。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)一了解VBA程序設(shè)計(jì)基本語法

項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)一了解VBA程序設(shè)計(jì)基本語法

②字符串函數(shù)。字符串函數(shù)是用于對字符串進(jìn)行處理的，其返回值大部分為字符串。它們的函數(shù)名、類型和功能如表9-7所示。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)一了解VBA程序設(shè)計(jì)基本語法

項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)一了解VBA程序設(shè)計(jì)基本語法

③日期/時(shí)間函數(shù)。日期/時(shí)間函數(shù)主要對系統(tǒng)日期/時(shí)間或日期/時(shí)間型常量、變量進(jìn)行處理。它們的函數(shù)名、類型和功能如表9-8所示。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)

任務(wù)一了解VBA程序設(shè)計(jì)基本語法

④轉(zhuǎn)換函數(shù)。轉(zhuǎn)換函數(shù)可以將一種類型的數(shù)據(jù)轉(zhuǎn)換成另一種類型，常見的轉(zhuǎn)換函數(shù)的函數(shù)名和函數(shù)值的類型如表9-9所示。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)二認(rèn)識VBA程序結(jié)構(gòu)

（一）認(rèn)識順序結(jié)構(gòu)計(jì)算機(jī)程序的執(zhí)行控制流程，無論是結(jié)構(gòu)化程序設(shè)計(jì)還是面向?qū)ο蟮某绦蛟O(shè)計(jì)都有3種基本結(jié)構(gòu)：順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。順序結(jié)構(gòu)是最簡單的一種結(jié)構(gòu)，它是一種線性結(jié)構(gòu)。順序結(jié)構(gòu)是任何程序的基本結(jié)構(gòu)，它將計(jì)算機(jī)要執(zhí)行的各種處理依次排列起來。程序運(yùn)行后，便自左向右、自頂向下的按順序執(zhí)行這些語句，直到執(zhí)行完所有語句行。順序結(jié)構(gòu)流程圖如圖9-2所示。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)二認(rèn)識VBA程序結(jié)構(gòu)

（二）認(rèn)識選擇結(jié)構(gòu)選擇結(jié)構(gòu)使VBA能根據(jù)某個(gè)條件是否成立，來決定下一步應(yīng)該做什么。在這種情況下，程序不再按照線性的順序來執(zhí)行各行語句，而是根據(jù)給定的條件來決定選取哪條路徑，執(zhí)行一條或多條語句。根據(jù)條件表達(dá)式的值來選擇程序運(yùn)行語句。主要有以下一些結(jié)構(gòu)。①If-Then語句（單分支結(jié)構(gòu)）。● 語句格式為：格式一：If條件表達(dá)式Then語句格式二：If條件表達(dá)式Then項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)二認(rèn)識VBA程序結(jié)構(gòu)

項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)二認(rèn)識VBA程序結(jié)構(gòu)

● 多分支結(jié)構(gòu)執(zhí)行過程。當(dāng)程序運(yùn)行到If語句，首先判斷條件表達(dá)式1的值，如果值為True，則執(zhí)行語句塊1；如果值為False，則再判斷條件表達(dá)式2的值，如果值為True，則執(zhí)行語句塊2；依次類推，直到找到一個(gè)為True的條件時(shí)，執(zhí)行其后面的語句塊。如果所有條件表達(dá)式的值都不為True，則程序執(zhí)行關(guān)鍵字Else后的語句塊n。無論執(zhí)行哪個(gè)語句塊，執(zhí)行完后都從EndIf后面的語句繼續(xù)執(zhí)行。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)二認(rèn)識VBA程序結(jié)構(gòu)

④SelectCase-EndSelect語句。當(dāng)條件選項(xiàng)較多時(shí)，使用If控制結(jié)構(gòu)需要多重嵌套，而VBA中選擇結(jié)構(gòu)的嵌套數(shù)目和深度是有限制的。使用VBA提供的SelectCase-EndSelect語句結(jié)構(gòu)可以解決這類問題?！?語句格式為：SelectCase表達(dá)式

[Case取值列表1[語句塊1]][Case取值列表2[語句塊2]]…[Case取值列表n[語句塊n]][CaseElse[語句塊n+1]]EndSelect項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)二認(rèn)識VBA程序結(jié)構(gòu)

● SelectCase-EndSelect語句執(zhí)行過程。計(jì)算表達(dá)式的值，將表達(dá)式的值與每個(gè)Case關(guān)鍵字后面的取值列表中的數(shù)據(jù)和數(shù)據(jù)范圍進(jìn)行比較。如果相等，則執(zhí)行該Case后面的語句塊；如果沒有一個(gè)值與之相匹配，則執(zhí)行CaseElse語句后面的語句塊n+1。執(zhí)行完后，接著執(zhí)行EndSelect后面的語句。如果不止一個(gè)Case后面的取值與表達(dá)式相匹配，則只執(zhí)行第一個(gè)與表達(dá)式匹配的Case后面的語句序列。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)二認(rèn)識VBA程序結(jié)構(gòu)

⑤條件函數(shù)。除了上述的語句結(jié)構(gòu)外，VBA還提供了3個(gè)函數(shù)來完成相應(yīng)的操作?！?IIf函數(shù)：IIf（條件式，表達(dá)式1，表達(dá)式2）根據(jù)“條件式”的值確定函數(shù)返回值。當(dāng)“條件式”的值為真時(shí)，返回表達(dá)式1的值，反之返回表達(dá)式2的值。例如：取變量X、Y中較小的值，并將值賦給變量Min。Min=IIf（X<Y，A，B）● Switch函數(shù)：Switch（條件式1，表達(dá)式1[，條件式2，表達(dá)式2…[，條件式n，表達(dá)式n]]）根據(jù)“條件式”的值決定函數(shù)返回的值。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)二認(rèn)識VBA程序結(jié)構(gòu)

例如：根據(jù)a的值，為變量b賦值。b=Switch（a>1，11，a<-1，22，-1<a<1，33）● Choose函數(shù)：Choose（索引式，選項(xiàng)1[，選項(xiàng)2，表達(dá)式2…[，選項(xiàng)n]]）根據(jù)“索引式”的值來返回選項(xiàng)列表的某個(gè)值?！八饕健钡闹禐?，則返回“選項(xiàng)1”的值，“索引式”的值為n，則返回“選項(xiàng)n”的值，例如：根據(jù)a的值，為變量b賦值。b=Choose（a，11，22，33）項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)二認(rèn)識VBA程序結(jié)構(gòu)

（三）認(rèn)識循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu)可以實(shí)現(xiàn)重復(fù)執(zhí)行一行或幾行程序代碼。循環(huán)結(jié)構(gòu)又分為當(dāng)型循環(huán)結(jié)構(gòu)和直到型循環(huán)結(jié)構(gòu)，前者先進(jìn)行條件判斷，再執(zhí)行循環(huán)體；后者是先執(zhí)行循環(huán)體，再進(jìn)行條件判斷。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)二認(rèn)識VBA程序結(jié)構(gòu)

VBA支持以下循環(huán)語句結(jié)構(gòu)：①For-Next語句?！?For-Next語句能夠重復(fù)執(zhí)行程序代碼區(qū)域特定次數(shù)，語句格式為：For循環(huán)變量=初值To終值[Step步長]

循環(huán)體Next[循環(huán)變量]● For-Next語句執(zhí)行過程。首先將初值賦給循環(huán)變量，接著檢查循環(huán)變量的值，將它與終值進(jìn)行比較，如果超出就停止執(zhí)行循環(huán)體，跳出循環(huán)，執(zhí)行Next下面的語句；如果循環(huán)變量的值沒有超出終值，則執(zhí)行循環(huán)體，然后將循環(huán)變量與步長值相加賦給循環(huán)變量，再重復(fù)上述過程。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)二認(rèn)識VBA程序結(jié)構(gòu)

②Do-Loop語句● 語句格式為：格式一：Do[While|Until循環(huán)條件]

循環(huán)體

Loop格式二：Do

循環(huán)體

Loop[While|Until循環(huán)條件]● Do-Loop語句執(zhí)行過程。當(dāng)指定的循環(huán)條件為True或直到指定的循環(huán)條件變?yōu)門rue之前重復(fù)執(zhí)行循環(huán)體?！?格式一先判斷，后執(zhí)行，若條件不符，則可能一次也不執(zhí)行循環(huán)體。● 格式二先執(zhí)行，后判斷，即循環(huán)體至少執(zhí)行一次。● 在Do…Loop循環(huán)中，可以使用ExitDo語句強(qiáng)制退出循環(huán)。● 關(guān)鍵字While用于指明條件成立時(shí)重復(fù)執(zhí)行循環(huán)體，直到條件不成立時(shí)結(jié)束循環(huán)；而Until則正好相反，條件不成立時(shí)執(zhí)行循環(huán)體，直到條件成立才退出循環(huán)。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)二認(rèn)識VBA程序結(jié)構(gòu)

③While-Wend語句● 語句格式為：While條件循環(huán)體Wend● While-Wend語句執(zhí)行過程當(dāng)條件成立（即條件值為True）時(shí)，重復(fù)執(zhí)行循環(huán)體，否則轉(zhuǎn)去執(zhí)行Wend下面的語句。While-Wend語句與DoWhile-Loop語句結(jié)構(gòu)類似，只是在循環(huán)體內(nèi)不能使用ExitDo語句。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)二認(rèn)識VBA程序結(jié)構(gòu)

④GoTo語句● 語句格式為：GoTo

標(biāo)號

…標(biāo)號：

…● GoTo語句是早期Basic語言中常用的一種流程控制語句，現(xiàn)在的語言不提倡使用。在VBA中，GoTo語句主要用于錯(cuò)誤處理“OnErrorGoToLabel”結(jié)構(gòu)。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)三深入模塊和面向?qū)ο缶幊?/p>

（一）類模塊和標(biāo)準(zhǔn)模塊模塊是Access系統(tǒng)中的一個(gè)重要對象，它以VBA(VisualBasicforApplication）為基礎(chǔ)編寫，以函數(shù)過程或子過程為單元的集合方式存儲。模塊分為類模塊和標(biāo)準(zhǔn)模塊兩種類型，每個(gè)模塊獨(dú)立保存并對應(yīng)于其中的VBA代碼。①類模塊。類模塊是指包含新對象定義的模塊。②標(biāo)準(zhǔn)模塊。標(biāo)準(zhǔn)模塊是指存放整個(gè)數(shù)據(jù)庫可用的函數(shù)和過程的模塊。③將宏轉(zhuǎn)換為模塊。在Access系統(tǒng)中，根據(jù)需要可以將設(shè)計(jì)好的宏對象轉(zhuǎn)換為模塊代碼形式。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)三深入模塊和面向?qū)ο缶幊?/p>

（二）Sub和Function過程的定義和調(diào)用過程是模塊的單元組成，由VBA代碼編寫而成。過程分為兩種類型：Sub子過程和Function函數(shù)過程。其區(qū)別在于Sub過程沒有返回值，F(xiàn)unction過程有返回值。①Sub過程。又稱為子過程，執(zhí)行一系列的操作，無返回值。● 定義。格式為：［Private|Public］［Static］Sub過程名（參數(shù)列表）［程序代碼］EndSub其中參數(shù)列表為：參數(shù)名As類型,……● 調(diào)用?？梢砸眠^程名來調(diào)用該子過程。此外，VBA提供了一個(gè)關(guān)鍵字Call，可顯示調(diào)用一個(gè)子過程。格式為：Call過程名（實(shí)參）。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)三深入模塊和面向?qū)ο缶幊?/p>

②Function過程又稱為函數(shù)過程，執(zhí)行一系列的操作，有返回值?！?定義。格式為：［Private|Public］［Static］Function過程名（參數(shù)列表）As（返回值）類型［程序代碼］

EndFunction其中參數(shù)列表為：參數(shù)名As類型,……● 調(diào)用。直接引用函數(shù)過程名來調(diào)用函數(shù)過程。函數(shù)過程不能使用Call來調(diào)用執(zhí)行。項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)三深入模塊和面向?qū)ο缶幊?/p>

③在模塊中執(zhí)行宏在模塊中執(zhí)行宏，可以使用DoCmd對象的RunMacro方法。格式：DoCmd.RunMacro

MacroName[,RepeatCount][,RepeatExpression]項(xiàng)目九數(shù)據(jù)庫編程基礎(chǔ)任務(wù)三深入模塊和面向?qū)ο缶幊?/p>

（三）VBA面向?qū)ο缶幊藺ccess內(nèi)嵌的VBA，功能強(qiáng)大，采用目前主流的面向?qū)ο髾C(jī)制和可視化編程環(huán)境。①VBA概述VBA是MicrosoftOffice套件的內(nèi)置編程語言，實(shí)際上就是宏語言版本的VB語言。在Access程序設(shè)計(jì)中，當(dāng)某些操作不能用其他Access對象