8. 資料庫
在這章中，筆者將介紹資料庫程式設計及如何使用ADO回傳控制項（bound controls）的連結技巧（binding mechanism）和ADO資料控制項，但是在下列的這些技術概念，可以應用在資料的使用者或是來源方面。
在展示Visual Basic 6中的ADO能為我們做什麼之前，筆者必須很快的摘要說明資料庫的架構及資料存取的技術。
資料存取協定
所有在Visual Basic 6中新的資料庫相關使用都是用Microsoft ActiveX Data Objects (ADO)。一個可以讓您存取任何資料庫及資料來源的技術，如同一些人有寫過連接資料來源的OLE DB Provider。
圖8-1摘要指出在Visual Basic 6中您可以用許多方法取得資料來源。就像您所看到的，在您要連接的資料庫和應用程式各層之間的各個資料存取方法都大不相同。然而在這書中，我集中在ADO技術，其它的只有簡單描述一下。決定要不要涵蓋受歡迎的資料存取技術如：DAO及RDO是很困難的決定，但是我必須保持這本書的合理的大小。在這決定中很欣慰的是事實上DAO和RDO沒有在Visual Basic 6中作任何的改善；所以如果您已經對於Visual Basic 5的技巧很熟的話，這就沒什麼新的好講了。這兩個舊的技術最後將被ADO所取代。您可以發現一些好書和其他資訊來源是有關DAO及RDO的，像是William R. Vaughn所寫的《superb Hitchhiker's Guide to Visual Basic and SQL Server（Microsoft Press, 1998）》，雖然本書沒有篇幅深入的去寫DAO和RDO，您至少要去廣泛的了解它們是如何的運作這樣可以幫助您了解ADO帶給您的效益是什麼。筆者必須描述一下之前可用的工具及如何將ADO和舊的技術做關聯。
| 使用ODBC、DAO、RDO及ADO存取資料庫 |
ODBC
ODBC是「開放式資料庫連接」（Open Database Connectivity）的縮寫，它的功能是讓您可以連接近端或遠端的資料庫。Microsoft開始這個技術主要是為了能連接一些不同規格的資料庫-dBASE、Microsoft FoxPro、Microsoft Access、Microsoft SQL Server、Oracleor甚至於是「標明逗點分界文字檔」（plain comma-delimited text files）-只要使用一般的API。電腦連接到DDL的執行應用程式叫做ODBC驅動程式管理員，它轉送命令到（及取得資料從）ODBC驅動程式特別指定的資料庫。Viusaul Basic 2是第一個有能力連接到ODBC資料來源的程式語言版本。從那之後可以使用ODBC驅動程式就增加的非常快速，重點是幾乎沒有一個商業軟體資料庫是不提供ODBC驅動程式。
ODBC的困難點在於提供一個一般的介面給所有不同的資料庫。理論上，您可以將一個使用ODBC的應用程式跟一個Access資料庫連接，以後再簡單地修改後端的ODBC驅動程式和原始程式中的少許程式碼擴大規模成一個SQL Server資料庫。這是可以做到的，因為您送到資料庫的所有的命令是標準SQL語法。SQL結構化查詢語言（Structured Query Language）是一個專門給資料庫使用的可程式化語言。（請看
〈SQL速成〉 ，稍後在這個章節中會對SQL作一個介紹）。實際上，雖然透過ODBC層級能夠轉換這些標準的SQL命令成為指定資料庫的獨特語言，但是ODBC程式設計師卻時常繞過ODBC翻譯引擎，而直接將命令送到資料庫（有一些已知的pass-through查詢或命令）不用多說，這樣做會造成移植這個應用程式到其他資料庫時的一個阻礙。至少和許多其他資料庫存取技術來比較，ODBC是有效率的。ODBC的其它優勢是它同時支援16位元及32位元的API，在Visual Basic 3和Visual Basic 4的應用程式中它是一個現成可用的技巧。第三版ODBC有增加一些提昇效能的技巧，如「connection pooling」，意思就是ODBC驅動程式在用戶端可以重覆使用已存在的連結這對程式來說是可行的。例如：您的程式可以打開和連結多個連結到的資料庫，但是ODBC通常使用同一個連結，因為打開一個連結是耗時的作業-一次會花去幾秒鐘-connection pooling使您的程式能有更多的回應。Microsoft Transaction Server就使用connection pooling改善ActiveX打開連結的效能。
然而使用ODBC特別是對Visual Basic程式設計師來說是不容易的。API函數使用複雜，而且如果不小心有了錯誤常常會導致您的應用程式產生「重大錯誤」（fatal error）（如果發生在您開發時的環境，您甚至連存檔的機會都沒有）。基於這個理由，Visual Basic程式設計師在寫程式時只有少數會有興趣直接呼叫ODBC函數，大多數的Visual Basic現成可用的資料存取技巧可以使用ODBC驅動程式當中介層，所以有時您可以用直接API呼叫擴大其它的技巧（通常是架構在RDO上），不幸的，您不可以和ADO一起使用：即使雖然ADO中使用ODBC驅動程式，您還是不能將同一個資料庫連接同時使用ADO程式碼和ODBC程式碼混合使用。
既然您的Visual Basic程式中不直接使用ODBC API呼叫，您就必須熟悉了解一些基本技術的概念。例如：或許您將用一個資料來源名稱（Data Source Name縮寫為DSN）使用ADO。DSN是應用程式要正確的連接資料庫的一組值包括資料庫主機的機器名稱（如果您使用的是client-server引擎如SQL server或Oracle）、指定資料庫的名稱或路徑、連接逾時（也就是當嘗試連接指定ODBC驅動程式放棄及回應一個錯誤給呼叫的應用程式的秒數），工作站及應用程式的名字等等。
您可以用很多方法建立DSN，不管在Visual Basic 6環境內或外。ODBC資料管理員是控制台的一個小應用程式可以讓我們建立一些DSN和設定一些值。您可以從多種DSN中選擇被儲存在系統登錄值中的使用者資料來源名稱（User DSN），只可被特定的人使用，不可以和其他的人共享。系統資料來源名稱（System DSN）也是被存在其他的系統登錄值中但是不同的是，其他的所有使用者都可以看的到，包含Microsoft Windows NT服務。最後，還有一種儲存為附加檔名.dsn的檔案資料來源名稱（File DSN）可以給所有使用者使用（提供給那些有安裝正確的ODBC驅動程式的機器）。File DSN很容易的可以複製給其他的電腦，所以安裝散發較容易；在另一方面，應用程式需要知道DSN的所在位置，所以程式碼必須要提供完整的路徑找到.dsn檔案，您必須儲存路徑在某些地方（如，在INI的檔案中），這是在User或System資料來源名稱所不需要的。
當您使用ODBC時如果您不想被迫設定DSN，您可以提供所有連接資料庫的資訊－驅動程式名稱、資料庫名稱及路徑等等－放在您的程式碼中。這就是所謂的無資料來源名稱（DSN-less）連接，那經常是較有效率的，因為在您轉移儲存ODBC驅動程式到系統登錄中或檔案DSN時，DSN-less會讓開發者花較少的時間。
首先在ODBC控制面板的三個頁籤對話盒可以讓我們建立、刪除、和設定所有的DSN。就像您在圖8-2中所見，建立一個DSN經常需要打開數個對話盒， 驅動程式 頁籤顯示所有已安裝的ODBC驅動程式和讓您核對版本號碼（有時當您想安裝到使用者機器上，卻不能正常動作時相當有用）Visual Basic 6有附加一些ODBC驅動程式（可以在圖8-3中看到一些），您也可以向其他的第三協力廠商訂購。
ODBC資料來源管理員應用程式中的追蹤頁籤（Tracing tab）可以為所有ODBC動作設定記錄（log）檔案路徑，縮短ODBC應用程式的除錯（這選項當您透過DAO、RDO或ADO間接使用ODBC也是很有用的）。最新的ODBC資料來源管理員應用程式版本還能啟動Microsoft Visual Studio Analyzer可以讓您透過網路監視您的程式運作。
在連結共用區（Connection Pooling）頁籤中，您可以啟動或是停止每個特定的ODBC驅動程式用的連結共用區。很難得會需要去變動這些設定，筆者建議您不要去變動設定除非您很清楚的知道您在做什麼。最後在關於（About）頁籤中您可以知道所有的ODBC子系統的DLL位置及版本。
DAO
DAO，或稱資料存取物件（Data Access Objects）在所有使用Visual Basic 3開發資料庫應用程式的程式設計師心中是有地位的。DAO是一個物件導向介面連到Microsoft Jet引擎，這個引擎是很強的存取方法，程式開發者可以使用Access設計一個MDB資料庫然後使用Visual Basic DAO去開啟資料庫擷取資料記錄和管理交易。DAO最好的地方是它沒有限制您一定要使用Jet引擎資料庫因為您可以直接開啟任何有ODBC驅動程式的資料庫，或是您可以使用Jet引擎連接表格，那是一個屬於MDB資料庫的虛擬表格，並且可以透過其他的ODBC來源來正確地回復和儲存資料。
縱使可以使用DAO去存取非Jet引擎的資料來源，這時在您心中應該還是要有一個清楚的觀念，例如，縱然您的應用程式不使用MDB資料庫，您仍然必須載入Jet引擎DLL（動態連結程式庫）在記憶體中。（在散發軟體時也必須將DDL給其他使用者）。更糟的是，DAO不讓您直接使用ODBC API的函式，例如：您不能執行非同步的查詢或用DAO連接，也不可以使用多重結果設定（multiple result sets）。
Visual Basic 3是第一個包含這資料控制項的版本，它可以在一個表單中加入DAO
控制項讓您串聯一個或者更多的控制項，連接到一個資料來源然後再提供一些按鈕將您連接的資料庫表格的應用程式作成具有導覽的功能。一開始您會覺得資料控制項似乎是個不錯的工具，因為它讓您迅速地為資料庫創造有效率的使用者界面。然而到後面的一些測試後，開發者大多放棄這資料控制項；因為它有很多限制是很難克服的，除了效能考量，資料控制項有一個嚴重的不利點:它連結您的前端應用程式到後端資料庫裡的資料，假如您稍後想要在您的應用程式中加入複雜有效的管理到資料庫欄位或存取其他資料庫的資料，必須修正您的全部程式中的單一模組，這些（與其他的問題）是典型的一個2-tier（層）架構，這個缺點其實在3-tier（或者N-tier）架構流行後就被拋棄了，一個或是更多的中介層在這應用程式和資料庫之間代勞了，諸如：資料有效性、商業規則、工作量平衡、和安全性。唉，萬一您想要抱持這N-tier哲學，還是勸您忘記資料控制項的種種吧！
Visual Basic 4包含改善的DAO 3.0版本，它被賦與一個特別的DLL也允許程式設計師以32-位元技術連接16位元資料庫工作。Visual Basic 5的程式設計師能使用DAO 3.5，在Visaul Basic 6的套裝中，您將發現有DAO 3.51，大體而言是都和先前版本類似。微軟公司的建議是不計劃更進一步改善DAO，即使Microsoft Office 2000宣佈支援著DAO 4。
RDO
RDO，或者稱之為遠端資料控制項，是由微軟公司初次組合單純的DAO和強大的direct（直接存取） ODBC API設計出的。繼DAO之後RDO是一個含糊型式的物件模型，但它繞過Jet資料庫引擎及DAO DLL直接的在ODBC驅動程式下工作。應用程式在RDO上只需載入一個小小的DLL就可以代替這極耗資源的Jet資料庫引擎。更重要的是RDO特別被設計和ODBC資料來源一起工作，所以它顯露出不能從DAO作存取的函式，RDO是32-位元技術，所以，在16位元的應用程式中不能使用。
Visual Basic 4介紹RDO第一個版本，在Visual Basic 5中包含了RDO 2，它改善了這個引擎，現在最新的版本是一個成熟的產品，同時也支持著一個新的程式寫作依據事件的模型，對以非同步的操作來說那是非常有幫助的，雖然RDO的發展似乎有停止，但是Visual Basic 6仍然包含版本2並以不明顯的改善來替代Visual Basic 5的版本。所以RDO是另外的盡頭．雖然微軟公司似乎好像答應積極的支援RDO，但都在ADO上似乎得到改善。
RDO第一版和第二版和RemoteData控制項附在一起，您可以連結控制項到遠端的資料來源，在這個感覺中，RemoteData控制項分享所有資料控制項的優勢及不利點，包含和n-tier架構的問題。
ODBCDirect
Visual Basic 5還包含另外一種資料存取技術，叫做ODBCDirect（ODBC直接存取），可以允許程式設計師採用RDO但是使用DAO的語法，ODBCDirect被構思在當作一個交易技術用來協助Visual Basic程式設計師轉移DAO/Jet應用程式到更強的Client/Server架構。理論上，只要更改已存在DAO程式少數的屬性，那些儲存在Jet引擎的資料庫就可以轉換成Client/Server應用程式連結到所有ODBC資料來源。ODBCDirect不應被視為它自己的一個技術，它更像是可以用來轉換應用程式節省時間的一個巧計，例如RDO 2有許多新的特色－新的事件程式模組，不能讓ODBCDirect當作優點是因為它必須與DAO程式碼相容。此外，ODBCDirect基於RDO所以只能使用在32位元的應用程式中。基於這些理由，除非您有一個非常大且複雜的DAO/Jet Visual Basic應用程式需要盡快的移植到其他資料庫上否則不要浪費您的時間在ODBCDirect上。
OLE DB
OLE DB是一個低階的資料存取技術，就微軟公司的意圖來講，是要以這個技術來取代ODBC，當作主要連接到資料庫的技術。OLE DB相對到ODBC驅動程式來說就是OLE DB Providers（提供者），就有如一座橋連接應用程式和資料庫之間的作用，雖然OLE DB是一個近來的技術，但是您卻能發現OLE DB Providers提供的大多為流行的資料庫；而且其他的OLE DB Providers將在不久後正式釋出。不論ODBC與OLE DB技術是否完全地不同，它們卻明顯的類似。第一，OLE DB是架構在COM之上，這個架構已經證實壯大到足夠來搬移大量的資料通過網路。
第二，OLE DB將它自己借給任何類型資料來源的連接工作，不再只是和ODBC驅動程式－ISAM(加有指標的循序存取模式)資料庫有關係。
OLE DB是微軟公司的普遍資料存取(UDA)策略的一部份，能夠使您讀取和處理資料不管它是在哪裡，不需要先轉換它和轉入它到一個更加傳統的資料庫。使用OLE DB Providers，您能處理電子郵件訊息中的資料，HTML網頁，試算表與文字及文件，甚至於更多其他外來的資料來源。Visual Basic 6它自己伴隨著Microsoft Jet資料庫引擎、SQL Server、FoxPro、text檔案、和Oracle資料庫的Providers，您可以從Microsoft web網站,下載其他OLE DB Providers，我也曾經聽聞從第三者協力廠商提供其他的OLE DB Providers。
在轉換ODBC到OLE DB世界之間，您可以使用一個特別的OLE DB Provider，名叫MSDASQL𠯫悒戎N為處理，它的工作如一座橋連接到任何ODBC來源。代替直接地連接到資料庫，您可以使用特定的Provider連接到一個ODBC驅動程式對資料庫轉換讀寫資料。這個附加層有一個效能Hit（Performace Hit）。當然您應該只會在有更多的Provider可以選擇時，拿來要當作解決問題時的一個短期解決方案才會看它。
ADO
ADO是到OLE DB高階的介面。有點像是當時RDO和ODBC API一樣的角色。就像ODBC API，OLE DB是一個低階介面，不能容易地 (或全然)被高階的語言存取，諸如：Visual Basic。ADO建造在OLE DB之上，用來提供OLE DB或將造成嚴密的需求，考驗一位程式設計師撰寫那些非立即可得的功能時的本領。ADO能夠作到RDO所不能做到的需求:能使用非同步的查詢和連線及樂觀的批次更新。ADO加入很好的新特色，例如：檔案基礎（file-based）和獨立的Recordsets、階層的Recordsets，還有很多很多...。
ADO最重要的一個特色或許是它的延展性，代替作為一個複合物和單晶體的層次，就像DAO和RDO，ADO由更少物件組成，但是可以有更多方法被結合。在特別的OLE DB提供者的表單可以加ADO進去，像是：MSDataShape提供者，提供階層的Recordset到其他提供者。Microsoft也同時製造新的功能可用在ADO於開放式程式庫的形式動態連結到核心ADO程式庫。例如，新的ADO2.1程式庫包含支援資料定義語言和安全性(那個是指，建立新的資料庫表格、使用者和群組的使用者)，Jet噴射引擎複製，和多維的Recordsets。因為這些附加功能是不同的程式庫，假如您的應用程式不使用它們，您就不必分發它們。DAO與RDO的對比，分別包含一個更大內嵌的DLL(縱使您使用一個很小部分功能，仍必須分發它全部的DLL)。
ADO另外的一個特色是：您能使用它在於一個瀏覽器的HTML頁面之內，如：Internet Explorer或者在一個伺服器支援IIS的ASP。ADO的一個次系統，名叫遠端資料服務程式，甚至可讓您送一批記錄到遠端的客戶端瀏覽器或者越過網際網路啟動COM元件。
ADO唯一的的缺陷是，它是一個尚未應用在真實世界中，測試過它的穩定性的近來技術，只有DAO和RDO有。譬如，筆者發現ADO 2中有一些問題，根據筆者的經驗大多數的問題是由於OLE DB提供者造成，並非ADO自己的問題。這問題的其中差異是重要的：因為您通常可以在一個新的版本被釋出時，經由簡單的適時更新提供者修正這些問題。事實上，筆者發現這些為Microsoft Jet 4.0引擎和SQL Server 7.0的提供者比版本Jet 3.51引擎和SQL Server 6.5.更好(最新的提供者和Visual Basic 6一起散發出來。)希望，在您讀這本書的時候之前大部份ADO主要的問題，已經都被改好。在另一方面，唯一對ADO取代的選擇方案是繼續使用DAO或者RDO，但是，如筆者已經說明的，這些技術在未來將不會顯著地改善它們。以上您可以了解到選擇使用資料存取技巧是一個複雜的事。我的簡單建議是，如果您正在維護或更新一個已架構在DAO或RDO的應用系統（或ODBC APIs－如果您是一位勇敢的程式設計師的話)，您就看著ADO未來的走向；如果您正開始一個新的應用程式系統，給ADO一個嘗試機會吧，假如您計劃去更新和維護它多年，或者如果計劃最後會將它放到到網際網路上。
好消息是Visual Basic 6包含一些工具和設備可迅速地和有效地建立ADO應用程式。為此緣故，這本書的焦點專門集中在ADO。
視覺的資料庫工具
Visual Basic 5企業版本是第一個在IDE之內整合一套資料庫工具的語言版本。
在那之前，您必須轉換到另一個外部程式，例如：不管您需要建立或編輯一個資料表、設定兩個資料表的關聯、設計一個查詢等等．．都要使用SQL Server Enterprise Manager（SQL Server的管理程式），或是FoxPro。在Visual Basic 6之後，大多數的視覺化資料庫工具組也附在專業的版本之內。新版本的視覺化資料庫工具是更好的整合環境，在IDE中的一些選單－更顯著的查詢功能表、圖示功能表、和在檔案、編輯和觀看的一些命令－當視覺化資料庫工具的視窗獲得焦點時就會變成可用的。
在這節裡，我們來瀏覽這些工具和展示如何使用它們來管理您的資料庫。請記住，資料庫設計師視窗及查詢設計師視窗只有在Visual Basic 6企業版本才可以用。
資料檢視視窗
使用視覺化資料庫工具的第一步就是「資料檢視視窗」，您可以在 檢視 功能表中點一下 資料檢視視窗 或是按下標準工具列中的黃色圖示來顯示它，這個視窗中存著所有對資料庫的Connection；Connection叫做資料連結，例如：「資料檢視視窗」在圖8-4包含著Biblio及Nwind噴射引擎資料庫和兩個Connection，一個是使用Native OLE DB Provider for SQL Server到SQL Server資料庫的Pubs資料表，另一個是使用MSDASQL Provider for ODBC，您可以開啟這些資料連結點和顯示所有在資料庫中的資料表、檢視表、資料庫圖表，及預存程序（在Oracle資料庫中，您可以多看到兩個文件夾，Functions and Synonyms。）您可以展開一個資料表或是一個資料庫圖表節點來看各個資料表或是資料庫圖表裡欄位的詳細資料，也可以用右滑鼠鍵在屬性功能表中看各個物件的屬性。讓我簡單扼要的說明在資料檢視視窗中您可以做什麼：
| 圖8-4 顯示在資料檢視視窗中的物件可以用屬性對話盒顯示物件的屬性 |
| 圖8-5 如同視覺資料庫工具中一樣的資料表內容 |
關於以上這些功能，有一些是較重要的值得較詳細的說明。
新增一個資料連結
在使用資料瀏覽視窗之前，您必須確定建立一個資料連結到資料庫，一個資料連結包含一些資訊，如您想連接到資料庫的資料庫引擎OLE DB provider的名字和其他登入的資料如姓名和密碼。
| 圖8-6 想要建立一個新的資料連結，您必須要選擇一個OLE DB provider。 |
您可以建立一個新的資料庫連結在資料檢視工具列上最右邊的圖示點一下或是在資料庫連結的文件夾上右擊滑鼠鍵再點選彈出功能表的 新增資料連結 。這個命令會啟動一個四步驟的精靈，第一頁請參考圖8-6。在這一頁中您可以選擇您想要連接資料庫的OLE DB provider，內定值ADO使用Microsoft OLE DB Provider for ODBC Drivers (MSDASQL)，這一個Provider實際上幾乎可以讓您連接世界上所有的關聯式資料庫和ISAM資料庫。對於有些資料來源，您也可以使用效能比較好的和比較多特點的Provider，來因應特別的資料庫連接。
第二頁的精靈的內容取決於您選擇的Provider，例如當連接到Jet資料庫您只需選擇附加檔名MDB的檔案路徑和使用者的姓名及密碼。圖8-7展示當您連到SQL Server 6.5使用Microsoft OLE DB Provider for SQL Server 6.5資料庫的選項：在這裡您必須選擇主機的名稱，輸入登入的資料，如果您要的話還可以輸入資料庫的名字，（這是ADO所稱的起始目錄）請記住如果您適用空白的密碼，就要勾選空白密碼的選項因為讓密碼欄位為空白會不能動作。如果您是用 使用Windows NT整合安全 您就不用指定使用者的名稱及密碼，在這個情況下，SQL Server使用您登入網域的使用者和密碼來檢查您是否有被允許存取主機，按下測試連接可以確定全部都沒有問題。
| 圖8-7 Microsoft OLE DB Provider for SQL Server的連接屬性 |
當您用內定的OLE DB Provider for ODBC Drivers，精靈的第二頁就不同了，在這個案例中，您可以選擇一個DSN或是使用一個連接字串（大略的描述符合一個無DSN連接），如果您是選擇使用連接字串可以從已存在的DSN開始建立或是隨意的自己建立，您也可以依照您使用的ODBC驅動程式來修改其屬性。如果您填入使用者及密碼和使用的初始目錄 (請看圖8-8)，您就不用在精靈中再輸入一次了（圖8-8的左方）。
| 圖8-8 建立一個連接字串。 |
在資料庫連接精靈中剩下的兩頁通常不會需要去輸入任何的資料，但是如果在進階頁籤中設定開啟資料庫的方式為read-only作業獨占方式會使您的應用程式在最佳化上得到更高的執行速度，您也可以設定更高的連接逾時時間以防止逾時的錯誤發生。在精靈的最後一頁命名為全部，您可以看到所有前幾頁產生的屬性，所有其他可修改的屬性都可以在這裡修改。一般來說，這些是進階的設定，您不用去更動它的預設值，因為每個OLE DB provider列出的屬性都不同，您應該參考這些驅動程式的附加文件來得知更多的資訊。
小秘訣
如果您使用Microsoft OLE DB Provider for SQL Server 6.5，您會不能列出您所給予的SQL Server中包含的資料庫，這好像是這個版本的bug，事實上只要升級到Microsoft OLE DB Provider for SQL Server 7.0，這些問題都會解決。（您只需要升級provider，不用連SQL Server引擎也升級）。SQL Server 6.5只需要我們一點小動作就可以解決這個問題，先找到在您系統中的INSTCAT.SQL這個檔，（您應該會在\Windows\System這個目錄中找到）然後在ISQL_w載入這個檔案和執行這個描述檔；當執行完時，再試一次建立資料連結，您將發現可以正確的列出所有SQL Server的資料庫。
建立或修改一個資料表
在一個已存在的資料表上單擊右滑鼠鍵然後在彈出功能表上選擇 新資料表 就可以新增一個資料表。它會問您新資料表的名字，如圖8-9，您必須鍵入在這個視窗中所有欄位的名字和他們的資料型態（整數，浮點小數，字串，等等.....），長度，精確度和欄位的預設值，您也必須決定哪些欄位可以接受Null和那些欄位是資料表中識別的鍵值。
小秘訣
當您建立一個資料表，您可以從其他在資料庫中的資料表使用複製及貼上來建立新欄位的屬性，如果要選擇多個欄位，可以按住Ctrl或Shift鍵再點選您要複製的欄位，這時欄位會變成反白（圖8-9）您可以使用組合鍵Ctrl+C來作複製，然後用Ctrl+V來作貼上.的動作。
| 圖8-9 當您建立一個新的表格或修改已存在的表格，您可以從其他的表格複製和貼上欄位屬性。 |
下一個步驟是決定那個欄位（或是哪些欄位）要成為主要索引鍵，如果需要可以使用多個欄位當主要索引鍵（按住Ctrl或Shift加上單擊左滑鼠鍵選取），主要索引鍵用在表格中識別記錄是否為唯一的一筆記錄和用來當作關聯的規則是相當有用的，通常您也會需要主要索引鍵來建立可以在資料表中可以更新的指標，每一個資料表中只可以建立一個主要索引鍵，而且包含的欄位不可以有Null值，當您建立好了之後在資料表的左方會有鑰匙的圖示出現。
如果您在格線中單擊右滑鼠鍵在選擇功能表上的屬性命令，會出現像圖8-10的畫面。在這裡您可以定義限制條件、關聯性和這個資料表的索引。
限制條件就是在資料表中一個或多個欄位簡單的判斷驗證的規則，例如：
price > 0
一個資料表可以有多個限制條件，每一個限制條件都有一個名字，您可以對每個已存在資料表中的資料錄設定限制條件，為所有後來所作的新增/刪除動作作限制。
屬性的第二頁中可以訂定這個資料表的關聯性。
屬性的第三頁對話盒，您可以建立和刪除這個資料表的索引。如果您知道一個或是多個欄位的值，索引讓您可以快速取得資料表中的資料。索引也可以讓您建立資料表之間的關聯性使資料的完整不被破壞，您可以定義多種不同的索引， 主要索引鍵 是資料庫的主要索引；它們的內容是不能為Null且是唯一的，所以可以當作資料表中唯一一筆的確認。 外部索引鍵 （foreign key index）是指其他資料表中的一個或多個欄位當索引鍵，常被用在當兩個資料表之間有一種共享的關聯性時。 唯一的索引鍵 是由任意的欄位（或是欄位組合）成為資料表中的唯一的一筆， 和主要索引鍵不同的是它可以接受Null值。您也可以建立一種非唯一的索引，主要的用途大多是用來提昇搜尋速度，一些資料庫引擎也支援叢集索引，用來確定資料在實體的資料表中的排列是和索引排序是一樣的（每一個資料表只能有一個這樣的索引）。
| 圖8-10 您可以在資料表的屬性頁中建立一個條件。 |
當您完成或是調整了資料表，您可以選擇儲存更改資料表的描述檔案，其中包含了您所作的變更可以提供下次重新建立資料表時的參考。例如：在筆者的系統中所有的描述檔都存在C:\Program Files\Microsoft Visual Studio\Vb98的目錄下。
資料庫圖表視窗
如同稍早提過的，資料庫圖表顯示資料庫中所有或部分資料表的欄位和索引鍵，和它們之間的關聯性，我們可以在資料檢視視窗的資料庫圖表上右擊滑鼠鍵再選擇新增圖表的命令來帶出資料庫圖表視窗，另外在視覺化資料庫工具您可以從資料檢視視窗拖曳資料庫到資料庫圖表視窗，當放置了多個資料表後，各個資料表之間的關聯性就會顯示出來，您也可以用右滑鼠鍵點一下視窗中的資料表然後選擇 新增關聯的資料表 命令來顯示有關聯的資料表，圖8-11展示了在SQL Server上的Pubs資料庫，在圖表視窗中您可以完成：
在兩個資料表之間的關聯性是一個資料庫設計的重要之一。您可以放置資料表為一對一的關聯，或是一對多的關聯，例如：Pubs資料庫中的Pusloishers和Pub_info資料表就是一個一對一的關聯；而一對多的關聯就像是Publishers和Titles資料表， 您可以在資料庫圖表視窗中在兩個關聯之間的線上右擊滑鼠鍵並選取[屬性]功能表命令來更改關聯的屬性。
資料庫圖表視窗也可以由原有的圖表用拖放的方式來完成，例如：您可以copy一部份圖表中的資料庫再拖曳到另一個圖表的視窗中。這樣您就可以將多個圖表組合成一個大的圖表，這個技巧在您處理資料庫中含有大量的資料表時相當的有用。
| 圖8-11 在Pubs資料庫中的一個資料庫圖表。 |
查詢設計師視窗
如果您在資料檢視視窗中在檢視表文件夾單擊右滑鼠鍵，您可以建立一個新的檢視表，檢視表是從一個資料表中或是邏輯的兩個或多個資料表的資料錄組合而成。例如在Pubs資料庫中的Titleview檢視表一起顯示出所有在資料庫中的title和authors，要取得這些資訊，必需從Authors,、Titles、TitlesAuthor.三個不同的資料表中蒐集資料，當您建立一個新的或是修改一個檢視表，查詢設計師視窗就會顯示出來，這是另一個視覺化資料庫工具組中一個相當有用的成員因為它能讓您使用直覺使用者介面建立查詢和檢視表，查詢設計師視窗被分成四個窗格，就如同 圖8-12 所示。
| 圖8-12 在查詢設計師開啟Pubs資料庫中的Titleview檢視表。 |
ADO資料繫結
第一個Visual Basic (版本3)所支援的資料庫表單是Data控制項和結合控制項，如同我在此章第1段所解釋。這種繫結的機制在Visual Basic 4和5中已經經過改良，但並沒有太大的改變，直到Visual Basic 6首次推出ADO繫結機制為止。
繫結是一種技術，讓你將控制項-如TextBox、CheckBox、ListBox和ComboBox控制項-放置在表單上並將所有控制項與另一個稱做Data的控制項[繫結]在一起，Data控制項再與資料庫連結。Data控制項讓你能在資料庫中切換記錄：每次新的記錄變成現有記錄時，它的欄位值就會與繫結控制項中顯示。同樣的，如果使用者更新繫結控制項的值，這些變更便會傳播到資料庫上。你可以不用撰寫一行程式碼便可以建立資料庫資料的簡單使用者介面(這是理論，實際上你應該驗證輸入資料，並時常將繫結控制項所顯示的資料套用格式)。
新的ADO繫結技術對於顯示資料庫資料的方式而言是一種革新。首先，你不用一直使用資料庫，至少不是直接。在Visual Basic 6中，你不應該談到繫結控制項和Data資料庫，你應該多多談談與 資料來源 繫結的++s。在Visual Basic 6中，你可以使用許多類型的資料消費者(Data Consumer)，如內建或外部的控制項、類別、COM元件、自訂的ActiveX控制項(或UserControl)、或DataReport設計工具。你也可以選擇以下的資料來源：ADO Data控制項、類別、COM元件、UserControl、DataEnvironment設計工具(DataEnvironment設計工具將在本章稍後討論，DataReport設計工具將在 第15章 討論)。
資料來源和資料消費者的類別讓你有無比的彈性能為你的應用程式設計最適當的繫結架構，它也能夠忽略原始Data控制項(及RemoteData控制項)最大的限制。當你使用ADO繫結時你並未與2-Tier結構連結，這是因為你沒有必要將使用者介面元素與資料庫的欄位連結。你可以使用多個中介COM元件，此元件實行更有彈性的3-Tier設計。這些COM元件位於何處並不十分重要；它們可以在用戶端電腦、伺服器電腦或其他電腦上執行。你可以在用戶端和伺服器在同一台電腦上時開發3-Tier(雖然在此情況下你確定無法利用許多3-Tier承諾)。N-Tier結構的重點是前端應用程式不會緊密的與後端資料庫結合，讓你能夠-如果需要的話-替代前端或後端而不要重寫整個應用程式。
繫結機制
當您將多個控制項與一個ADO Data控制項繫結時，你可以利用最簡單的ADO繫結表單，但我在此所解釋的概念可以套用在任何一種類型的資料來源或資料消費者上。在 第17 或 第18章 內你可以得知更多撰寫這類資料來源和資料消費者的詳細資訊。
由於使用ADO Data控制項的緣故，你必須將它加入現有的專案才能在控制項的 工具箱 中使用此控制項。你也需要新增一些項目到 References 對話方塊內，方法如下：選擇 檔案 功能表內的 建立新專案 ，由專案庫中開啟 Data Environment專案 範本。此範本能在專案中加入數個模組(其中一些模組我們在此並不討論)，此範本也會加入Microsoft ActiveX Data Objects 2.0 Library (MSADO15.DLL)的參照並在 工具箱 加入一些額外的控制項，包括ADO Data控制項。如果你已經升級到新版的ADO 2.1，則加入 References 對話方塊的項目是msado20.tlb。
在將 工具箱 中的ADO Data控制項設置在專案唯一的表單frmDataEnv上，並將它的Align屬性設定為2-vbAlignBottom，讓此控制項會隨著表單改變大小。你可以由一般的 屬性 視窗中設定其他的屬性，但最好使用 屬性頁 來設定； 屬性頁 的開啟方式是以右鍵按一下該控制項，並在快速功能表上選擇 ADODC的屬性 命令。在 一般 標籤頁中，你可以使用三種方法指定你要連接哪一個資料庫：使用資料連結檔案、使用ODBC資料來源名稱(如你所見，舊的DSN在ADO的世界中仍然存在)、或使用連線字串。
使用資料連結檔案 與檔案為基礎DSN的ADO相同。起初，你可能不知道要如何建立一個UDL檔案，因為並沒有立即顯示 New 或是 Add 鈕。答案在圖8-13中；按一下 瀏覽 鈕以開啟 選擇資料連結檔案 對話盒，此對話盒能讓你瀏覽至UDL檔案所在的目錄。以右鍵按一下對話方塊內的檔案清單(可能是空的)，選擇 新增 ，再選擇 Microsoft資料連結 。如此便會建立一個"空白"的UDL檔，你可以將此檔案重新以你喜歡的名稱命名。一旦你知道執行的方法，它就成為了一個簡單的工作；只要不要將此程序稱做直覺的使用者介面。
建立UDL檔案只是工作的一部份，因為現在你必須指定資料連結檔案要指向哪一個資料庫。你需要執行另一個作業：以右鍵按一下剛才你建立的UDL檔案，並選擇 內容 命令，便會開啟一個有多張標籤頁的 內容 對話方塊。對話方塊中最後四張標籤頁：提供者、連接、進階、全部，與你在 資料檢視 視窗中建立資料連結時所看到的一樣；這並不奇怪，因為在此我們仍在討論相同的概念。
你也可以不使用UDL檔案並直接建立連線字串。如果你按一下ADODC 屬性頁 對話方塊中的 建立 鈕，你會再一次看到可讓你定義ADO連線的4張標籤頁。你在使用 資料檢視 對話方塊中所執行的動作在此也能執行。在此範例中，你可以使用任何一種方法連線到NWind.mdb資料庫。
| 圖8-13 建立資料連結檔案的方法 |
回到ADODC的 屬性頁 對話方塊，切換到 認證 標籤頁，輸入使用者名稱和密碼(如果你的資料庫需要的話)，按一下 資料錄來源 標籤頁。在此標籤頁你可以定義可以提供資料給繫結控制項的資料庫資料表、預存程序、或SQL查詢。例如，在上方的組合方塊中選擇 adCmdTex t選項，再輸入以下的SQL查詢：
Select * from Products
回到表單並新增4個TextBox控制項、4個Lable、和1個CheckBox控制項，如圖8-14。將CheckBox控制項和所有TextBox控制項的DataSource屬性全部都設定為Adodc1，並將它們的DataField屬性設定與控制項繫結的資料庫內欄位名稱。你不必去猜欄位的名稱，因為在 屬性 視窗內提供有非常方便的下拉清單，清單內包含了Publishers資料表內所有的名稱。就本範例而言，使用ProductName、UnitPrice、UnitsInStock、UnitsOnOrder和Discontinued欄位。
你已準備執行這個程式，並使用ADO Data控制項4個箭頭按鈕切換每一筆記錄。試著修改多個欄位，移到下一筆記錄並回頭看看新的值是否已經仍在。如你所見，你不用寫Visual Basic程式碼此機制就能作用。
你不用寫任何一行程式碼就可以新增記錄。回到設計階段，將ADO Data控制項的EOFAction屬性設定為 2-adDoAddNew 。接著再次回到範例程式中，按一下最右邊的箭頭鈕以移到最後一筆記錄，按一下右邊數來第二個箭頭鈕以移到下一筆記錄。所有的繫結控制項會被清除，你可以輸入新記錄的欄位值。記住你需要移到另一筆記錄讓你的編輯能夠被維持。如果你只是關閉表單，任何你在現有的記錄所做得變更都會遺失。
| 圖8-14 ADO Data控制項範例應用程式使用第15章所描敘的DataCombo控制項 |
使用繫結控制項
大部份Visual Basic 6內建的控制項支援資料繫結，包括TextBox、Label、CheckBox、ListBox、ComboBox，PictureBox，和OLE控制項。一般而言，TextBox控制項是可編輯的字串或數值欄位，Labels控制項是無法編輯的欄位，CheckBoxes控制項是Boolean值，ListBoxes和ComboBoxes控制項則是列出有效值。在Visual Basic 6套件中，你會發現一些支援資料繫結的外部ActiveX控制項，如ImageCombo、MonthView、DateTimePicker、MaskEdBox、RichTextBox、DataGrid、DataList、DataCombo和Hierarchical FlexGrid控制項。在本段中，我已經提供了一些讓內建的控制項成為繫結控制項不錯的建議和祕訣；資料感知的ActiveX控制項將在 第10 、 11 、 12 和 15 章介紹。
說明
Visual Basic 6有一些資料感知的控制項-也就是DBGrid、 DBList、DBCombo、和MSFlexGrid控制項-是無法與ADO Data控制項相容的，而且只能與較舊的Data和RemoteData控制項一起使用。所有內建的控制項都能舊的Data控制項和新的ADO Data控制項一起使用。
所有繫結控制項的DataChanged屬性在執行階段中只有Boolean屬性。當使用者(或程式碼)修改了控制項內的值，Visual Basic便將此屬性設定為True。ADO繫結機制使用此標幟來檢查目前的記錄是否已經被編輯，並在顯示新的記錄後將屬性重新設定為False。這表示你可以避免ADO Data控制項經由將控制項的DataChanged屬性設定為False，而將控制項的值搬移到資料庫的欄位。
小秘訣
DataChanged屬性與ADO繫結機制彼此獨立，且此屬性由Visual Basic管理－即使此控制項目前尚未與資料庫欄位繫結。例如，當你要判斷控制項的內容在載入數值後是否已經被修改時，你便可以利用此屬性。如果你沒有使用此屬性，你則需要使用表單層級的Boolean變數，並以手動的方式在控制項的Change或Click事件程序中將它設定為True。
當你使用資料繫結的Label控制項時，你應該將它的UseMnemonics屬性設定為False。如果它被設定為True (預設)值，所有資料庫欄位內的＊號都會被錯誤解譯為快速鍵字元的配置區。CheckBox控制項會將零值視為vbUnchecked，任何非零的值視為vbChecked，將Null值視為vbGrayed。但當你修改此欄位內的值時，CheckBox控制項永遠會將0和-1值儲存於資料庫內。有基於此，CheckBox控制項應該只與Boolean欄位繫結。
注意
你無法將PictureBox控制項與存放在OLE控制項類型的Access資料庫欄位內的圖片繫結，你必須使用OLE控制項。繫結的PictureBox控制項可以顯示存放在圖像類型的SQL Server欄位內的圖片繫結。
OptionButton控制項並非資料感知的，因此你需要以下的方法將它與ADO Data控制項繫結。建立一個OptionButton控制項陣列和一個隱藏的TextBox控制項，並將隱藏的TextBox控制項與目前所提到旳資料庫欄位繫結。接著在表單模組中寫入以下的程式碼：
Private Sub optRadioButton_Click(Index As Integer)
'Change hidden TextBox's contents when user clicks on radio buttons.
txtHidden.Text = Trim$(Index)
End Sub
Private Sub txtHidden_Change()
'Select the correct radio button when the ADO Data control
'assigns a new value to the hidden TextBox.
On Error Resume Next
optRadioButton(CInt(txtHidden.Text)).Value = True
End Sub
最理想的方法是擁有一個ActiveX控制項，此控制項顯示OptionButton控制項陣列，並將這些控制項與一個資料庫欄位繫結；事實上一些商用控制項便如此做。但現在Visual Basic支援ActiveX控制項的建立，你自己便可以在幾分鐘內建立這一類的控制項。請參閱 第17章 以了解建立繫結ActiveX控制項的方法。
當你使用Style屬性設定為[2-DropdownList]的ComboBox控制項並將ListBox控制項做為繫結控制項時請留意。如果資料庫內的值與清單內其中一個值不符合時，你會得到執行階段的錯誤。
Visual Basic 6讓你在執行階段指派控制項的DataSource屬性，因此你可以在執行期間繫結(或取消繫結)：
'Bind a control at run time. txtFirstName.DataField ="FirstName" Set txtFirstName.DataSource = Adodc1 ... 'Unbind it. Set txtFirstName.DataSource = Nothing
DataSource屬性的動態指定並不用於舊的Data和RemoteData控制項。
ADO Data控制項
ADO Data控制項有許多ADO Connection和Recordset物件的功能，這一部份會在 第13章 說明。在本段中我只介紹一些你使用此控制項建立一個小型應用程式時需要設定的屬性。
ConnectionString屬性是字串，它包含建立連線時需要的所有資訊，就如同我在上一段所說明。你可以使用UserName和Password屬性設定登入資料，ConnectionTimeout屬性來定義連線的逾時值，Mode屬性可以判斷哪一項作業在連線上被允許了。有關這些屬性更詳細的資訊請參閱 第13章 〈Connection Object〉。
ADO Data控制項大部份的屬性是向ADO Recordset物件借用的。RecordSource是資料表、預存的程序、或是傳回資料庫記錄的SQL命令(它與Recordset物件的Source屬性對應)。CommandType是存放在Record-Source屬性內的查詢類型，CommandTimeout是命令執行的逾時值(以秒為單位)，CursorLocation指定游標是否應該位於用戶端或伺服器工作站上，CursorType決定游標的類型。CacheSize是在每一次資料轉移是由資料庫讀取的記錄數，LockType則會影響用戶端應用程式更新資料庫內資料的方式。我將在 第13章 和 第14章 內詳細說明這些屬性，與游標和鎖定選項。
ADO Data控制項也有兩個屬性是不與Recordset物件內的項目對應。EOFAction屬性能決定當使用者企圖搬移最後一筆記錄時會發生的動作：0-adDoMoveLast表示記錄指標仍停留在Recordset的最後一筆記錄，1-adStayEOF設定EOF (End-Of-File)條件，2-adDoAddNew會自動加入一筆新記錄。BOFAction屬性會決定當使用者在第一筆記錄是目前記錄時按一下最左邊的箭頭時會發生的動作：0-adDoMoveFirst會將指標留在第一筆記錄，1-adStayBOF設定BOF (Begin-Of-File)條件。
在執行階段中，ADO Data控制項還有一個Recordset屬性，此屬性會傳回背景Recordset物件的參照。此參照對於利用控制項所有的功能而言是必須的，因為它會讓你為其他的作業加入支援。例如，你可以建立兩個CommandButton控制項，將它們的Caption屬性設定為AddNew和Delete，並在它們的Click事件中寫入以下的程式碼：
Private Sub cmdAddNew_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
Adodc1.Recordset.Delete
End Sub
請記住之前的作業並非一直都被允許。例如，如果ADO Data控制項在唯讀模式中已經開啟了資料來源，則你無法新增新的記錄或刪除現有的記錄。即使資料來源已經在唯讀模式中被開啟了，記錄上特定的作業可能會無效。例如，當Orders資料表內有記錄參照Customers資料表時，你便無法刪除Customers資料表的記錄。
Recordset物件有一些屬性和方法，你可以由ADO Data控制項使用它們。例如你可以排序或篩選顯示的記錄，或是設定書籤以快速的回到指定的記錄。ADO Data控制項並不直接擁有背景的Connection物件，但可以使用背景的Recordset物件的ActiveConnection屬性。例如，你可以使用以下的程式碼實行交易：
Private Sub Form_Load()
'Start a transaction when the form loads.
Adodc1.Recordset.ActiveConnection.BeginTrans
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Commit or roll back when the form unloads.
If MsgBox(ioDo you confirm changes to records?lD，vbYesNo) = vbYes Then
Adodc1.Recordset.ActiveConnection.CommitTrans
Else
Adodc1.Recordset.ActiveConnection.RollbackTrans
End If
End Sub
如果你使用之前的Form_Unload常式復原交易，你需要叫用控制項的Refresh方法以檢視記錄內上一個值。
說明
交易是一組相關的資料庫作業，這些作業在邏輯上視為單一個命令，整個作業一起成功或是失敗。例如，當你將錢由一個銀行帳戶搬移到另一個帳戶時，你應該將兩個作業包含在一個交易中，如此一來如果第二個作業失敗了，則第一個作業也會取消。當你確定交易後，你應該交付這項交易。當你要取消所有命令的效果時，你應該將它復原。
ADO Data控制項也有數個事件是向Recordset借用的，這些事件我留到第13章再敘述，在此我只說明3個事件：MoveComplete事件在新記錄成為目前記錄時會引發，你可以利用此事件來顯示無法由一個簡單繫結控制項擷取的資訊。例如，假設資料庫內有一個名為PictureFile的欄位包含一個BMP檔的路徑，你無法直接使用繫結控制項顯示此點陣圖，但你可以設定MoveComplete事件並手動將此圖片載入PictureBox控制項：
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum，_
ByVal pError As ADODB.Error，adStatus As ADODB.EventStatusEnum，_
ByVal pRecordset As ADODB.Recordset)
picPhoto.Picture = LoadPicture(Adodc1.Recordset("PictureFile"))
End Sub
WillChangeRecord在ADO Data控制項將資料寫入資料庫之前立即引發。這是最好的位置可以驗證繫結控制項內容並視需要取消作業：
Dim ValidationError As Boolean ? A form-level variable
Private Sub Adodc1_WillChangeRecord(ByVal adReason As _
ADODB.EventReasonEnum，ByVal cRecords As Long，adStatus As _
ADODB.EventStatusEnum，ByVal pRecordset As ADODB.Recordset)
? Check that fields are valid，cancel the update if not.
If txtProductName = i iP Or Not IsNumeric(txtUnitPrice) Then
MsgBox isPlease enter valid field valuesle，vbExclamation
ValidationError = True
adStatus = adStatusCancel
End If
End Sub
Error事件是唯一不從Recordset物件繼承的事件。當一個錯誤是發生在沒有Visual Basic程式碼可以執行時，ADO Data控制項便會引發此事件。通常這種情況會發生在使用者按下此控制項任何一個箭頭按鈕時並導致作業失敗(例如，當你嘗試更新由另一位使用者鎖定的記錄時)。當你取消WillChangeRecord事件的作業時也會引發此事件。依照預設，ADO Data控制項會顯示標準的錯誤訊息，但只要將fCancelDisplay參數設定為True便可以修改此標準行為。以下的程式碼可完成上一個執行欄位驗證的範例：
Private Sub Adodc1_Error(ByVal ErrorNumber As Long，Description As String，_
ByVal Scode As Long，ByVal Source As String，ByVal HelpFile As String，_
ByVal HelpContext As Long，fCancelDisplay As Boolean)
'Don't show validation errors (already processed elsewhere).
If ValidationError Then
fCancelDisplay = True
ValidationError = False
End If
End Sub
格式化資料
原始的Data和RemoteData控制項有一個很大的限制，那就是無法設定資料在螢幕上顯示的格式。例如，如果你要顯示一些千位數分隔符號，你必須撰寫程式碼。你也必須撰寫程式碼才能以顯示完整日期格式(例如 "October 17,1999")或是一些標準格式來顯示日期。所以如果即使這一種基本的作業都必須撰寫程式嗎，那麼使用繫結控制項就沒有意義了，不是嗎？
DataFormat屬性
ADO繫結機制能夠為所有的繫結控制項加入新的DataFormat屬性，而有效的解決上述的問題。如果你按一下 屬性 視窗中的Data-Format項目，則會顯示如圖8-15的屬性頁。在此你能夠選擇許多基本的格式類型(如數字、貨幣、和時間)，每一個都有許多格式選項(小數位數、千位數分隔符號、貨幣符號、日期/時間格式、等等)。
你也可以設定自訂的格式，使用與Format函數相同的語法指定格式字串(請參閱
第5章 )。但ADO Data控制項無法將使用複雜格式字串格式化的值加以解除格式，因此在資料庫中可能會儲存到錯誤的資料。使用StdDataFormat物件便可以忽略上述的問題，這一部份我會在下一段解釋。有一些控制項的DataFormat屬性可能正確運作。例如，使用DataCombo控制項的DataFormat屬性並不會影響此項目在清單部份的格式。DataGrid控制項有DataFormats集合，在集合中每一個項目都會影響格線欄位的格式。
| 圖8-15 DataFormat屬性頁 |
4
StdDataFormat物件
為了能夠使用StdDataFormat物件，你必須新增Microsoft Data Formatting Object Library的參照，你必須將對應的MSSTDFMT.DLL檔案發佈到所有的應用程式上。
這些物件的第一個用法是在執行階段設定繫結欄位的DataFormat屬性。例如，當你在執行期間使用控制項矩陣(請參閱 第3章 )建立控制項或是使用新的Visual Basic 6動態控制項建立功能(請參 第9章 )時，你必須這樣做。若要修改繫結控制項內資料被格式的方式，你可以建立一個新的StdDataFormat物件，設定屬性，再設定控制項的DataFormat屬性，程式碼如下：
Private Sub Form_Load()
'Create a new formatting object and assign it to a bound field.
Dim sdf As New StdDataFormat
sdf.Type = fmtCustom
sdf.Format = "mmm dd，yyyyl"﹐
Set txtShippedDate.DataFormat = sdf
'Force the Data control to correctly display the first record.
Adodc1.Recordset.Move 0
End Sub
StdDataFormat物件最重要的屬性是Type，此屬性有以下的值：0-fmtGeneral、1-fmtCustom、2-fmtPicture、3- fmtObject、4-fmtCheckbox、5-fmtBoolean或6-fmtBytes。如果你使用自訂的格式選項，你可以將Format屬性設定為格式字串，它的語法與VBA Format函數第2個參數的語法相同。
當由Boolean欄位擷取資料後，你通常會使用CheckBox控制項和frmCheckbox設定。但你可以使用Label或TextBox控制項解譯Boolean欄位的內容並顯示有意義的敘述。在此情況下，你必須將字串設定為FalseValue、TrueValue和(選擇性) NullValue屬性：
Private Sub Form_Load()
Dim sdf As New StdDataFormat
sdf.Type = frmBoolean
'Set meaningful strings for False，True，and Null values.
sdf.FalseValue = i In Productionla
sdf.TrueValue = i.Discontinuedla
sdf.NullValue = i.(unknown)ll
Set lblDiscontinued.DataFormat = sdf
'Force the Data control to correctly display the first record.
Adodc1.Recordset.Move 0
End Sub
因此，你應該只在Label、鎖定的TextBox、和ListBox控制項上使用此技術，因為使用者不能夠輸入下列三個屬性以外的字串：FalseValue、TrueValue、NullValue屬性。
StdDataFormat物件真正的力量是此物件提升事件的能力。你可以將StdDataFormat物件想像是位在資料來源和資料消費者之間。在此情況下，你將ADO Data控制項做為資料來源，將繫結控制項做為資料消費者，StdDataFormat物件可以在任何ADO繫結機制作用的期間使用。StdDataFormat物件可讓你主動地設定資料由資料來源搬移到資源消費者的時間和反向搬移的時間；你可以使用Format和Unformat事件來完成。
若要設定這些事件，你必須將StdDataFormat物件宣告為表單層級的變數，使用WithEvents關鍵字。Format事件會引發何時由資料庫讀取數值及在控制項中顯示此數值。如果使用者修改了這個數值，Unformat事件會引發何時ADO Data控制項將此數值儲存回資料庫。這兩個事件都會接收DataValue參數，此參數有以下兩個屬性：Value是被傳送的數值，TargetObject是繫結控制項-通常是資料消費者。一般而言，如果你手動格式化或未格式化這些事件內的值，你便不需要設定StdDataFormat物件任何其他的屬性。
圖8-16為一個簡單的程式(請參考本書所附的CD)，此程式會顯示NWind.mdb資料庫Orders資料表的資料。Freight數值可以使用美金或歐元表示，但資料只以美金格式儲存資料，因此你需要執行換算。程式碼如下：
'How many euros in one dollar?
'(Of course，in a real program this would be a variable.)
Const DOLLARS_TO_EURO = 1.1734
Dim WithEvents sdfFreight As StdDataFormat
Private Sub Form_Load()
Set sdfFreight = New StdDataFormat
Set txtFreight.DataFormat = sdfFreight
'Force the Data control to correctly display the first record.
Adodc1.Recordset.Move 0
End Sub
Private Sub sdfFreight_Format(ByVal DataValue As StdFormat.StdDataValue)
'Convert to euros if necessary.
If optFreight(1) Then
DataValue.Value = Round(DataValue.Value * DOLLARS_TO_EURO，2)
End If
End Sub
Private Sub sdfFreight_UnFormat(ByVal DataValue As StdFormat.StdDataValue)
'Convert back to dollars if necessary.
If optFreight(1) Then
DataValue.Value = Round(DataValue.Value / DOLLARS_TO_EURO，2)
End If
End Sub
Private Sub optFreight_Click(Index As Integer)
If Index = 0 Then
'Convert from euros to dollars.
txtFreight = Trim$(Round(CDbl(txtFreight) / DOLLARS_TO_EURO，2))
Else
'Convert from dollars to euros.
txtFreight = Trim$(Round(CDbl(txtFreight) * DOLLARS_TO_EURO，2))
End If
End Sub
| 圖8-16 使用StdDataForma物件讓顯示格式與存放在資料庫的值彼此獨立 |
你可以使用DataValue.TargetObject屬性影響繫結控制項的行為或外觀。例如，你可以讓Freight數值在高於30美金時以紅色顯示：
Private Sub sdfFreight_Format(ByVal DataValue As StdFormat.StdDataValue)
'Show the value in red ink if >30 dollars.
If DataValue.Value > 30 Then
DataValue.TargetObject.ForeColor = vbRed
Else
DataValue.TargetObject.ForeColor = vbBlack
End If
'Convert to euros if necessary.
If optFreight(1) Then
DataValue.Value = Round(DataValue.Value * DOLLARS_TO_EURO，2)
End If
End Sub
StdDataFormat物件有一個有趣的功能是你可以為多個控制項的DataFormat屬性指定相同的例項。當你要管理Format和Unformat事件時這個功能特別有用，所以你可以只使用一個切入點便能夠格式螢幕上多個欄位。你可以使用DataValue.TargetObject.Name屬性來發現哪一個繫結控制項正在要求格式化，程式碼如下：
Private Sub sdfGeneric_Format(ByVal DataValue As StdFormat.StdDataValue)
Select Case DataValue.TargetObject.Name
Case iatxtFreightle，"txtGrandTotal"
'These are currency fields.
DataValue.Value = FormatCurrency(DataValue.Value)
Case "ProductName"
'Display product names in uppercase characters.
DataValue.Value = UCase$(DataValue.Value)
End Select
End Sub
StdDataFormat物件的第3個事件，Changed，此事件會在任何一個物件屬性已經變更時引發。你通常可以重新整理欄位的內容來反應此事件，如下：
Private Sub sdfGeneric_Changed()
'This forces the ADO Data control to reread the current record.
Adodc1.Recordset.Move 0
End Sub
以下是StdDataFormat物件其他相關的資訊：
資料表單精靈
資料表單精靈是Visual Basic 6的增益集，它會自動建立一個有一組控制項的表單，這些控制項都已經與資料來源繫結。它也可以一般資料庫作業(例如新增或刪除記錄)的按鈕。Visual Basic 5也有資料表單精靈，但它已經被修改能使用ADO Data控制項。資料表單精靈也能夠不使用ADO Data控制項，只要將ADO Recordset做為資料來源即可，它甚至可以建立一個有特殊功用的資料來源類別模組。
資料表單精靈的使用是非常直接的，因此我不會詳細說明每一個步驟。圖8-17為中間的步驟，你要決定你要建立的表單類型及應該使用的繫結類型。你可以產生一組繫結控制項、一個DataGrid或Hierarchical FlexGrid控制項、主要/細節表單或MSChart。精靈在建立單一筆記錄和主要/細節表單時特別的有用。例如圖8-18中的表單在上半部顯示訂單，在下半部格線中顯示每一筆記錄的資訊。
| 圖8-17 資料表單精靈建立5種不同類型的繫結表單 |
你要選擇使用哪一個表單或是檢視做為記錄來源。你也要選擇在結果表單中應包括哪一些欄位及輸出是否要儲存指定欄位內。如果你要繫結主要/細節表單，你必須選擇兩個不同的記錄來源，一個是主要表單的，一個是細節表單的，而且你也要由每一個表單內選擇一個欄位來將兩個來源連結在一起。在 Control Selection 標籤頁中，你可以選擇在表單上要放置哪一些按鈕，如Add、Update、Delete、Refresh、和Close鈕。最後在精靈的最後一個步驟中，你可以將所有的設定儲存在RWP設定檔中，因此你便可以在日後回到這個精靈而又不用重新輸入所有的選項。
| 圖8-18 根據NWind.mdb資料庫的Orders和Order Details資料表所完成的主要/細節表單 |
如果只是為了美化的原因，你很有可能需要修正由資料表單精靈產生的表單或程式碼。但你可能要學習如何撰寫一個簡單執行的ADO程式碼，再瀏覽它的結果。或者你可以只使用精靈建立資料來源類別(資料來源類別將在 第18章 中說明)。
DATAENVIRONMENT設計工具
DataEnvironment設定工具是Visual Basic 6最有趣的新功能之一。簡言之，它是你在執行階段建立的ADO物件在設計階段的代表。此能力「非常」的有趣，因為它會將相同的程式類型與資料庫開發繫結；這是Visual Basic在數年前所的導入，並讓Windows的程式設計變得很簡單和快速。
當你使用表單設計工具時，你實際上是在設計階段中定義Visual Basic建執行階段所建立的表單和控制項。你可以以視覺的方式做決定，而不用擔心Visual Basic在程式執行時實際的作業。同樣的你可以使用DataEnvironment設計工具定義ADO Connections、Commands、和Recordset物件的行為。你可以在設計階段中按下F4鍵以開啟屬性視窗，並設定它們的屬性；或是使用自訂的屬性頁。
DataEnvironment設計工具是UserConnection設計工具(Visual Basic的第一個外部設計工具)的後代。UserConnection設計工具包含在Enterprise Edition of Visual Basic 5中，並排除使用RDO連線，因此只有一部份的Visual Basic開發者曾經使用過它或是知道它的存在。DataEnvironment設計工具比它的前輩更為強大。它能使用任何一種本機或遠端ADO連線，甚至支援多個連線。此外，它可以視為ADO資料來源，因此你可以將欄位與它繫結，我在稍後將會說明。
使用設計階段所定義的DataEnvironment物件而不使用程式碼所建立的ADO物件的另一個優點便是Data-Environment例項是可以包含其他的物件和程式碼來管理此物件。你可以將公用屬性和方法新增至DataEnvironment設計工具中，如此便可以大幅改善物件的重新使用性，就如同它們是專為資料庫使用的類別模組一般。我相信適當的使用DataEnviroment物件會革新資料庫應用程式建立的方式。
若要在目前的專案中新增DataEnvironment設計工具，請選擇 專案 功能表內的 新增Data Environment 命令。此命令只有在你已經將參照新增到Microsoft Data Environment Instance 1.0 library時才會顯示。你也可以由 資料檢視 視窗中建立DataEnvironment設計工具。最後，你可以由專案庫中建立新的Data Project。在此情況下，Visual Basic會為你建立所有必須的參照和DataEnvironment設計工具例項的專案。
Connection物件
DataEnviroment設計工具中主要的物件是Connection物件。它廣泛的對應到Form設計工具的表單物件，也就是最上層的物件。但與表單不同的地方是，DataEnvironment設計工具例項可以包含多個Connection物件。
建立Connection的方法有很多。當你建立DataEnvironment時，它已經包含了預設的Connection物件，所以你只需要建立它的屬性。若要設定屬性，你可以按F4顯示一般的 屬性 視窗，或者(最好是)在物件上按一下右鍵並選擇 屬性 以顯示它的自訂屬性頁(按一下DataEnviroment工具列上的 屬性視窗 鈕也可以得到同樣的效果)。我不會花任何一點時間說明Connection物件的屬性頁，因為你已經熟悉這些屬性頁了。 提供者、連線、進階、全部 資料頁與你在 資料檢視 視窗中設定資料連結的屬性或是在建立ADO Data控制項的ConnectionString屬性時所看到的屬性頁相同。
一般的[屬性]視窗內有一些屬性不出現在自訂屬性頁中。DesignUserName和DesignPassword屬性可讓你設定建立DataEnvironment物件時要使用的使用者名稱和密碼，RunUserName和RunPassword屬性可讓你設定程式執行時使用的使用者名稱和密碼。例如，你可能要使用Administrator識別值開發應用程式，再檢查當Guest使用者登入時應用程式在執行階段的行為方式。你可以決定當開啟連線時是否要看到命令提示字元，你也可以在設計階段和執行階段中使用不同的設定。DesignPromptBehavior和RunPromptBehavior屬性可以設定以下的值：1-adPromptAlways (永遠顯示登入對話方塊，允許使用者變更登入資料)，2-adPromptComplete (只有在一或多個必須參數遺失時才會顯示登入對話方塊)，3-adPromptCompleteRequired(如前一個值，但只允許使用者輸入必須參數)，和4-adPromptNever(永遠不顯示登入對話方塊，如果有一或個參數遺失，則會將錯誤回傳給應用程式)。你通常會將DesignPromptBehavior屬性設定為adPromptComplete，將RunPromptBehavior屬性設定為adPromptNever；後者可以避免居心不良的使用者登入其他的資料來源並隨機輸入使用者名稱和密碼，直到他們可以管理系統。最後，DesignSaveAuthentication和RunSaveAuthentication屬性會判斷先前所描述的登入資訊是否分別儲存到VBP或EXE檔內。在此提醒你一點：EXE檔內的使用者名稱和密碼並未加密，所以駭客可能會將它載入編輯器中或是以其他的方法剖析資料直到他們得到所要的資料為止。
Command物件
DataEnvironment設計工具的Command物件代表在資料庫上執行的動作。命令物件永遠是Connection物件的子項目，就像控制項永遠是表單的子項目一樣。更精確一點來說，你可以建立獨立的Command物件，但無法使用它，除非你讓它成為Connection物件的子項目。
建立Command物件
建立Command物件最簡單的方法便是由 資料檢視 視窗中將資料表、檢視或預存的程序拖曳到 DataEnvironment 視窗中。接著Visual Basic再建立與資料夾、檢視或預存的程序對應的Command物件，如有需要的話它也會建立父項Connection物件。Command物件只能是參照它所屬資料庫的Connection物件的子項目。你也可以建立多個對應到儲存在資料庫中程序的Command物件，只要按一下DataEnvironment工具列上的Insert Stored Procedures按鈕即可。我使用這個捷徑快速建立如圖8-19的Command物件。
Command物件有兩種：一個傳回Recordsets，另一個沒有。前者是SQL查詢、預存程序、或傳回Recordset的檢視(如果資料庫內沒有符合選擇準則的記錄，則可以是空白的)；後者是插入、刪除或修改資料庫內值的SQL命令或預存程序，但不會傳回記錄。例如，你可以建立名為AuthorsInCA的物件，讓此物件使用以下的SQL查詢傳回所有住在California的作者：
SELECT * FROM Authors WHERE State = 'CA'
| 圖8-19 你可以將資料表、檢視、和預存程序由資料檢視視窗拖曳至 DataEnvironment 設計工具中以建立Command物件，並以右鍵按一下物件以顯示自訂的屬性頁 |
和Connection物件不同，Command物件所有的屬性都可以在自訂的屬性頁中設定，你從不需要顯示一般的 屬性 視窗。在 一般 標籤頁中，你可以選擇Command對應的資料庫物件－資料表、檢視、預存程序－或者輸入查詢的SQL文字(你也可以執行SQL Query Builder以建立互動式的查詢)。
如果你有一個一般的非參數、無階層架構的命令，你便可以直到到[進階]屬性頁，如圖8-20。在你可以決定游標的類型和位置、實行鎖定的類型、本機快取的大小(也就是由伺服器讀取記錄的數目)、命令的逾時值、查詢應傳回記錄的最大數。你可以使用最後一個值避免傳回數千筆記錄的查詢。如果你不了解大部份選項的意義時，不必擔心；它們會直接對應到ADO Recordset和Command物件的屬性，在你讀完 第13 和 14章 便會了解它們的功能。
| 圖8-20 Command屬性頁的[進階]標籤頁 |
此標籤頁內唯一不與ADO直接相關的屬性是Recordset Returning核取方塊。大部份的時候，DataEnvironment設計工具能夠判斷你是否已新增Recordset傳回命令或是非Recordset傳回命令；但如果它做了錯誤的假設，你可以使用此核取方塊來修正。
參數型命令
使用參數可以讓Command物件增加很多彈性。你可以建立兩種參數型Command物件：第一種是根據SQL查詢，第二種是根據與參數存放的程序。使用第一種參數型命令時，你必須輸入參數型的SQL查詢，使用問號做為參數的配置處。例如你可以使用以下的查詢建立名為AuthorsByState的Command物件：
SELECT * FROM Authors WHERE State = ?
當你在 屬性 對話方塊的 一般 標籤頁中輸入此查詢後，切換到 參數 標籤頁並檢查DataEnvironment是否已經決定將查詢內含在參數中。在此標籤頁內，你可以為每一個參數設定名稱，設定它的資料屬性和大小等。在此類查詢中所有的參數都是輸出參數。
若要建立對應到預存程序的Command物件，你可以按一下 Insert Stored Procedure 鈕並選擇你要插入的預存程序。DataEnvironment通常能夠擷取預存程序的語法並正確的擴展Command的Parameters集合。你應該注意參數的方向，因為有時候DataEnvironment並不會正確的識別出輸入參數，你必須手動修復它的Direction屬性。此外，雙重檢查所有為非零值的string參數。
DataEnvironment設計工具的資料繫結
DataEnvironment設計工具可以做為ADO資料來源，因此在執行階段中它們會出現在 屬性 視窗的DataSource組合方塊內。當你將一個控制項與DataEnvironment設計工具繫結時，你也必須將資料感知控制項的DataMember屬性設定為你要繫結的Command物件的名稱。只有記錄集-傳回的Command物件可以做為資料來源。
欄位和格線
你不需要在表單上手動建立控制項並將這些控制項與Data-Environment物件繫結，因為Visual Basic 6允許你以拖曳的方法執行每一個動作。若要了解使用此功能有多麼的簡單，則要開啟一個新的表單，在 DataEnvironment 視窗中按一下Command物件，再將它設置到表單上。你馬上會看到表單上會有許多TextBox控制項和CheckBox控制項(可能)，一個控制項代表Command物件內每一個欄位，如圖8-21。你可以按F5來檢查資料的繫結機制是否正確運作。
| 圖8-21 將Command物件拖曳至表單所建立的一組繫結控制項 |
因為在表單上並沒有Data控制項，你必須提供一個巡覽的按鈕。方法非常的簡單：只要建立兩個CommandButton控制項，分別命名為cmdPrevious和cmdNext，再加入以下的程式碼：
Private Sub cmdNext_Click()
DataEnvironment1.rsAuthors.MoveNext
End Sub
Private Sub cmdPrevious_Click()
DataEnvironment1.rsAuthors.MovePrevious
End Sub
由於DataEnvironment是在執行階段中建立，對於每一個記錄集-傳回Command物件而言，Recordset的名稱是rs之後的Command名稱。使用相同的方法，你可以加入刪除和插入記錄、尋找值的按鈕等。如需ADO Recordset物件所有的屬性、方法和事件，請參閱 第13 和 14章 。
你不限於只能建立簡單的控制項，你甚至可以使用繫結格線以顯示記錄的表格檢視。如果你要使用繫結格線，你必須以滑鼠右鍵來開啟拖放的作業，當游標出現在表單之上時放開滑鼠，再由快速功能表中選擇 資料格線 選項。圖8-22的簡單程式示範如何使用參數型AuthorsByState命令顯示格線內所有記錄的子集。這是在 Filter 按鈕之後的程式碼：
Private Sub cmdFilter_Click()
'Run the query，passing the expected ixStatel parameter.
DataEnvironment1.AuthorsByState txtState
'Ensure that the grid is bound to the DataEnvironment.
Set DataGrid1.DataSource = DataEnvironment1
DataGrid1.DataMember = "AuthorsByState"
End Sub
或者你可以直接將格線與由參數型查詢所產生的Recordset繫結在一起：
Set DataGrid1.DataSource = DataEnvironment1.rsAuthorsByState
| 圖8-22 此簡單的應用程式顯示Authors資料表的記錄檢視和資料表檢視，它會讓你篩選State欄位的記錄 |
選擇欄位類型
當你將Command物件(或一個資料庫欄位)設置在表單上時，依照預設DataEnvironment設計工具會建立所有類型欄位的TextBox控制項，除了Boolean欄位的CheckBox控制項。你可以依照以下的方法變更此預設行為：
| 圖8-23 選項對話方塊的資料欄對應關係標籤頁可以讓你選擇當你在表單拖放欄位時要建立哪一種控制項. |
階層型命令
DataEnvironment設計工具提供ADO在設計階段中最強大的功能之一，也就是建立階層Recordsets的命令。階層Recordset包含一組記錄，這些記錄可包含其他的子Recordsets。有一個實際的例子可以說明為何這是一件好事：我們假設你要由Biblio.mdb資料庫中建立作者的清單，每一個作者你都要顯示他所寫的書的清單。你可以執行SQL JOIN查詢以擷取此資訊；或者你可以手動的方式來擴充顯示此主要/細節關係的表單，方法是每次使用者由Authors主資料表內移到新的記錄時，則執行Title Author資料表和Titles資料表的SQL SELECT查詢。但筆者對這兩個方法都不甚滿意，尤其是現在你可以使用階層型Recordset時。現在讓我向你介紹它的運作方式。
關係階層
在DataEnvironment設計工具中建立階層型Recordsets的方法有很多。第一個方法需要你顯示與此關係內的主資料表對應的Command物件的 Relation 屬性頁。若要了解這些技術的運作方式，在[資料檢視]視窗中開啟與Biblio.mdb資料庫的連線，再將Authors and Title Author資料表拖曳到DataEnvironment視窗中。若要讓後者Command成為前者的子項目，則顯示Title_Author物件的屬性頁並切換到[Relation]標籤頁(如圖8-24)。
按一下 Relate To a Parent Command Objec t核取方塊以啟用此屬性頁上的控制項，再選擇組合方塊的Command(本例中是Authors)父項目。在 Relation Definition 框架中，選擇兩個Command物件相關的欄位。此欄位是父Command的主要索引鍵和子Command的外部索引鍵。在這個範例中，這兩個欄位在這兩個資料表中擁有相同的名稱，但這種情況並不常見。若要完成我們的範例，確定Au_ID項目在兩個組合方塊中都被反白選擇，按一下 新增 鈕以加入欄位清單中，再按一下 確定 以確認動作。你會注意到Title_Author Command已經成為Author Command的子項目，與較後者的欄位位於同一層級中。事實上，當DataEnvironment設計工具在執行階段中建立此階層型的Recordset時，它的第4個欄位會真正的包含子Recordset。
| 圖8-24 屬性對話方塊的 Relation 標籤頁 |
若要改善範例程式，我們需要建立Titles Command並讓它成為Title_Author物件的子項目。在此我們使用另一種不同的方法：以右鍵按一下Title_Author Command，選擇[Add Child Command]物件。如此會建立一個名為Command1的物件。將此物件重新命名為Titles，開啟它的屬性頁，指定此物件由Biblio.mdb資料庫的Authors資料表中擷取記錄，再切換到[Relation]標籤頁以完成關係。Title_Author和Titles Com-mands與它們的ISBN欄位相關，因此你要按一下[新增]鈕並關閉對話方塊。你已經完成3層階層型Recordset的建立。
若要測試這個新的物件，建立新的表單，使用滑鼠右鍵將Authors Command拖曳至表單上，並選擇功能表上的[Hierarchical Flex Grid]。如此可以在表單上建立Microsoft Hierarchical FlexGrid控制項的例項，你需要讓一些欄位看不見，因此你應該以右鍵按一下格線，選擇 Retrieve Structure ，再次以右鍵按一下以顯示[屬性]對話方塊，並切換到 Bands 標籤頁。在此標籤頁上，你可以定義在此關係中的3個Recordsets可以顯示哪一些欄位。在 Band 0 (Authors) 中，清除Au_ID核取方塊；在 Band 1 (Title_Author) 中，清除ISBN和Au_ID核取方塊(如此會讓Band看不見)；在 Band 2 (Titles) 中，清除Pub_ID、Description、Notes、和Comments核取方塊。你現在可以執行應用程式，結果應該如圖8-25。注意你可以使用靠近格線左邊界的加和減的符號以展開和摺疊每一行。
你可以為此範例新增另一層的階層，此階層顯示每一本書的出版商資訊；新增層級的方法是將Publishers資料表由 資料檢視 視窗拖曳至Data-Environment設計工具中，讓它成為Titles Command的子Comman。這一部份就留待你自己練習。
| 圖8-25 Hierarchical FlexGrid控制項顯示階層型的Recordsets，並讓你展開和摺疊父Recordset個別的資料行 |
群組階層
DataEnvironment設計工具支援兩種的階層類型：Grouping和Aggregate階層。群組階層在概念上很簡單：你建立一個Command物件並建立一個父Command，讓此父項目能依據多個欄位群組原始Command的記錄。若要想要實際了解它的意義，將Titles資料表拖放至DataEnvironment視窗中，開啟它的 Grouping 屬性頁，選擇 Group Command Object 核取方塊以啟用此標籤頁上的控制項，將 Year Published 欄位由左清單方塊搬移到右清單方塊中，再將對話方塊關閉以確認你的變更。你會看到Data-Environment設計工具現在在主Connection之下裝載了一個新的Command物件，名稱為Titles1_grouped_using_Title1_Grouping，在它的下方有兩個資料夾。一個資料夾內包含Year Published欄位(摘要欄位)，另一個資料夾包含原始Titles1 Command的欄位。如果你要將Hierarchical FlexGrid控制項與新的父Command繫結，你會看到最左方的欄位內顯示不同的年份，而其他的欄位內包含該年出書的出版商資訊。
彙總階層
彙總欄位是計算欄位，它會計算Recordset所有資料行指定欄位的運算式(計數、總和、平均等)。當你已經有群組階層時，你通常會新增一個彙總欄位。就我們的範例而言，我們新增一個TitleCount欄位報告每一年出版書的數量。在較複雜的範例中，你可能會將所有的訂單依月份群組，並加上數個彙總欄位來報告訂單的計數、訂單的總計、平均等。
你可以在 屬性 對話盒內的 Aggregates 標籤頁中定義彙總欄位。按一下 新增 鈕以建立新的彙總欄位，為此欄位設定一個有意義的名稱，由以下的函數中選擇一個：COUNT、SUM、AVERAGE、MINIMUM、MAXIMUM、STANDARD DEVIATION、或ANY(ANY會傳回被選擇記錄中所有欄位共同的值)。 Aggregate On 組合方塊可以決定哪一個欄位由彙總欄位來計算，並成為：Grouping、Grand Total、或子Command的名稱(組合方塊實際的內容取決於目前Command的類型)。如果你選擇Grand Total，你可以輸入總計欄位的名稱。在此情況下，在主Command之下會建立新的資料夾，它會聚集在Command內所有的總計欄位(如圖8-26)。
| 圖8-26 使用三種階層類型的Command物件 |
SQL語言
如果你要使用資料庫，你必須學會它的語言。資料庫使用的是Structured Query Language語言，也就是SQL，在1970年代由E. F. Codd發明。SQL並不是一次只操作資料表中的一筆記錄，而是將一組記錄視為同一個例項來管理，使SQL更適於建立任何複雜的查詢。此語言已經被標準化，現在大部份的資料庫伺服器(和ADO本身)都接受ANSI-92。SQL將兩種不同的敘述：資料定義語言(Data Definition Language，DDL)和資料操作語言(Data Manipulation Language，DML)。DDL字集包括了一組敘述，此敘述可讓你建立資料結構，如資料表、欄位等。DML子集包括所有允許你查詢和修改資料庫、新增新的記錄、或刪除現有記錄的命令。
有數不盡的書曾寫到有關SQL的部分，所以會盡可能的寫出來有關SQL新的功能。但是我寫這個章節只是讓從未使用過資料庫的您去了解SQL查詢，如果您已經精通SQL您可以不用遲疑的跳到下一章。
本章節大多的範例都使用Biblio.mdb或NWind.mdb資料庫，在光碟片中，您將可發現一個範例應用程式（如圖8-27）這個範例可以讓您練習SQL及馬上看到您查詢的結果，您可以用「<」「>」按鈕來重複使用上個查詢，您也可以發現您可以安全的執行查詢如delete、insert或是修改紀錄，因為您的動作全部會被放到交易記錄中，您可以關閉這個表單而這些交易記錄都會被倒回而不會破壞原來的資料庫。
| 圖8-27 SQL Training範例程式 |
SELECT命令
最常使用SQL敘述句無疑的就是SELECT命令，它可以回傳一組選取的記錄。
基本選取
簡單的SELECT命令從資料庫回傳表單中所有的記錄和所有的欄位：
SELECT * FROM Publishers
（在這個章節中所有的範例，SQL的指令都使用大寫表示，但是如果您喜歡您可以用小寫）您可以用指定欄位的方法查詢您所要看的欄位，如果欄位名字中包含空白或是其他的符號，就必須用「[]」括起來。
SELECT PubID, [Company Name], Address FROM Publishers
您可以只查詢您的應用程式要用的欄位來提昇查詢的速度，SQL在SELECT欄位的部分支援簡單的運算，例如：從西元出生年算出每個作者的年齡。
SELECT Author, 2000-[Year Born] AS Age FROM Authors
請注意AS子句讓您賦予一個容易稱呼的名字給計算欄位。您也可以用集合函數如：COUNT、MIN、MAX、SUM和AVG就像這個範例一樣：
SELECT COUNT(*) AS AuthorCnt, AVG(2000-[Year Born]) AS AvgAge FROM Authors
這句敘述會傳回僅有兩個欄位的一筆資料：AuthorCnt是資料表的記錄序號，
AvgAge是在公元兩千年所有作家的平均年齡。
集合函數一般而言只考慮資料庫中非Null的值，例如，您可以試著將作者中有出生年資料的人數算出....
SELECT COUNT([Year Born]) FROM Authors
Count(*)語法是一個一般規則的運算式，它會傳回一個所有筆數的總數量。在真實的應用程式中，您很少會取回資料表中所有的資料，主要的理由是：如果資料表中包含著上千筆的資料錄，那就會佔用太多的網路資源，您可以用WHERE子句來篩選部分的資料。例如，取回所有在California的出版商
SELECT Name, City FROM Publishers WHERE State = 'CA'
我們還可以用結合布林運算AND和OR條件句就像是下列的查詢，下個句子回傳了在California名字為M開頭的出版商：
SELECT * FROM Publishers WHERE State = 'CA' AND Name LIKE 'M%'
在WHERE子句中，您可以用所有的比較運算子（=、<、<=、>、>=、和<>）和LIKE、BETWEEN及IN運算子。BETWEEN運算子經常用在選出在一個範圍中的所有值：
SELECT * FROM Titles WHERE [Year Published] BETWEEN 1996 AND 1998
IN運算子在您找出一些值的清單中是相當有用的。下列的例子傳回所有位於California、Texas、New Jersey的出版商。
SELECT Name, State FROM Publishers WHERE State IN ('CA', 'TX', 'NJ')
SQL讓您使用單引號或雙引號表示字串，因為您經常會傳這些句子當作Visual Basic字串，所以大多數的時候用兩個對稱的單引號來表示一個字串，例如，搜尋作者名字為「O'Hara」，您必須用下列的查詢：
SELECT * FROM Authors WHERE Author = 'O''Hara'
排序及群組
ORDER BY子句讓您對回傳的資料作排序的欄位。您可以顯示資料按照出版商的字母排列：
SELECT * FROM Publishers ORDER BY [Company Name]
您也可以用逗號指定多個排序的鍵值欄位，每個排序鍵值可以用DESC關鍵字作降冪排序。例如，您可以列出出版商用state作升冪排序同時列出所有在同一個州的按照city作降冪排序，如同下面的句子。（一般來說這範例是沒有什麼用的， 只是用來做範例罷了）。
SELECT * FROM Publishers ORDER BY State, City DESC
當回傳的資料排序後，您可以用SELECT的TOP子句取回前幾個排序的記錄，例如：用下面的查詢取回前5筆記錄：
SELECT TOP 5 * FROM Titles ORDER BY [Year Published] DESC
請記住TOP子句會按照您給的值傳回排序後的資料數量，例如：我們可以用TOP PERCENT定義總回傳數量的百分比：
SELECT TOP 10 PERCENT * FROM Titles ORDER BY [Year Published] DESC
GROUP BY子句讓我們建立包含了資料記錄的群組中的摘要紀錄，例如：您可以作一個各年發行書的數量：
SELECT [Year Published], COUNT(*) As TitlesInYear FROM Titles
GROUP BY [Year Published]
下一個查詢可以顯示在最近十年各年發行書的數量：
SELECT TOP 10 [Year Published], COUNT(*) As TitlesInYear FROM Titles
GROUP BY [Year Published] ORDER BY [Year Published] DESC
我們可以用HAVING來優雅的使用GROUP，這個子句類似WHERE，但是它用在GROUP BY句子之後。下個查詢類似上個例子，但是只回傳出版超過50本的書商：
SELECT [Year Published], COUNT(*) As TitlesInYear FROM Titles
GROUP BY [Year Published] HAVING COUNT(*) > 50
您可以在同一個查詢中同時使用WHERE和HAVING子句，同時使用時，SQL用WHERE子句先過濾原始的資料表再用GROUP BY子句建立群組最後再用HAVING子句過濾不符合群組資料記錄。
下面的句子傳回所有出版商的城市：
SELECT City FROM Publishers
上面這個查詢傳回City欄位其中有些欄位是Null，這將會產生一些問題。附加一點如果有兩個出版商在同一個城市時它將傳回超過一個城市，我們可以先使用ISNULL函數解決第一個問題，然後用關鍵字DISTINCT去掉重複的城市。
SELECT DISTINCT City FROM Publishers WHERE NOT ISNULL(City)
子查詢
在我給大家看的的範例中，都只有取回一個資料表的資料，但在大部分的時候，您也會對多個資料表的資料有興趣。例如：要列出書名和出版商時您就必須同時存取Titles和Publishers這兩個資料表，只要簡單的在FROM子句中指定這兩個資料表的名字，然後設定一適合的WHERE子句就可以了。
SELECT Titles.Title, Publishers.Name FROM Titles, Publishers
WHERE Titles.PubID = Publishers.PubID
當兩資料表欄位有相同名稱時，必須使用tablename.fieldname語法避免模稜兩可，這裡有另一個範例，從指定的出版商中找出所有的書名，您必須在FROM子句中指定兩個表格，即使您只從Titles資料表中去得到資料：
SELECT Titles.* FROM Titles, Publishers WHERE Publishers.Name = 'MACMILLAN'
您也可以用另一種方法更有效的取得相同的資訊，按照實際的情況用SELECT句子的「=」運算子傳回一個值給左方的句子，這個查詢用一個巢狀的SELECT查詢取得給予的出版商所出版的書名：
SELECT * FROM Titles WHERE PubID =
(SELECT PubID FROM Publishers WHERE Name = 'MACMILLAN')
如果您不確定子查詢傳回的是否僅為一個記錄，可以使用IN運算子代替等號， 您可以按照您所需要的把子查詢變的複雜一點，例如：從California、Texas和New Jersey的出版商列出他們出版的書的資料：
SELECT * FROM Titles WHERE PubId IN
(SELECT PubID FROM Publishers WHERE State IN ('CA', 'TX', 'NJ'))
您也可以用總和函數，如SUM或AVG，下一個查詢中會傳回Nwind.mdb資料庫中所有Orders資料表中大於運費平均值的運費：
SELECT * FROM Orders WHERE Freight > (SELECT AVG(Freight) FROM Orders)
Joins
join運算子經常用在想要透過兩個相關聯資料表中共通的欄位取得資料，在觀念上就好像是由join集合第一個資料表中一些或所有欄位跟隨第二個資料表中一些或所有的欄位，組成為一個新的資料表；在一個JOIN命令中運算式ON子句決定哪一個第二資料欄將需要和第一個資料表的資料符合。例如：下面的查詢傳回所有書名及出版商名字的資訊：
SELECT Titles.Title, Titles.[Year Published], Publishers.Name FROM Titles
INNER JOIN Publishers ON Titles.PubID = Publishers.PubID
有一個重要的細節：上個句子中只擷取書名的出版商，也就是說PubID欄位不是Null，INNER JOIN（就像是equi-join）是最常用的join運算子，SQL也支援兩個其他不同種類的joins，LEFT JOIN和RIGHT JOIN運算子。LEFT JOIN運算子取回所有在第一個資料表的所有資料，不管是否有對應的資料在其他的資料表中。例如，下面的命令取回所有的書名即使不知道出版商是誰：
SELECT Titles.Title, Titles.[Year Published], Publishers.Name FROM Titles
LEFT JOIN Publishers ON Titles.PubID = Publishers.PubID
RIGHT JOIN運算子取回所有在第二個資料表中的資料，甚至和第一個資料表沒有相關的資料，下面的範例列出所有的出版商，不管它是不是有出版任何的書：
SELECT Titles.Title, Titles.[Year Published], Publishers.Name FROM Titles
RIGHT JOIN Publishers ON Titles.PubID = Publishers.PubID
Join運算子可以巢狀化，這裡有一個範例取回所有作者和他們寫的書的資訊，兩個資料表透過中介的TitleAuthor資料表相關連，所以我們需要一個巢狀的INNER JOIN運算子：
SELECT Author, Title, [Year Published] FROM Authors INNER JOIN
([Title Author] INNER JOIN Titles ON [Title Author].ISBN = Titles.ISBN)
ON Authors.Au_Id = [Title Author].Au_ID
當然，您可以用WHERE在巢狀和外圈的JOIN過濾資料，例如：您可以取得1960年之前出版的書：
SELECT Author, Title, [Year Published] FROM Authors INNER JOIN
([Title Author] LEFT JOIN Titles ON [Title Author].ISBN = Titles.ISBN)
ON Authors.Au_Id = [Title Author].Au_ID WHERE [Year Published] < 1960
Unions
您可以使用UNION關鍵字加上一個SELECT命令以取得一個結果，也就是說您想問候您的客戶和供應商聖誕節快樂，您可以取得他們的名字和地址就像下面一樣：
SELECT Name, Address, City FROM Customers
UNION SELECT CompanyName, Address, City FROM Suppliers
這兩個資料表可以有不同的資料表結構，提供欄位給SELECT相同的資料型態。
INSERT INTO命令
INSERT INTO命令就是加入一筆記錄到資料表，您必須提供欄位名稱和值。
INSERT INTO Authors (Author, [Year Born]) VALUES ('Frank Whale', 1960)
如果資料表中有由資料庫引擎自動產生的「關鍵欄位」（key field）－就像是在Authors資料表中的Au_Id欄位，您就不要在命令中加入這個欄位，Null值是在您新增省略欄位時資料庫引擎又不自動產生該欄位的值時所自動帶進去的值。如果您想新增的資料已經存在另一個資料表中了，您可以加入SELECT命令到INSERT INTO句子中，例如：下面的命令是CopyNewAuthors資料表所有的資料到Authors資料表：
INSERT INTO Authors SELECT * FROM NewAuthors
您經常會需要用到WHERE子句限制要新增的資料，您可以從資料表copy不同的資料庫結構或是不同的欄位名稱，但是您需要用別名讓欄位名稱相符。下面的句子從Contact資料表copy到Customer資料表但是要更改欄位名稱：
INSERT INTO Customers SELECT ContactName AS Name, Address, City, State
FROM Contacts WHERE Successful = True
UPDATE命令
UPDATE命令是用來修改一筆或多筆資料，您會常常使用WHERE子句來對您要修改的資料作修改：
UPDATE Authors SET [Year Born] = 1961 WHERE Author = 'Frank Whale'
您也可以用SET子句來使用運算式，例如：下面的句子增加在Order Details資料表中所有項目的曾被LILAS訂購的折扣。（在NWind.mdb資料庫下執行）
UPDATE [Order Details] INNER JOIN Orders
ON [Order Details].OrderID = Orders.OrderID
SET Discount = Discount + 0.10 WHERE CustomerID = 'LILAS'
DELETE命令
DELETE命令讓您可以從資料表中刪除一筆或是多筆的資料，您必須加入WHERE子句來指定在資料表中要刪除的資料。例如，下面的命令刪除所有出版日期在1950年之前的書：
DELETE FROM Titles WHERE [Year Published] < 1950
如果在兩個資料表之間有使用關聯的話，一個DELETE操作可以觸發其他資料表的刪除作業，例如，您可以刪除在Nwind.mdb中的Orders資料表的一筆資料，而Jet引擎會自動的刪除所有在Order Details資料表中有關聯的資料。一般來說，無論如何，您不能刪除一筆有被其他資料表參照的鍵值中的資料，也就是不能刪除Employees資料表中的資料除非您先刪除在Orders資料表中的EmployeeID的記錄值是指向您想刪除的記錄。您可以使用一個INNER JOIN子句加到DELETE命令中。請牢記，當同時使用多個資料表時會變得很複雜，您必須在DELETE命令之後詳述您想刪除的記錄是哪一個：
DELETE Orders.* FROM Orders INNER JOIN Employees ON Orders.EmployeeID = Employees.EmployeeID WHERE Employees.LastName = 'King'
做完後您就可以刪除在Employees資料表中的該筆資料了：
DELETE FROM Employees WHERE Employees.LastName = 'King'
這一章結束了這本書的第一部份，其中包含了在您鑽研更複雜的程式開發撰寫時所需的所有基本概念，我們將在
第13章 來講資料庫程式撰寫的部分，到時再看看如何得到使用跟隨著Visual Basic所附的ActiveX控制項的利益。