用ADO管理SQL Server数据库及其设备[3]

．判断一个数据库设备是否存在

PublicFunctionSQLExistDeviceName(CnAsADODBConnectionsDevNameAsString)AsBoolean

按照名称判断一个设备是否存在如果存在返回否则返回

DimsSQLAsStringDimRSAsNewADODBRecordsetDimbTmpAsBooleanOnErrorGoToerrSQLExist

DeviceNamesSQL=

selectCntDev=count(＊)frommasterdbosysdeviceswherename=＆sDevName＆RSOpensSQLCnIfRS!CntDev=ThenbTmp=FalseElsebTmp=

TrueRSCloseSQLExistDeviceName=bTmpExitFunctionerrSQLExistDeviceName:

SQLExistDeviceName=FalseEndFunction

．判断一个虚拟设备号是否被占用SQLExistDeviceNumber

．找一个最小的尚未被占用的虚拟设备号SQLGetUnusedDeviceNumber

．取得SQLServer安装目录下的DATA子目录路径SQLGetDataPath

．创建一个新设备SQLCreateDevice

．创建一个新的数据库SQLCreateDatabase

．取数据库设备的详细信息SQLGetDeviceInfo

．扩大数据库设备的尺寸SQLExpandDevice

数据库应用系统在运行一段之后数据量的增大往往要求数据库增大进而要求扩大设备尺寸可惜DISKRESIZE语句要求的尺寸参数为扩大后的新尺寸而非需要增加的尺寸所以必须事先查到设备的原有尺寸才能使用DISKRESIZE语句

．判断一个数据库是否存在SQLExistDatabase

．删除一个数据库SQLDropDatabase

．删除一个数据库设备SQLDropDevice

．取SQLServer的版本信息SQLGetVersionString

在发行的SQLServer中不再有数据库设备的概念创建数据库也将变得更加简单在创建特定的用户数据库时为了区分不同的版本进行不同的操作取得SQLServer的版本是非常重要的

[] [] []