在ＶＢ中使用ＡＤＯ訪問ＳＱＬ

摘要：介紹了在VB中使用ADO對SQL Server數據庫調用的方法，并給出了一個用VB設計C/S模式下學生成績打印系統的實例。

關健詞：VB ADOSQL Server C/S

SQL Server是微軟公司推出的中小型網絡數據庫系統，它具有強大的數據處理功能和可靠的安全性能，已經成為新一代網絡應用程序的最佳數據庫解決方案之一。網絡環境下的客戶端應用程序一般采用客戶/服務器(Clienf/Server，即c/s)模式；而用于構建客戶端的編程工具較多，如VB、PB、Delphi等。VB作為一種面向對象的可視化編程工具，具有很高的編程效率，對于一般中小型的信息管理系統來說，用其作為SQL Server 2000數據庫管理系統的客戶端開發工具是一種合理的選擇。

一、ADO對象模型

在Visual Basic中，可用的數據庫訪問接口有三種：Active數據對象(Active Data Objects，簡稱ADO)、遠程數據對象(RDO)和數據訪問對象(DAO)。

Active數據對象(Active Data Objects)ADO是一種提供訪問各種數據類型的連接機制，是比RDO和DAO更加簡單，而又更加靈活的對象模型。ADO設計為一種極簡單的格式，通過ODBC的方法同數據庫接口，可以使用任何一種ODBC數據源，即不只適合于SQL Server、Oracle、Access等數據庫應用程序，也適合于Excel表格、文本文件、圖形文件和無格式的數據文件。ADO是基于OLE-DB之上的技術，因此ADO通過其內部的屬性和方法提供統一的數據訪問接口方法更適合于大流量和大事務量的網絡計算機系統。

ADO 模型中頂層有三個對象：Connection、Command、Recordset。Connection對象表示打開的、與數據源的連接；Command對象定義了對數據源執行的指定命令，可接收SQL語句、表的名稱和存儲過程的名稱，執行SQL查詢、插入、更新記錄等；Recordset對象表示的是來自基本表或命令執行結果的記錄全集，操作來自提供者的幾乎所有數據。ADO數據模型中的屬性包括：Proprties(屬性)、Errors(錯誤)、Parameters(參數)及Fidlds(字段)。

二、ADO控件說明

ADOData控件使用ADO快速地創建一個到數據庫的連接，它最重要的兩個屬性ConnectionString和Recordsource。ConnectionString設置控件的連接字符串，用于建立與數據庫的連接，例如：Connec-tionString =“Provider= sqloledb；Server= local；Database=pubs；Uid= sa；Pwd = sa”。Provider=sqloledb說明驅動程序提供者是sqloledb；Server指明SQL Server數據庫服務器的名稱或IP 地址；Database指明連接的數據庫名稱；Uid與Pwd分別指明登錄數據庫的用戶名與密碼。Recordsource屬性為記錄源，通過設置該屬性控制從數據庫中返回的記錄集合。例如：設置RecordSource=“select * from QQfriend”，將該屬性設置為一條SQL語句，從數據庫返回滿足查詢條件的記錄。

三、ADO編程實例

在本編程實例中，可按學生學號，完成學生成績的查看與打印。

在此學生成績打印程序中，要先在客戶端的數據源管理工具中建立好數據源。然后使用VB中的ADO Data控件MicrosofiActiveXDataObjects (ADO)快速地創建一個到數據庫的連接。ADO控件不在當前工程的控件工具箱中，需要通過“工程”菜單“部件”選項，選中“Microsoft ADO Data Control 6．0”后將此控件加入工具箱即可。其屬性的設置主要包括以下方面：即使用ODBC數據資源的名稱，訪問數據庫的用戶名和密碼，記錄源的命令類型及命令文本等。

整個成績打印程序一共有二個窗口。主窗口如圖1所示，窗口中的按鈕實現按學生學號打印學生成績功能。

按學生學號打印學生成績窗口如圖2所示，此窗口主要包括一個隱藏的ADO控件、數據控件文本框和一組命令按鈕。ADO控件的主要功能是建立客戶端與服務器端數據庫的連接；數據控件文本框用于接收用戶輸入數據，確定訪問數據庫的條件；命令按鈕中的確定按鈕通過click事件嵌入SQL命令語句來獲取數據，并把數據傳遞該客戶端的ADO對象，程序就可以實現查詢結果數據的顯示和打印。

具體設計步驟設計如下：

1、設置ADO Data控件的屬性如下：

ODBC數據資源名稱為 “mydata”

用戶名username為“stu”

用戶登錄密碼passwd為“111111”

記錄源命令類型cmdtype設置為“adcmdUknown”。命令文本為“select * from scores”。

2、數據說明

設計程序前，先在SQL數據庫中建立相關視圖，視圖結合了表(Tables)和查詢(Queries)兩者的特性。用戶可以像使用一個查詢一樣，從一個或多個相關的表中提取一個數據集，并且永久把存貯結果存貯到磁盤。設置ADO Data控件的屬性時，記錄源命令文本“select * from=scores”中的scores為SQL數據庫mydata中一個視圖，其中包含了學生的學籍基本信息和成績信息，如學生姓名、號、性別、所在院系、所學專業、入學時間、畢業時間、各學期成績等。

窗口中“確定”按鈕程序段所涉及到的主要代碼為：

SQL1= “select from scores where xh=” + Trim(Text1．Text) 查詢滿足輸入條件的學生成績

Adodc1．RecordSource=SQL1

Adodc 1．Refresh用于刷新顯示數據

StrQuery “select from scores where xqq=2 and cj>=60 and xh=”+Trim(Text1．Text1)

查詢滿足具體學年、學期條件的記錄

Adodc 1．RecordSource=StrQuery

Adodc 1．Refresh

3、學生成績的查看與打印

學生成績的查看與打印是程序實例的核心功能部分。

涉及到的主要代碼：

AutoRedraw =True

BackColor=RGB(155，255，255)

DrawWidth= 1.5

相關打印參數設置

FontBold=True

FontSize= 12

CurrentX = 118.5

CurrentY =9

定位輸出內容的坐標位置

StrQuery=\"select * from scores where xqq=2 and xh=” + Trim(Text1．Text)

用于查詢滿足條件的記錄，即查找該學號第二學期所有及格的課程及成績

Adodc1．RecordSource=StrQuery

Adodc1．Refresh

nums=Adodc1．Recordset．RecordCount 統計某一學期總共的課程數

If Adodc 1．Recordset．EOF=False Then 判斷是否循環完畢

Adodc 1．Recordset．MoveNext 記錄指針下移

X11=30.5

Y11= 47.5

X12= 79.5

Yl2=47.5

dy=4.55

Printer．FontBold=True

Printer．CurrentX = 30.5

Printer．CurrentY = 42

Printer．Print “課程名稱”

Printer．CurrentX =79.5

Printer．CurrentY =42

Printer．Print “成績”

從打印機上輸出學生成績信息

程序實例采用C／S方式，實現了在VB中使用ADO數據對象對SQL數據庫的訪問，優點在于代碼簡潔，易于開發者掌握。用戶掌握后，可自行開發滿足特定需求的應用程序。

參考文獻：

[1]白 鵬．Visual Basic編程實例與技巧數據庫編程 [M] ．北京：科學出版社，2003.

[2][美]Konrad King SQL Tips Techniques [M] 2003．

[3]將鐵海，劉朝暉．ADO 控件訪問數據庫的各種技巧探討 [J]．微計算機信息，2003．19(1)

[4]馬紹良，李鳳保，謝閱．用ODBC實現SQL Server 2000在VB中的應用 [J] 計算機應用，2003(1)．

（123000阜新高等專科學校）