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

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

　　Public Function SQLExistDeviceName(Cn As ADODB.Connection, sDevName As String) As Boolean
--按照名称判断一个设备是否存在，如果存在，返回1，否则返回0

Dim sSQL As String Dim RS As New ADODB.Recordset Dim bTmp As Boolean On Error GoTo errSQLExistDeviceName sSQL =“select CntDev=count(＊) from master.dbo.sysdevices where name =‘“＆ sDevName＆”" RS.Open sSQL, Cn If RS!CntDev = 0 Then bTmp = False Else bTmp = True RS.Close SQLExistDeviceName = bTmp Exit Function errSQLExistDeviceName: SQLExistDeviceName = False End Function

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

　　编者注：函数源代码发表在以下站点上，地址。欢迎访问!

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

　　5．取得SQL Server安装目录下的DATA子目录路径：SQLGetDataPath。

　　6．创建一个新设备：SQLCreateDevice。

　　7．创建一个新的数据库：SQLCreateDatabase65。

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

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

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

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

　　11．删除一个数据库：SQLDropDatabase。

　　12．删除一个数据库设备：SQLDropDevice。

　　13．取SQL Server的版本信息：SQLGetVersionString。

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

查看本文来源