微軟公司的SQLServer是目前小型網(wǎng)絡(luò)中常用的數(shù)據(jù)庫(kù)管理系統(tǒng)之一。面向這種網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的應(yīng)用程序也在日益增多，這種網(wǎng)絡(luò)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的正常運(yùn)行，一般都依賴于已經(jīng)存在的用戶數(shù)據(jù)庫(kù)。創(chuàng)建數(shù)據(jù)庫(kù)的工作當(dāng)然可以用SQL Server提供的SQL EnterpriseManager工具來完成，但是，如果能夠提供一種定制的數(shù)據(jù)庫(kù)管理工具，專門管理應(yīng)用系統(tǒng)需要的數(shù)據(jù)庫(kù)及其設(shè)備，對(duì)用戶來說無疑更加理想。
現(xiàn)存問題
我們知道，在使用CREATEDATABASE語(yǔ)句創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)之前，必須存在一個(gè)有剩余空間的數(shù)據(jù)庫(kù)設(shè)備，或者事先使用DISKINIT語(yǔ)句創(chuàng)建一個(gè)新設(shè)備。但是這些語(yǔ)句含有很多必需的參數(shù)，而且如果不使用SQLServer的管理工具，很多參數(shù)值往往難以確定。
以創(chuàng)建數(shù)據(jù)庫(kù)設(shè)備的DISKINIT語(yǔ)句為例，這個(gè)語(yǔ)句的完整語(yǔ)法如下：
DISKINITNAME=‘logical_name',PHYSNAME=‘physical_name',VDEVNO=virtual_device_number,SIZE=number_of_2K_blocks[,VSTART=virtual_address]
其中NAME和SIZE這兩個(gè)參數(shù)都很容易得到，麻煩的是物理名PHYSNAME和虛擬設(shè)備號(hào)VDEVNO這兩個(gè)參數(shù)。前者要求是一個(gè)服務(wù)器上的物理文件全路徑名；后者要求在1～255之間找一個(gè)沒有被別的設(shè)備占用的號(hào)碼。而在編寫數(shù)據(jù)庫(kù)管理程序時(shí)，用戶的服務(wù)器上有哪些設(shè)備號(hào)已經(jīng)被占用，SQLServer裝在哪個(gè)驅(qū)動(dòng)器上，都是無法預(yù)料的。
雖然，使用SQLServer的管理工具SQLEnterpriseManager，可以非常方便地創(chuàng)建、刪除數(shù)據(jù)庫(kù)設(shè)備，或者擴(kuò)大一個(gè)已經(jīng)存在的數(shù)據(jù)庫(kù)，也可以非常方便地創(chuàng)建、刪除或者修改一個(gè)數(shù)據(jù)庫(kù),但是，這個(gè)工具仍然要求我們輸入很多不太常用的參數(shù)，界面稍顯復(fù)雜。
所以，理想的情況是：用戶只需要按下一個(gè)命令按鈕，應(yīng)用程序需要的數(shù)據(jù)庫(kù)及其設(shè)備都能立即自動(dòng)地創(chuàng)建好。
解決方案
為了實(shí)現(xiàn)這樣的目標(biāo)，我們必須想辦法解決SQL語(yǔ)句中的參數(shù)設(shè)置問題。
1．創(chuàng)建設(shè)備的語(yǔ)句參數(shù)
創(chuàng)建設(shè)備的語(yǔ)句即前面提到的DISKINIT語(yǔ)句。
為了簡(jiǎn)化問題，我們可以指定與數(shù)據(jù)庫(kù)名相同的設(shè)備文件名，并將設(shè)備文件保存在master設(shè)備所在的子目錄中。數(shù)據(jù)庫(kù)名是在設(shè)計(jì)應(yīng)用程序時(shí)已經(jīng)確定；而master設(shè)備所在的子目錄，可以從系統(tǒng)表sysdevices中查詢得到。這樣，設(shè)備文件的物理名參數(shù)就確定下來了。
虛擬設(shè)備號(hào)的問題則比較復(fù)雜，因?yàn)閟ysdevices系統(tǒng)表中沒有“虛擬設(shè)備號(hào)”這樣一個(gè)字段，因此，必須另想辦法。
對(duì)SQLServer的系統(tǒng)存儲(chǔ)過程sp_helpdevice進(jìn)行分析之后，我們發(fā)現(xiàn)，虛擬設(shè)備號(hào)是“隱藏”在sysdevices系統(tǒng)表的low字段中的，借助另一個(gè)系統(tǒng)表spt_values，可以找到每個(gè)設(shè)備的虛擬設(shè)備號(hào)。這樣，我們只需要在一個(gè)循環(huán)中找一下某個(gè)設(shè)備號(hào)是否存在于sysdevices中，就可以確定我們現(xiàn)在可用的虛擬設(shè)備號(hào)。
至于數(shù)據(jù)庫(kù)設(shè)備的大小，我們不妨設(shè)得大一些，或者讓用戶指定一下也可以。
2．創(chuàng)建數(shù)據(jù)庫(kù)的語(yǔ)句參數(shù)
創(chuàng)建數(shù)據(jù)庫(kù)的語(yǔ)句如下：
CREATEDATABASEdatabase_name[ON{DEFAULT|database_device}[=size][,database_device[=size]]...]
[LOGONdatabase_device[=size][,database_device[=size]]...][FORLOAD]
其中，大部分參數(shù)都是可選的，我們只需要指定一個(gè)設(shè)備名及數(shù)據(jù)庫(kù)的大小即可，而數(shù)據(jù)庫(kù)名、設(shè)備名、大小在創(chuàng)建設(shè)備的時(shí)候已經(jīng)確定好了，所以，這個(gè)語(yǔ)句的參數(shù)不存在問題。
具體實(shí)現(xiàn)
使用普通的應(yīng)用開發(fā)工具VisualBasic，我們就可以實(shí)現(xiàn)一個(gè)定制的數(shù)據(jù)庫(kù)管理程序。
為了實(shí)現(xiàn)與數(shù)據(jù)庫(kù)服務(wù)器的連接，我們必須選擇一種數(shù)據(jù)庫(kù)訪問接口。雖然從VB訪問SQLServer有很多接口可供選擇，但微軟最新的數(shù)據(jù)庫(kù)訪問接口ADO(ActiveDataObjects)無疑是最有前途的，因?yàn)樗鼮榛跒g覽器的數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的實(shí)現(xiàn)提供了可能性。
以下是一些用于數(shù)據(jù)庫(kù)及其設(shè)備管理的常用函數(shù)。
1．取當(dāng)前的工作數(shù)據(jù)庫(kù) ----由于管理任務(wù)一般都必須在master庫(kù)中完成，因此，在執(zhí)行管理任務(wù)之前，保存當(dāng)前工作庫(kù)，以便完成任務(wù)之后再切換回去。
PublicFunctionSQLGetCurrentDatabaseName(CnAsADODB.Connection)AsStringDimsSQLAsStringDimRSAsNewADODB.Recordset
OnErrorGoToerrSQLGetCurrentDatabaseNamesSQL=“selectCurrentDB=DB_NAME()"RS.OpensSQL,
CnSQLGetCurrentDatabaseName=Trim＄(RS!CurrentDB)RS.CloseExitFunctionerrSQLGetCurrentDatabaseName:SQLGetCurrentDatabaseName=“"EndFunction
2．判斷一個(gè)數(shù)據(jù)庫(kù)設(shè)備是否存在
PublicFunctionSQLExistDeviceName(CnAsADODB.Connection,sDevNameAsString)AsBoolean
'--按照名稱判斷一個(gè)設(shè)備是否存在，如果存在，返回1，否則返回0
DimsSQLAsStringDimRSAsNewADODB.RecordsetDimbTmpAsBooleanOnErrorGoToerrSQLExistDeviceNamesSQL=“
selectCntDev=count(＊)frommaster.dbo.sysdeviceswherename=‘“＆sDevName＆”'"RS.OpensSQL,CnIfRS!CntDev=0ThenbTmp=FalseElsebTmp=
TrueRS.CloseSQLExistDeviceName=bTmpExitFunctionerrSQLExistDeviceName:
SQLExistDeviceName=FalseEndFunction
3．判斷一個(gè)虛擬設(shè)備號(hào)是否被占用：SQLExistDeviceNumber。
編者注：函數(shù)源代碼發(fā)表在本報(bào)的WWW站點(diǎn)上，地址是：http://www.computerworld.com.cn/98/skill/default.htm。下同。歡迎訪問!
4．找一個(gè)最小的尚未被占用的虛擬設(shè)備號(hào)：SQLGetUnusedDeviceNumber。
5．取得SQLServer安裝目錄下的DATA子目錄路徑：SQLGetDataPath。
6．創(chuàng)建一個(gè)新設(shè)備：SQLCreateDevice。
7．創(chuàng)建一個(gè)新的數(shù)據(jù)庫(kù)：SQLCreateDatabase65。
8．取數(shù)據(jù)庫(kù)設(shè)備的詳細(xì)信息：SQLGetDeviceInfo。
9．?dāng)U大數(shù)據(jù)庫(kù)設(shè)備的尺寸：SQLExpandDevice。
數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)在運(yùn)行一段之后，數(shù)據(jù)量的增大往往要求數(shù)據(jù)庫(kù)增大，進(jìn)而要求擴(kuò)大設(shè)備尺寸?？上ISKRESIZE語(yǔ)句要求的尺寸參數(shù)為擴(kuò)大后的新尺寸，而非需要增加的尺寸。所以，必須事先查到設(shè)備的原有尺寸，才能使用DISKRESIZE語(yǔ)句。
10．判斷一個(gè)數(shù)據(jù)庫(kù)是否存在：SQLExistDatabase。
11．刪除一個(gè)數(shù)據(jù)庫(kù)：SQLDropDatabase。
12．刪除一個(gè)數(shù)據(jù)庫(kù)設(shè)備：SQLDropDevice。
13．取SQLServer的版本信息：SQLGetVersionString。
在即將發(fā)行的SQLServer7.0中，不再有數(shù)據(jù)庫(kù)設(shè)備的概念，創(chuàng)建數(shù)據(jù)庫(kù)也將變得更加簡(jiǎn)單。在創(chuàng)建特定的用戶數(shù)據(jù)庫(kù)時(shí)，為了區(qū)分不同的版本進(jìn)行不同的操作，取得SQLServer的版本是非常重要的。
現(xiàn)存問題
我們知道，在使用CREATEDATABASE語(yǔ)句創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)之前，必須存在一個(gè)有剩余空間的數(shù)據(jù)庫(kù)設(shè)備，或者事先使用DISKINIT語(yǔ)句創(chuàng)建一個(gè)新設(shè)備。但是這些語(yǔ)句含有很多必需的參數(shù)，而且如果不使用SQLServer的管理工具，很多參數(shù)值往往難以確定。
以創(chuàng)建數(shù)據(jù)庫(kù)設(shè)備的DISKINIT語(yǔ)句為例，這個(gè)語(yǔ)句的完整語(yǔ)法如下：
DISKINITNAME=‘logical_name',PHYSNAME=‘physical_name',VDEVNO=virtual_device_number,SIZE=number_of_2K_blocks[,VSTART=virtual_address]
其中NAME和SIZE這兩個(gè)參數(shù)都很容易得到，麻煩的是物理名PHYSNAME和虛擬設(shè)備號(hào)VDEVNO這兩個(gè)參數(shù)。前者要求是一個(gè)服務(wù)器上的物理文件全路徑名；后者要求在1～255之間找一個(gè)沒有被別的設(shè)備占用的號(hào)碼。而在編寫數(shù)據(jù)庫(kù)管理程序時(shí)，用戶的服務(wù)器上有哪些設(shè)備號(hào)已經(jīng)被占用，SQLServer裝在哪個(gè)驅(qū)動(dòng)器上，都是無法預(yù)料的。
雖然，使用SQLServer的管理工具SQLEnterpriseManager，可以非常方便地創(chuàng)建、刪除數(shù)據(jù)庫(kù)設(shè)備，或者擴(kuò)大一個(gè)已經(jīng)存在的數(shù)據(jù)庫(kù)，也可以非常方便地創(chuàng)建、刪除或者修改一個(gè)數(shù)據(jù)庫(kù),但是，這個(gè)工具仍然要求我們輸入很多不太常用的參數(shù)，界面稍顯復(fù)雜。
所以，理想的情況是：用戶只需要按下一個(gè)命令按鈕，應(yīng)用程序需要的數(shù)據(jù)庫(kù)及其設(shè)備都能立即自動(dòng)地創(chuàng)建好。
解決方案
為了實(shí)現(xiàn)這樣的目標(biāo)，我們必須想辦法解決SQL語(yǔ)句中的參數(shù)設(shè)置問題。
1．創(chuàng)建設(shè)備的語(yǔ)句參數(shù)
創(chuàng)建設(shè)備的語(yǔ)句即前面提到的DISKINIT語(yǔ)句。
為了簡(jiǎn)化問題，我們可以指定與數(shù)據(jù)庫(kù)名相同的設(shè)備文件名，并將設(shè)備文件保存在master設(shè)備所在的子目錄中。數(shù)據(jù)庫(kù)名是在設(shè)計(jì)應(yīng)用程序時(shí)已經(jīng)確定；而master設(shè)備所在的子目錄，可以從系統(tǒng)表sysdevices中查詢得到。這樣，設(shè)備文件的物理名參數(shù)就確定下來了。
虛擬設(shè)備號(hào)的問題則比較復(fù)雜，因?yàn)閟ysdevices系統(tǒng)表中沒有“虛擬設(shè)備號(hào)”這樣一個(gè)字段，因此，必須另想辦法。
對(duì)SQLServer的系統(tǒng)存儲(chǔ)過程sp_helpdevice進(jìn)行分析之后，我們發(fā)現(xiàn)，虛擬設(shè)備號(hào)是“隱藏”在sysdevices系統(tǒng)表的low字段中的，借助另一個(gè)系統(tǒng)表spt_values，可以找到每個(gè)設(shè)備的虛擬設(shè)備號(hào)。這樣，我們只需要在一個(gè)循環(huán)中找一下某個(gè)設(shè)備號(hào)是否存在于sysdevices中，就可以確定我們現(xiàn)在可用的虛擬設(shè)備號(hào)。
至于數(shù)據(jù)庫(kù)設(shè)備的大小，我們不妨設(shè)得大一些，或者讓用戶指定一下也可以。
2．創(chuàng)建數(shù)據(jù)庫(kù)的語(yǔ)句參數(shù)
創(chuàng)建數(shù)據(jù)庫(kù)的語(yǔ)句如下：
CREATEDATABASEdatabase_name[ON{DEFAULT|database_device}[=size][,database_device[=size]]...]
[LOGONdatabase_device[=size][,database_device[=size]]...][FORLOAD]
其中，大部分參數(shù)都是可選的，我們只需要指定一個(gè)設(shè)備名及數(shù)據(jù)庫(kù)的大小即可，而數(shù)據(jù)庫(kù)名、設(shè)備名、大小在創(chuàng)建設(shè)備的時(shí)候已經(jīng)確定好了，所以，這個(gè)語(yǔ)句的參數(shù)不存在問題。
具體實(shí)現(xiàn)
使用普通的應(yīng)用開發(fā)工具VisualBasic，我們就可以實(shí)現(xiàn)一個(gè)定制的數(shù)據(jù)庫(kù)管理程序。
為了實(shí)現(xiàn)與數(shù)據(jù)庫(kù)服務(wù)器的連接，我們必須選擇一種數(shù)據(jù)庫(kù)訪問接口。雖然從VB訪問SQLServer有很多接口可供選擇，但微軟最新的數(shù)據(jù)庫(kù)訪問接口ADO(ActiveDataObjects)無疑是最有前途的，因?yàn)樗鼮榛跒g覽器的數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的實(shí)現(xiàn)提供了可能性。
以下是一些用于數(shù)據(jù)庫(kù)及其設(shè)備管理的常用函數(shù)。
1．取當(dāng)前的工作數(shù)據(jù)庫(kù) ----由于管理任務(wù)一般都必須在master庫(kù)中完成，因此，在執(zhí)行管理任務(wù)之前，保存當(dāng)前工作庫(kù)，以便完成任務(wù)之后再切換回去。
PublicFunctionSQLGetCurrentDatabaseName(CnAsADODB.Connection)AsStringDimsSQLAsStringDimRSAsNewADODB.Recordset
OnErrorGoToerrSQLGetCurrentDatabaseNamesSQL=“selectCurrentDB=DB_NAME()"RS.OpensSQL,
CnSQLGetCurrentDatabaseName=Trim＄(RS!CurrentDB)RS.CloseExitFunctionerrSQLGetCurrentDatabaseName:SQLGetCurrentDatabaseName=“"EndFunction
2．判斷一個(gè)數(shù)據(jù)庫(kù)設(shè)備是否存在
PublicFunctionSQLExistDeviceName(CnAsADODB.Connection,sDevNameAsString)AsBoolean
'--按照名稱判斷一個(gè)設(shè)備是否存在，如果存在，返回1，否則返回0
DimsSQLAsStringDimRSAsNewADODB.RecordsetDimbTmpAsBooleanOnErrorGoToerrSQLExistDeviceNamesSQL=“
selectCntDev=count(＊)frommaster.dbo.sysdeviceswherename=‘“＆sDevName＆”'"RS.OpensSQL,CnIfRS!CntDev=0ThenbTmp=FalseElsebTmp=
TrueRS.CloseSQLExistDeviceName=bTmpExitFunctionerrSQLExistDeviceName:
SQLExistDeviceName=FalseEndFunction
3．判斷一個(gè)虛擬設(shè)備號(hào)是否被占用：SQLExistDeviceNumber。
編者注：函數(shù)源代碼發(fā)表在本報(bào)的WWW站點(diǎn)上，地址是：http://www.computerworld.com.cn/98/skill/default.htm。下同。歡迎訪問!
4．找一個(gè)最小的尚未被占用的虛擬設(shè)備號(hào)：SQLGetUnusedDeviceNumber。
5．取得SQLServer安裝目錄下的DATA子目錄路徑：SQLGetDataPath。
6．創(chuàng)建一個(gè)新設(shè)備：SQLCreateDevice。
7．創(chuàng)建一個(gè)新的數(shù)據(jù)庫(kù)：SQLCreateDatabase65。
8．取數(shù)據(jù)庫(kù)設(shè)備的詳細(xì)信息：SQLGetDeviceInfo。
9．?dāng)U大數(shù)據(jù)庫(kù)設(shè)備的尺寸：SQLExpandDevice。
數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)在運(yùn)行一段之后，數(shù)據(jù)量的增大往往要求數(shù)據(jù)庫(kù)增大，進(jìn)而要求擴(kuò)大設(shè)備尺寸?？上ISKRESIZE語(yǔ)句要求的尺寸參數(shù)為擴(kuò)大后的新尺寸，而非需要增加的尺寸。所以，必須事先查到設(shè)備的原有尺寸，才能使用DISKRESIZE語(yǔ)句。
10．判斷一個(gè)數(shù)據(jù)庫(kù)是否存在：SQLExistDatabase。
11．刪除一個(gè)數(shù)據(jù)庫(kù)：SQLDropDatabase。
12．刪除一個(gè)數(shù)據(jù)庫(kù)設(shè)備：SQLDropDevice。
13．取SQLServer的版本信息：SQLGetVersionString。
在即將發(fā)行的SQLServer7.0中，不再有數(shù)據(jù)庫(kù)設(shè)備的概念，創(chuàng)建數(shù)據(jù)庫(kù)也將變得更加簡(jiǎn)單。在創(chuàng)建特定的用戶數(shù)據(jù)庫(kù)時(shí)，為了區(qū)分不同的版本進(jìn)行不同的操作，取得SQLServer的版本是非常重要的。