用ADO管理SQL Server数据库及其设备
用于数据库及其设备管理的常用函数。
1．取当前的工作数据库 ----由于管理任务一般都必须在master库中完成，因此，在执行管理任务之前，最好保存当前工作库，以便完成任务之后再切换回去。
PublicFunctionSQLGetCurrentDatabaseName(CnAsADODB.Connection)AsStringDimsSQLAsStringDimRSAsNewADODB.Recordset
OnErrorGoToerrSQLGetCurrentDatabaseNamesSQL=“selectCurrentDB=DB_NAME()"RS.OpensSQL,
CnSQLGetCurrentDatabaseName=Trim＄(RS!CurrentDB)RS.CloseExitFunctionerrSQLGetCurrentDatabaseName:SQLGetCurrentDatabaseName=“"EndFunction
2．判断一个数据库设备是否存在
PublicFunctionSQLExistDeviceName(CnAsADODB.Connection,sDevNameAsString)AsBoolean
''--按照名称判断一个设备是否存在，如果存在，返回1，否则返回0
DimsSQLAsStringDimRSAsNewADODB.RecordsetDimbTmpAsBooleanOnErrorGoToerrSQLExistDeviceNamesSQL=“
selectCntDev=count(＊)frommaster.dbo.sysdeviceswherename=‘“＆sDevName＆”''"RS.OpensSQL,CnIfRS!CntDev=0ThenbTmp=FalseElsebTmp=
TrueRS.CloseSQLExistDeviceName=bTmpExitFunctionerrSQLExistDeviceName:
SQLExistDeviceName=FalseEndFunction
3．判断一个虚拟设备号是否被占用：SQLExistDeviceNumber。
编者注：函数源代码发表在本报的WWW站点上，地址是：http://www.computerworld.com.cn/98/skill/default.htm。下同。欢迎访问!
4．找一个最小的尚未被占用的虚拟设备号：SQLGetUnusedDeviceNumber。
5．取得SQLServer安装目录下的DATA子目录路径：SQLGetDataPath。
6．创建一个新设备：SQLCreateDevice。
7．创建一个新的数据库：SQLCreateDatabase65。
8．取数据库设备的详细信息：SQLGetDeviceInfo。
9．扩大数据库设备的尺寸：SQLExpandDevice。
数据库应用系统在运行一段之后，数据量的增大往往要求数据库增大，进而要求扩大设备尺寸。可惜DISKRESIZE语句要求的尺寸参数为扩大后的新尺寸，而非需要增加的尺寸。所以，必须事先查到设备的原有尺寸，才能使用DISKRESIZE语句。
10．判断一个数据库是否存在：SQLExistDatabase。
11．删除一个数据库：SQLDropDatabase。
12．删除一个数据库设备：SQLDropDevice。
13．取SQLServer的版本信息：SQLGetVersionString。
在即将发行的SQLServer7.0中，不再有数据库设备的概念，创建数据库也将变得更加简单。在创建特定的用户数据库时，为了区分不同的版本进行不同的操作，取得SQLServer的版本是非常重要的。
1．取当前的工作数据库 ----由于管理任务一般都必须在master库中完成，因此，在执行管理任务之前，最好保存当前工作库，以便完成任务之后再切换回去。
PublicFunctionSQLGetCurrentDatabaseName(CnAsADODB.Connection)AsStringDimsSQLAsStringDimRSAsNewADODB.Recordset
OnErrorGoToerrSQLGetCurrentDatabaseNamesSQL=“selectCurrentDB=DB_NAME()"RS.OpensSQL,
CnSQLGetCurrentDatabaseName=Trim＄(RS!CurrentDB)RS.CloseExitFunctionerrSQLGetCurrentDatabaseName:SQLGetCurrentDatabaseName=“"EndFunction
2．判断一个数据库设备是否存在
PublicFunctionSQLExistDeviceName(CnAsADODB.Connection,sDevNameAsString)AsBoolean
''--按照名称判断一个设备是否存在，如果存在，返回1，否则返回0
DimsSQLAsStringDimRSAsNewADODB.RecordsetDimbTmpAsBooleanOnErrorGoToerrSQLExistDeviceNamesSQL=“
selectCntDev=count(＊)frommaster.dbo.sysdeviceswherename=‘“＆sDevName＆”''"RS.OpensSQL,CnIfRS!CntDev=0ThenbTmp=FalseElsebTmp=
TrueRS.CloseSQLExistDeviceName=bTmpExitFunctionerrSQLExistDeviceName:
SQLExistDeviceName=FalseEndFunction
3．判断一个虚拟设备号是否被占用：SQLExistDeviceNumber。
编者注：函数源代码发表在本报的WWW站点上，地址是：http://www.computerworld.com.cn/98/skill/default.htm。下同。欢迎访问!
4．找一个最小的尚未被占用的虚拟设备号：SQLGetUnusedDeviceNumber。
5．取得SQLServer安装目录下的DATA子目录路径：SQLGetDataPath。
6．创建一个新设备：SQLCreateDevice。
7．创建一个新的数据库：SQLCreateDatabase65。
8．取数据库设备的详细信息：SQLGetDeviceInfo。
9．扩大数据库设备的尺寸：SQLExpandDevice。
数据库应用系统在运行一段之后，数据量的增大往往要求数据库增大，进而要求扩大设备尺寸。可惜DISKRESIZE语句要求的尺寸参数为扩大后的新尺寸，而非需要增加的尺寸。所以，必须事先查到设备的原有尺寸，才能使用DISKRESIZE语句。
10．判断一个数据库是否存在：SQLExistDatabase。
11．删除一个数据库：SQLDropDatabase。
12．删除一个数据库设备：SQLDropDevice。
13．取SQLServer的版本信息：SQLGetVersionString。
在即将发行的SQLServer7.0中，不再有数据库设备的概念，创建数据库也将变得更加简单。在创建特定的用户数据库时，为了区分不同的版本进行不同的操作，取得SQLServer的版本是非常重要的。