Microsoft SQL Server與ORACAL、Sybase都是當(dāng)前比較流行的數(shù)據(jù)庫管理系統(tǒng)（RDMS)，隨著SQL Server的不斷完善與發(fā)展，以及與網(wǎng)絡(luò)操作系統(tǒng)Windows NT的完美結(jié)合，它為分布式客戶服務(wù)器結(jié)構(gòu)程序設(shè)計(jì)提供了良好的開發(fā)環(huán)境，也因此越來越受到人們的重視。

Microsoft SQL Server是一個(gè)可縮放、高性能的數(shù)據(jù)庫管理系統(tǒng)，它提供了與Windows NT線程和調(diào)度服務(wù)、性能監(jiān)視器和事件瀏覽器的集成，基于Windows管理界面并提供對多個(gè)服務(wù)器上的遠(yuǎn)程數(shù)據(jù)復(fù)制管理、服務(wù)器管理、診斷和調(diào)整的可視化拖放控制。

分布式管理對象（DMO）為SQL Server引擎和服務(wù)提供了一個(gè)對象接口。SQL-DMO是為Windows 95與 Windows NT操作系統(tǒng)提供的32位OLE自動(dòng)化對象，OLE是維護(hù)應(yīng)用程序共享對象的標(biāo)準(zhǔn)和方法，是一種允許應(yīng)用程序?yàn)檫M(jìn)行管理或數(shù)據(jù)訪問共享對象的編程方法。DMO是利用OLE結(jié)構(gòu)開發(fā)的，它為與OLE兼容的應(yīng)用程序提供了通向所有SQL Server管理功能的接口，DMO使軟件開發(fā)者直接訪問SQL Server數(shù)據(jù)對象變成可能。我們利用Visual Basic與Visual FoxPro等編程工具就可以使用分布式管理對象實(shí)現(xiàn)對SQL Server的直接訪問。

Microsoft SQL Server所提供的工具使客戶端能通過多種方法訪問服務(wù)器上的數(shù)據(jù)，這些工具的核心部分即是Transact-SQL(事務(wù)SQL)代碼。Transact-SQL是結(jié)構(gòu)化查詢語言( SQL)的增強(qiáng)版本，它提供了許多附加的功能和函數(shù)。利用Transact-SQL，你可以創(chuàng)建數(shù)據(jù)庫設(shè)備、數(shù)據(jù)庫和其它數(shù)據(jù)對象、從數(shù)據(jù)庫中提取數(shù)據(jù)、修改數(shù)據(jù)，也可以動(dòng)態(tài)地改變SQL Server中的設(shè)置。因此，使用Transact-SQL大大地提高了應(yīng)用程序的實(shí)用性。

當(dāng)我們進(jìn)行Client/Server結(jié)構(gòu)項(xiàng)目開發(fā)時(shí)需要建立若干個(gè)數(shù)據(jù)對象的結(jié)構(gòu)，如果所開發(fā)的項(xiàng)目是面向某個(gè)具體的客戶時(shí)，在Server上手工建立數(shù)據(jù)庫設(shè)備、數(shù)據(jù)庫與表是可行的，但是如果所開發(fā)的項(xiàng)目是作為軟件發(fā)行而非面向某個(gè)具體的客戶時(shí)，無疑，手工建立數(shù)據(jù)對象的結(jié)構(gòu)是不現(xiàn)實(shí)的，我們需要將創(chuàng)建數(shù)據(jù)庫與表的過程固化在程序中，當(dāng)程序運(yùn)行時(shí)動(dòng)態(tài)地在Server上建庫與表。因此，利用分布式管理對象與Transact-SQL是進(jìn)行Client/Server結(jié)構(gòu)程序設(shè)計(jì)的重要手段。

下面將討論如何在Visual Basic 5.0中利用DMO與Transact-SQL在SQL Server上建立數(shù)據(jù)庫設(shè)備、數(shù)據(jù)庫及其他數(shù)據(jù)對象。我們從具體問題著手：在SQL Server上建立200M與400M的數(shù)據(jù)庫設(shè)備Device_1、Device_2，在Device_1與Device_2上分別建立容量為100M的兩個(gè)數(shù)據(jù)庫Db1與DB2，在Db1庫中建立表T_1，有四個(gè)域：Name，Age，Sex，ID_Code，以ID_Code為關(guān)鍵字，以Name為索引，在Db2庫中建立表T_2，有五個(gè)域：Name、Age、Sex、Department、No，以Department與No為關(guān)鍵字。

訪問SQL Server，首先要打開SQL Service Manager，SQL Service Manager 用于啟動(dòng)、暫停、繼續(xù)、停止SQL Server的服務(wù)，包括MSSQLServer與SQLExecutive兩項(xiàng)。可以通過手工方式打開這兩項(xiàng)服務(wù)，也可以在程序中通過行命令式打開它們。

若采用手工方式，則打開SQL Service Manager，對于其中的服務(wù)MSSQLServer與SQLExecutive，直接啟動(dòng)它們的Start/Continue綠燈即可。

采用行命令啟動(dòng)方式，可利用VB的Shell命令：

X=shell('Sqlmgr.exe',1) 顯示SQL Service Manager窗口； X=shell('net start mssqlserver') 啟動(dòng)MSSQLServer服務(wù) X=shell('net start sqlexecutive') 啟動(dòng)SQLExecutive服務(wù)

因?yàn)樵谶@里我們希望通過編程在SQL Server上實(shí)現(xiàn)數(shù)據(jù)對象結(jié)構(gòu)的動(dòng)態(tài)建立，因此建議使用行命令方式。

啟動(dòng)了SQL Server Manager后，我們就可以利用DMO與Transact-SQL按以下步驟來建數(shù)據(jù)對象了。

1.為能使用DMO，首先需要打開VB工具欄中Reference(引用)，選擇Microsoft Windows Common Control 5.0，如果在引用欄中沒有發(fā)現(xiàn)此項(xiàng)，則選擇Browse（瀏覽），將WINNTSystem32目錄下的Comctl32.oca加入到Reference中來。

2.在模塊文件（.BAS)中建立SQLOLE對象： Global OServer as New SQLOLE.SQLServer

3.建立與SQL Server的連接： OServer.Connect ServerName:=注冊的SQL Server名，Login:=登錄名(一般為sa)，Password：=密碼

4.建數(shù)據(jù)庫設(shè)備Device_1與Device_2： dim transql as string transql='use master' & _ 'DISK INIT' & _ 'Name='Device_1',' & _ 'Physname='D:SQLdatadevice1.dat',' & _ 'vdevno=10,' & _ 'size=102400' & _ 'DISK INIT' & _ 'Name='Device2',' & _ 'Physname='D:SQLdatadevice2.dat',' & _ 'vdevno=11,' & _ 'size=204800' OServer.ExecuteImmediate Command:=transql,exectype:=SQLOLEExec_Default

5.建數(shù)據(jù)庫Db_1與Db_2： transql = 'CREATE DATABASE Db_1 ON Device_1=100 ' OServer.ExecuteImmediate Command:=transql, exectype:=SQLOLEExec_Default transql = 'CREATE DATABASE Db_2 ON Device_2=100 ' OServer.ExecuteImmediate Command:=transql, exectype:=SQLOLEExec_Default

6.在數(shù)據(jù)庫中建表: 在數(shù)據(jù)庫Db_1上建表T_1: transql = 'use Db_1 ' & _ 'create table T_1 ' & _ '(Name char(8) null, ' & _ ' Age numeric(2) null, ' & _ ' Sex smallint null, ' & _ ' ID_Code char(16) not null, ' & _ ' constraint c_1 primary key clustered (ID_Code))' OServer.ExecuteImmediate Command:=transql,exectype:=SQLOLEExec_Default 建表T_1的Name列的索引： transql='CREATE INDEX index_1 ON T_1 (Name)' OServer.ExecuteImmediate Command:=transql,exectype:=SQLOLEExec_Default 在數(shù)據(jù)庫Db_2上建表T_2: transql = 'use Db_2 ' & _ 'create table T_2 ' & _ '(Name char(8) null, ' & _ ' Age numeric(2) null, ' & _ ' Sex smallint null, ' & _ ' Department char(16) not nill, ' & _ ' No char(4) not null,' & _ 'constraint c_2 primary key clustered (Department,No))' OServer.ExecuteImmediate Command:=transql, exectype:=SQLOLEExec_Default

此時(shí)，我們完成了建立數(shù)據(jù)對象的編碼工作，程序被編譯執(zhí)行后，就會(huì)在SQL Server上自動(dòng)建立數(shù)據(jù)庫設(shè)備、數(shù)據(jù)庫及庫中的表。

對于數(shù)據(jù)庫設(shè)備，可以用DISK REINIT，DISK REFIT，DISK RESIZE對它進(jìn)行操作，如要擴(kuò)展數(shù)據(jù)庫設(shè)備Device_1的容量為200M，可利用如下方法：

DISK RESIZE Name='Devive_1', Size = 102400

對于SQL Server上已經(jīng)建立的數(shù)據(jù)庫及表的結(jié)構(gòu)，也可以通過DMO與事務(wù)SQL進(jìn)行修改與刪除。類似于上面的編碼，可以利用Alter Database Db_1,Alter DatabaseDb_2，Alter Table T_1，Alter Table T_2等事務(wù)SQL語句進(jìn)行對所建立的數(shù)據(jù)庫與表的的結(jié)構(gòu)進(jìn)行修改，而利用Drop Database, Drop Table事務(wù)語句刪除所建立的數(shù)據(jù)庫與表。

以上討論了如何在SQL Server上動(dòng)態(tài)地建立與訪問數(shù)據(jù)對象的結(jié)構(gòu)，至于對SQL Server上數(shù)據(jù)庫與表的內(nèi)容的訪問，可以利用ODBC(開放數(shù)據(jù)庫互連)、DAO(數(shù)據(jù)訪問對象)、RDO(遠(yuǎn)程數(shù)據(jù)對象)或DB-Library進(jìn)行編程。