實驗13

在VB中采用ADO接口訪問SQLServer

MicrosoftActiveXDataObjects(ADO)編程接口是通過OLDDB來實現(xiàn)對數(shù)據(jù)庫的訪問和操作的，是現(xiàn)在比較流行的訪問數(shù)據(jù)庫的接口。本實驗旨在使學(xué)習(xí)者掌握在VB中采用ADO接口訪問SQLSERVER的技術(shù)?！局R要點】

1.ADO簡介（1）ADO通過OLEDB訪問和操作數(shù)據(jù)庫服務(wù)器中的數(shù)據(jù)。（2）ADO可以訪問遠(yuǎn)程數(shù)據(jù)。（3）ADO支持建立客戶端/服務(wù)器和基于Web的應(yīng)用程序的關(guān)鍵功能。（4）通過ADO可執(zhí)行的操作：連接數(shù)據(jù)源指定訪問數(shù)據(jù)源的命令，同時可帶變量參數(shù)，或優(yōu)化執(zhí)行。執(zhí)行命令提供常規(guī)方法檢測錯誤實驗13

在VB中采用ADO接口訪問SQLServer2.ADO對象模型

ADO把絕大部分的對數(shù)據(jù)庫的操作都封裝在7個對象中：Connection對象、Command對象、Recordset對象、Paramater對象、Field對象、Error對象。這些對象的模型如下：其中Connection、Command、Recordset

、Field對象都有Properties集合。實驗13

在VB中采用ADO接口訪問SQLServer3.ADO對象簡介（1）Connection對象

Connection對象用于建立客戶端與數(shù)據(jù)庫服務(wù)器的連接。在訪問數(shù)據(jù)庫之前必須首先建立一個連接Connection對象，然后才可進(jìn)行訪問數(shù)據(jù)庫的操作。（2）Command對象使用Command對象可以向數(shù)據(jù)庫發(fā)送查詢、更新命令并返回相應(yīng)的Recordset對象中的記錄。（3）Recordset對象與數(shù)據(jù)庫建立連接后，就可以使用Recordset對象瀏覽和處理數(shù)據(jù)庫中的數(shù)據(jù)了。所有的Recordset對象均由記錄和字段組成，通過Recordset對象可以訪問任一個記錄，通過Field對象可以訪問任一個字段。（4）Parameters集合和Paramater對象如果Command對象中的操作命令是一個參數(shù)化的查詢或參數(shù)化的存儲過程，那么每一個參數(shù)可作為Paramater集合中的一個Paramater對象來傳遞，這些參數(shù)包括輸入?yún)?shù)、輸出參數(shù)以及存儲過程的返回值。實驗13

在VB中采用ADO接口訪問SQLServer（5）Field對象和Fields集合

Field對象代表Recordset對象中的一列。所有的Field對象組成一個Fields集合。通過Field對象可以訪問每個Recordset對象中的各個字段屬性信息。（6）Error對象和Errors集合

ADO提供了一個Error對象來返回操作過程中的錯誤信息。當(dāng)發(fā)生錯誤時，一個或多個Error對象被放到Connection對象的Errors集合中。當(dāng)另一個ADO操作產(chǎn)生錯誤時，Errors集合將被清空，并在其中放入新的Error對象。因此讀取Errors集合中的值即可分析在操作過程中發(fā)生了哪些錯誤，從而進(jìn)行相應(yīng)的處理?！緦嶒?zāi)康摹空莆胀ㄟ^ADO方法查詢數(shù)據(jù)庫；掌握通過ADO方法向數(shù)據(jù)庫中插入數(shù)據(jù)；掌握通過ADO方法修改數(shù)據(jù)庫中的數(shù)據(jù)；掌握通過ADO方法刪除數(shù)據(jù)庫中的數(shù)據(jù)。實驗13.1

查詢數(shù)據(jù)庫【實驗?zāi)康摹空莆誧onnection對象的創(chuàng)建和使用方法；掌握通過command對象查詢數(shù)據(jù)庫；掌握通過recordset對象查詢數(shù)據(jù)庫?！緦嶒瀮?nèi)容】

1.通過command對象創(chuàng)建一個查詢1。查詢學(xué)生“張彬”的“計算機基礎(chǔ)”課程的成績；

2.通過command對象創(chuàng)建一個參數(shù)查詢2。將學(xué)生姓名和課程名作為參數(shù)查詢該生該課程的成績。并求得學(xué)生“張彬”的“計算機基礎(chǔ)”課程的成績；

3.通過recordset對象創(chuàng)建一個查詢3。查詢教師“張雪”的任課情況信息；

4.通過recordset對象創(chuàng)建一個參數(shù)查詢4。將教師姓名作為參數(shù)查詢該教師的任課情況信息。并查詢教師“張雪”的任課信息。實驗13.1

查詢數(shù)據(jù)庫【實驗步驟】

1.通過command對象創(chuàng)建一個查詢1(1)查詢1表單設(shè)計表單對象。第1個是文本框，對象名是：score_text，初始值為空；第2個是標(biāo)簽，其caption屬性值為：張彬的計算機基礎(chǔ)成績；第3個是命令按鈕，其對象名為：command1，caption屬性值為：查詢。實驗13.1

查詢數(shù)據(jù)庫（2）程序設(shè)計在語句PrivateSubCommand1_Click()與EndSub之間添加下列代碼：實驗13.1

查詢數(shù)據(jù)庫（3）執(zhí)行程序。查詢張彬同學(xué)的計算機基礎(chǔ)課程的成績：

實驗13.1

查詢數(shù)據(jù)庫2.通過command對象創(chuàng)建一個參數(shù)查詢2(1)查詢2表單設(shè)計對象設(shè)計：表單對象名為：query2；第1個是輸入學(xué)生姓名的文本框，對象名是：s_text，初始值為空；第2個是輸入課程名稱的文本框，對象名是：c_text；第3個是顯示成績的文本框，對象名是：score_text，初始值為空；第4個是命令按鈕，其對象名為：command1，caption屬性值為：查詢；第5個是命令按鈕，其對象名為：command2，caption屬性值為：結(jié)束。另外還需要三個標(biāo)簽控件，用于標(biāo)識“學(xué)生姓名”、“課程名”、“成績”。實驗13.1

查詢數(shù)據(jù)庫（2）程序設(shè)計實驗13.1

查詢數(shù)據(jù)庫（3）執(zhí)行程序查詢成績。在學(xué)生姓名中輸入：張彬；在課程名中輸入：計算機基礎(chǔ)；單擊“查詢”按鈕，張彬同學(xué)的計算機基礎(chǔ)課程的成績即顯示在成績文本框中：88

實驗13.1

查詢數(shù)據(jù)庫3.通過recordset對象創(chuàng)建一個查詢3

查詢教師“張雪”的任課情況信息。(1)表單設(shè)計對象設(shè)計：表單對象名：query3。第1個用于顯示查詢結(jié)果課程名的對象名為：tc_list；第2個查詢命令按鈕，對象名為：command1，caption屬性值：查詢；第3個命令按鈕，對象名為：command2，caption屬性值：退出。1個標(biāo)簽控件，用于標(biāo)識顯示結(jié)果的列表框。實驗13.1

查詢數(shù)據(jù)庫（2）程序設(shè)計實驗13.1

查詢數(shù)據(jù)庫（3）執(zhí)行程序查詢教師張雪所任課程：程序設(shè)計、微機原理

實驗13.1

查詢數(shù)據(jù)庫4.通過recordset對象創(chuàng)建一個參數(shù)查詢4（1）表單設(shè)計對象設(shè)計：表單對象名：query4第1個控件用于輸入教師名的文本框，對象名：t_name；第2個控件顯示查詢結(jié)果課程名，對象名為：tc_list；第3個控件是查詢命令按鈕，對象名：command1，caption屬性值：查詢；第4個控件是命令按鈕，對象名：command2，caption屬性值：退出。2個標(biāo)簽控件，用于標(biāo)識教師輸入框和顯示結(jié)果的列表框。實驗13.1

查詢數(shù)據(jù)庫（2）程序設(shè)計實驗13.1

查詢數(shù)據(jù)庫（3）執(zhí)行程序查詢教師張雪所任課程，全部顯示在列表框中：程序設(shè)計、微機原理

實驗13.2

插入數(shù)據(jù)到數(shù)據(jù)庫【實驗?zāi)康摹空莆胀ㄟ^command對象插入數(shù)據(jù)到數(shù)據(jù)庫；掌握通過recordset對象插入數(shù)據(jù)到數(shù)據(jù)庫?！緦嶒瀮?nèi)容】

1.通過command對象插入一個學(xué)生一門課程的成績記錄。學(xué)號SNO：991104，課程號CNO：01003，成績SCORE：88。

2.通過recordset對象插入一個教師授課記錄。教師號TNO：000008，課程號CNO：01001。實驗13.2

插入數(shù)據(jù)到數(shù)據(jù)庫【實驗步驟】1.通過command對象插入一個學(xué)生一門課程的成績記錄（1）表單設(shè)計對象設(shè)計：表單對象名：insert1;第1個控件是輸入學(xué)號的文本框，對象名是：s_text，初始值為空；第2個控件是輸入課程號的文本框，對象名是：c_text；第3個控件是顯示成績的文本框，對象名是：score_text，初始值為空；第4個控件是命令按鈕，對象名：command1，caption屬性值：入庫；第5個控件是命令按鈕，對象名：command2，caption屬性值：退出。另外還需要三個標(biāo)簽控件，用于標(biāo)識“學(xué)號”、“課號”、“成績”。實驗13.2

插入數(shù)據(jù)到數(shù)據(jù)庫（2）程序設(shè)計實驗13.2

插入數(shù)據(jù)到數(shù)據(jù)庫（3）執(zhí)行程序插入成績記錄：學(xué)號：991104；課號：01003；成績：88；9911040100388實驗13.2

插入數(shù)據(jù)到數(shù)據(jù)庫2.通過recordset對象插入一個教師授課記錄（1）表單設(shè)計對象設(shè)計：表單對象名：insert2第1個控件是用于輸入教師號的文本框，對象名：t_text；第2個控件是用于輸入課程號的文本框，對象名：c_text；第3個控件是提交入庫命令按鈕，對象名：command1，caption屬性值：入庫；第4個控件是命令按鈕，對象名：command2，caption屬性值：退出。另外還需要2個標(biāo)簽控件，用于標(biāo)識教師號輸入框和課程號輸入框。實驗13.2

插入數(shù)據(jù)到數(shù)據(jù)庫（2）程序設(shè)計實驗13.2

插入數(shù)據(jù)到數(shù)據(jù)庫（3）執(zhí)行程序插入教師張雪所任課程：教師號“000008”，課程號“01001”。實驗13.3

更新數(shù)據(jù)庫中的數(shù)據(jù)【實驗?zāi)康摹空莆胀ㄟ^command對象更新數(shù)據(jù)庫數(shù)據(jù)；掌握通過recordset對象更新數(shù)據(jù)庫數(shù)據(jù)。【實驗內(nèi)容】

1.通過command對象修改一個學(xué)生一門課程的成績。學(xué)號SNO：991104，課程號CNO：01003，成績SCORE：77。

2.通過recordset對象修改一個教師的一門授課記錄。教師號TNO：000008，舊課號CNO：01001，新課號CNO：01003。實驗13.3

更新數(shù)據(jù)庫中的數(shù)據(jù)1.通過command對象修改一個學(xué)生一門課程的成績（1）表單設(shè)計對象設(shè)計：表單對象名：update1第1個是輸入學(xué)生學(xué)號的文本框，對象名是：s_text，初始值為空；第2個是輸入課號的文本框，對象名是：c_text；第3個是輸入成績的文本框，對象名是：score_text，初始值為空；第4個是命令按鈕，其對象名為：command1，caption屬性值為：更新；第5個是命令按鈕，其對象名為：command2，caption屬性值為：退出。另外還需要三個標(biāo)簽控件，用于標(biāo)識“學(xué)號”、“課號”、“成績”。實驗13.3

更新數(shù)據(jù)庫中的數(shù)據(jù)（2）程序設(shè)計實驗13.3

更新數(shù)據(jù)庫中的數(shù)據(jù)

(3)執(zhí)行程序把學(xué)號：991104,課號：01003的學(xué)生成績修改為：77。9911040100377實驗13.3

更新數(shù)據(jù)庫中的數(shù)據(jù)

2.通過recordset對象修改一個教師的一門授課記錄（1）表單設(shè)計對象設(shè)計：表單對象名：update2第1個是用于輸入教師號的文本框，對象名：t_text；第2個是用于輸入將被修改的課程號的文本框，對象名：dc_text；第3個是用于輸入新的課程號的文本框，對象名：nc_text；第4個是提交入庫命令按鈕，對象名：command1，caption屬性值：更新；第5個是命令按鈕，對象名：command2，caption屬性值：退出。另外還需要3個標(biāo)簽控件，用于標(biāo)識教師號輸入框和課程號輸入框。實驗13.3

更新數(shù)據(jù)庫中的數(shù)據(jù)（2）程序設(shè)計實驗13.3

更新數(shù)據(jù)庫中的數(shù)據(jù)（3）執(zhí)行程序把教師張雪（教師號：000008）所任課程（課程號：01001）改為：01003。0000080100101003實驗13.4

刪除數(shù)據(jù)庫中的數(shù)據(jù)【實驗?zāi)康摹空莆胀ㄟ^command對象刪除數(shù)據(jù)庫數(shù)據(jù)；掌握通過recordset對象刪除數(shù)據(jù)庫數(shù)據(jù)?！緦嶒瀮?nèi)容】

1.通過command對象刪除一個學(xué)生的一門選課記錄。學(xué)號SNO：991104，課程號CNO：01003。

2.通過recordset對象刪除一個教師的一門授課記錄。教師號TNO：000008，課程號CNO：01001。實驗13.4

刪除數(shù)據(jù)庫中的數(shù)據(jù)【實驗步驟】1.通過command對象刪除一個學(xué)生的一門選課記錄（1）表單設(shè)計對象設(shè)計：表單對象名：delete1;第1個是用于輸入學(xué)生號的文本框，對象名：s_text；第2個是用于輸入課程號的文本框，對象名：c_text；第3個是提交刪除命令按鈕，對象名：command1，caption屬性值：刪除；第4個是命令按鈕，對象名：command2，caption屬性值：退出。另外還需要2個標(biāo)簽控件，用于標(biāo)識學(xué)生號輸入框和課程號輸入框。實驗13.4

刪除數(shù)據(jù)庫中的數(shù)據(jù)（2）程序設(shè)計實驗13.4

刪除數(shù)據(jù)庫中的數(shù)據(jù)（3）執(zhí)行程序刪除學(xué)號SNO：991104，課程號CNO：01003學(xué)生的選課記錄。刪除成功，則給出“刪除選課記錄成功！”提示框。99110401003實驗13.4

刪除數(shù)據(jù)庫中的數(shù)據(jù)2.通過recordset對象刪除一個教師的一門授課記錄（1）表單設(shè)計對象設(shè)計：表單對象名：delete2第1個是用于輸入教師號的文本框，對象名：t_text；第2個是用于輸入課程號的文本框，對象名：c_text；第3個是提交刪除命令按鈕，對象名：command1，caption屬性值：入庫；第4個是命令按鈕，對象名：command2，caption屬性值：退出。另外還需要2個標(biāo)簽控件，用于標(biāo)識教師號輸入框和課程號輸入框。實驗13.4

刪除數(shù)據(jù)庫中的數(shù)據(jù)（3）程序設(shè)計圖19-35刪除失敗提示圖20-34刪除成功提示實驗13.4

刪除數(shù)據(jù)庫中的數(shù)據(jù)（3）執(zhí)行程序刪除教師張雪（教師號000008）所任課程（課程號01001）。