淺析基于ADO的復(fù)雜數(shù)據(jù)庫(kù)編程

【摘要】隨著網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的普及，不同數(shù)據(jù)平臺(tái)上的數(shù)據(jù)共享以及異地存取等已經(jīng)成為數(shù)據(jù)庫(kù)編程中不可或缺的對(duì)象，通過(guò)Delphi中ADO控件的使用，將源數(shù)據(jù)轉(zhuǎn)移到目標(biāo)庫(kù)中創(chuàng)建的表中，從而能夠?qū)崿F(xiàn)不同數(shù)據(jù)平臺(tái)上的數(shù)據(jù)轉(zhuǎn)換和共享。

【關(guān)鍵詞】ADO；Delphi；數(shù)據(jù)庫(kù)編程

ADO（ActiveX Data Objects）是微軟提供對(duì)各種數(shù)據(jù)格式的高層接口（high-level interface），該接口已經(jīng)成為訪問(wèn)數(shù)據(jù)庫(kù)的新的標(biāo)準(zhǔn)。使用這種接口的數(shù)據(jù)庫(kù)又稱為OLE DB數(shù)據(jù)庫(kù)。由于網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的廣泛應(yīng)用，ADO現(xiàn)在越來(lái)越成為數(shù)據(jù)庫(kù)編程人員眼中的寵兒，ADO在復(fù)雜數(shù)據(jù)庫(kù)編程方面的功能非常強(qiáng)大。OLE DB數(shù)據(jù)庫(kù)可以使我們方便地訪問(wèn)各種類型的數(shù)據(jù)庫(kù)，包括關(guān)系型或非關(guān)系型數(shù)據(jù)庫(kù)、E-Mail和文件系統(tǒng)、文本和圖形、以及各種自定義商用對(duì)象。將Delphi提供的系統(tǒng)數(shù)據(jù)源中的db格式數(shù)據(jù)轉(zhuǎn)換為微軟Access格式文件，同時(shí)，在轉(zhuǎn)換過(guò)程中，根據(jù)選中的數(shù)據(jù)表，還能生成響應(yīng)的創(chuàng)建表的SQL語(yǔ)句。

1.基于ADO的體系結(jié)構(gòu)

一個(gè)基于ADO的單層或兩層應(yīng)用程序通常由這么幾個(gè)部分組成：

1）用戶界面，其主要部件是數(shù)據(jù)控件。如果所有的數(shù)據(jù)訪問(wèn)都是通過(guò)程序?qū)崿F(xiàn)的，則數(shù)據(jù)控件是可選的；

2）一個(gè)或多個(gè)數(shù)據(jù)集構(gòu)件，用于從數(shù)據(jù)庫(kù)引入數(shù)據(jù)；

3）一個(gè)或幾個(gè)TDataSource構(gòu)件，用于連接數(shù)據(jù)集與數(shù)據(jù)控件；

4）一個(gè)連接構(gòu)件，用于連接到數(shù)據(jù)倉(cāng)庫(kù)。 連接構(gòu)件在數(shù)據(jù)集構(gòu)件和通過(guò)數(shù)據(jù)倉(cāng)庫(kù)訪問(wèn)的數(shù)據(jù)庫(kù)之間提供通道。

基于ADO的應(yīng)用程序的ADO層由以下幾部分組成：Microsoft ADO 2.1，OLEDB數(shù)據(jù)庫(kù)或用于數(shù)據(jù)倉(cāng)庫(kù)訪問(wèn)的ODBC驅(qū)動(dòng)程序，指定的數(shù)據(jù)庫(kù)系統(tǒng)（例如，SQL數(shù)據(jù)庫(kù)）使用的客戶端軟件、數(shù)據(jù)庫(kù)支援系統(tǒng)、數(shù)據(jù)庫(kù)。所有這些外部實(shí)體必須存在，并且是基于ADO的應(yīng)用程序可以使用的。圖1 所示為ADO各組件功能

2.ADO復(fù)雜數(shù)據(jù)庫(kù)應(yīng)用基本步驟

1）關(guān)閉Delphi中當(dāng)前所有活動(dòng)工程，并通過(guò)執(zhí)行New Application命令新建一個(gè)工程，此時(shí)，系統(tǒng)會(huì)自動(dòng)創(chuàng)建一個(gè)空白窗體作為程序的默認(rèn)操作區(qū)。

2）為了實(shí)現(xiàn)對(duì)Access數(shù)據(jù)庫(kù)的連接，需要將ADO控件鏈接到目標(biāo)庫(kù)（Access類型）中，設(shè)置ADOConnection1的Conn-ectionString屬性，連接到目標(biāo)庫(kù)中，其他的ADO空間可以銅鼓他實(shí)現(xiàn)對(duì)目標(biāo)庫(kù)的連接。這可以通過(guò)Delphi提供的想到來(lái)實(shí)現(xiàn)。

3）將其他ADO 控件的Connection屬性都指向ADOConnection1，以實(shí)現(xiàn)對(duì)目標(biāo)數(shù)據(jù)庫(kù)的連接，然后設(shè)置Database空間的DataBaseName為”Iblocal”。

4）在窗體的初始化過(guò)程中，還需要對(duì)一些控件的默認(rèn)屬性進(jìn)行設(shè)置：首先將本地機(jī)上的所有系統(tǒng)數(shù)據(jù)源顯示在ComBOBox1中，然后將三個(gè)按鈕的Enabled屬性都設(shè)置為Fasle：

Session.GetAliasNames（ComBoBx1.items）。

5）當(dāng)在ComboBox1中選定一個(gè)數(shù)據(jù)源時(shí)，需要將該數(shù)據(jù)源中所有數(shù)據(jù)表顯示在ListBox1中，由于本程序需要用到得是db格式的數(shù)據(jù)文件，所以還需設(shè)置一個(gè)過(guò)濾條件，這可以處理ComboBox1de OnChange事件：

Session.GeTTableNames（ComboBox1.items[ComboBox1.itemindes]，’*db’，1，1，listbox1.item）。

6）如果單機(jī)“獲取表結(jié)構(gòu)”按鈕，程序?qū)⒎治鲞x中的表的數(shù)據(jù)結(jié)構(gòu)，然后生成響應(yīng)的SQL語(yǔ)句，然后顯示在Memol控件中。在這個(gè)方法的實(shí)現(xiàn)過(guò)程中，還需要處理一個(gè)小問(wèn)題，就是如何獲取對(duì)應(yīng)表字段的數(shù)據(jù)類型。

7）當(dāng)SOL語(yǔ)句創(chuàng)建完畢并顯示在Memol控件中，單擊“創(chuàng)建表”將執(zhí)行創(chuàng)建表的命令，這個(gè)操作將通過(guò)ADDCommand1控件來(lái)實(shí)現(xiàn)：

Adocommand1.CommandText：=memo1.Text；

Adocommand1.Execute。

8）如果單擊“復(fù)制數(shù)據(jù)”按鈕，則將選定表中的所有數(shù)據(jù)轉(zhuǎn)移到目標(biāo)數(shù)據(jù)庫(kù)中對(duì)應(yīng)的表中。

9）至此，完成工作。保存工程文件，然后運(yùn)行程序。

3.結(jié)束語(yǔ)

總之，隨著網(wǎng)絡(luò)的普及，網(wǎng)絡(luò)數(shù)據(jù)庫(kù)越來(lái)越現(xiàn)實(shí)出其重要性，ADO在這方面有著其獨(dú)到的強(qiáng)大功能。

參考文獻(xiàn)

[1]網(wǎng)冠科技.Delphi 5.0控件時(shí)尚編程百例[M].機(jī)械工業(yè)出版社，2001，07.

[2]劉藝.Delphi程序設(shè)計(jì)大學(xué)教程[M].機(jī)械工業(yè)出版社，2005，06.

作者簡(jiǎn)介：劉暢（1978—），現(xiàn)供職于吉林工商學(xué)院信息工程學(xué)院，研究方向：計(jì)算機(jī)網(wǎng)絡(luò)。