Microsoft SQL Server與ORACAL、Sybase都是目前比較流行的資料庫管理系統(RDMS),隨著SQL Server的不斷完善與發展,以及與網路作業系統Windows NT的完美結合,它為分散式客戶伺服器結構程式設計提供了良好的開發環境,也因此越來越受到人們的重視。
Microsoft SQL Server是一個可縮放、高效能的資料庫管理系統,它提供了與Windows NT執行緒和調度服務、效能監視器和事件瀏覽器的集成,基於Windows管理介面並提供對多個伺服器上的遠端數據複製管理、伺服器管理、診斷和調整的可視化拖放控制。
分散式管理物件(DMO)為SQL Server引擎和服務提供了一個物件介面。 SQL-DMO是為Windows 95與Windows NT作業系統提供的32位元OLE自動化對象,OLE是維護應用程式共用物件的標準與方法,是一種允許應用程式為進行管理或資料存取共用物件的程式設計方法。 DMO是利用OLE結構開發的,它為與OLE相容的應用程式提供了通往所有SQL Server管理功能的接口,DMO使軟體開發者直接存取SQL Server資料物件變成可能。我們利用Visual Basic與Visual FoxPro等程式設計工具就可以使用分散式管理物件實現對SQL Server的直接存取。
Microsoft SQL Server所提供的工具讓客戶端能透過多種方法存取伺服器上的數據,這些工具的核心部分就是Transact-SQL(事務SQL)程式碼。 Transact-SQL是結構化查詢語言( SQL)的增強版本,它提供了許多附加的功能和函數。利用Transact-SQL,你可以建立資料庫設備、資料庫和其它資料物件、從資料庫中提取資料、修改數據,也可以動態地改變SQL Server中的設定。因此,使用Transact-SQL大大提高了應用程式的實用性。
當我們進行Client/Server結構專案開發時需要建立若干個資料物件的結構,如果所開發的專案是面向某個特定的客戶時,在Server上手動建立資料庫設備、資料庫與表格是可行的,但如果所開發的項目是作為軟體發行而非面向某個特定的客戶時,無疑,手工建立數據對象的結構是不現實的,我們需要將創建數據庫與表的過程固化在程序中,當程序運行時動態地在Server上建庫與表。因此,利用分散式管理物件與Transact-SQL是進行Client/Server結構程式設計的重要手段。
以下將討論如何在Visual Basic 5.0中利用DMO與Transact-SQL在SQL Server上建立資料庫設備、資料庫及其他資料物件。我們從具體問題著手:在SQL Server上建立200M與400M的資料庫設備Device_1、Device_2,在Device_1與Device_2上分別建立容量為100M的兩個資料庫Db1與DB2,在Db1庫中建立表T_1,有四個網域:Name,Age,Sex,ID_Code,以ID_Code為關鍵字,以Name為索引,在Db2庫中建立表T_2,有五個網域:Name、Age、Sex、Department、No,以Department與No為關鍵字。
存取SQL Server,首先要開啟SQL Service Manager,SQL Service Manager 用來啟動、暫停、繼續、停止SQL Server的服務,包括MSSQLServer與SQLExecutive兩項。可以透過手動方式打開這兩項服務,也可以在程式中透過行命令式打開它們。
若採用手動方式,則開啟SQL Service Manager,對於其中的服務MSSQLServer與SQLExecutive,直接啟動它們的Start/Continue綠燈即可。
採用行命令啟動方式,可利用VB的Shell指令:
X=shell("Sqlmgr.exe",1) 顯示SQL Service Manager視窗;
X=shell("net start mssqlserver") 啟動MSSQLServer服務
X=shell("net start sqlexecutive") 啟動SQLExecutive服務
因為在這裡我們希望透過程式設計在SQL Server上實現資料物件結構的動態建立,因此建議使用行命令方式。
啟動了SQL Server Manager後,我們就可以利用DMO與Transact-SQL依照以下步驟來建立資料物件了。
1.為能使用DMO,首先需要開啟VB工具列中Reference(參考),選擇Microsoft Windows Common Control 5.0,如果在參考列中沒有發現此項,則選擇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.建置資料庫裝置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.建置資料庫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.在資料庫中建立表格:
在資料庫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
在資料庫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
此時,我們完成了建立資料物件的編碼工作,程式被編譯執行後,就會在SQL Server上自動建立資料庫設備、資料庫及庫中的表。
對於資料庫設備,可以用DISK REINIT,DISK REFIT,DISK RESIZE對它進行操作,如要擴展資料庫設備Device_1的容量為200M,可利用以下方法:
DISK RESIZE
Name='Devive_1',
Size = 102400
對於SQL Server上已經建立的資料庫及表格的結構,也可以透過DMO與交易SQL進行修改與刪除。類似於上面的編碼,可以利用Alter Database Db_1,Alter DatabaseDb_2,Alter Table T_1,Alter Table T_2等事務SQL語句進行對所建立的資料庫與表格的的結構進行修改,而利用Drop Database, Drop Table事務語句刪除所建立的資料庫與表。
以上討論如何在SQL Server上動態地建立與存取資料物件的結構,至於對SQL Server上資料庫與資料表的內容的訪問,可以利用ODBC(開放資料庫互連)、DAO(資料存取物件)、RDO(遠端資料物件)或DB-Library進行程式設計。