开发学院数据库 MSSQL Server 用ADO管理SQLServer数据库及其设备阅读

用ADO管理SQLServer数据库及其设备

　2007-11-11 04:50:57　来源：WEB开发网　　　

核心提示：微软公司的sql server(WINDOWS平台上强大的数据库平台) 是目前小型网络中常用的数据库管理系统之一，面向这种网络数据库的应用程序也在日益增多，用ADO管理SQLServer数据库及其设备，这种网络数据库应

　　微软公司的sql server(WINDOWS平台上强大的数据库平台) 是目前小型网络中常用的数据库管理系统之一。面向这种网络数据库的应用程序也在日益增多，这种网络数据库应用系统的正常运行，一般都依赖于已经存在的用户数据库。创建数据库的工作当然可以用sql server(WINDOWS平台上强大的数据库平台) 提供的SQL Enterprise Manager 工具来完成，但是，如果能够提供一种定制的数据库管理工具，专门管理应用系统需要的数据库及其设备，对用户来说无疑更加理想。

现存问题

---- 我们知道，在使用CREATE DATABASE 语句创建一个数据库之前，必须存在一个有剩余空间的数据库设备，或者事先使用DISK INIT 语句创建一个新设备。但是这些语句含有很多必需的参数，而且如果不使用sql server(WINDOWS平台上强大的数据库平台) 的管理工具，很多参数值往往难以确定。

---- 以创建数据库设备的DISK INIT 语句为例，这个语句的完整语法如下：

DISK INIT NAME = ‘logical_name',PHYSNAME = ‘physical_name',VDEVNO = virtual_device_number,SIZE = number_of_2K_blocks[, VSTART = virtual_address]

---- 其中NAME 和SIZE 这两个参数都很容易得到，麻烦的是物理名PHYSNAME 和虚拟设备号VDEVNO 这两个参数。前者要求是一个服务器上的物理文件全路径名；后者要求在1 ～255 之间找一个没有被别的设备占用的号码。而在编写数据库管理程序时，用户的服务器上有哪些设备号已经被占用，sql server(WINDOWS平台上强大的数据库平台) 装在哪个驱动器上，都是无法预料的。

---- 虽然，使用sql server(WINDOWS平台上强大的数据库平台) 的管理工具SQL Enterprise Manager，可以非常方便地创建、删除数据库设备，或者扩大一个已经存在的数据库，也可以非常方便地创建、删除或者修改一个数据库, 但是，这个工具仍然要求我们输入很多不太常用的参数，界面稍显复杂。

---- 所以，理想的情况是：用户只需要按下一个命令按钮，应用程序需要的数据库及其设备都能立即自动地创建好。

解决方案

---- 为了实现这样的目标，我们必须想办法解决SQL 语句中的参数设置问题。

---- 1 ．创建设备的语句参数

---- 创建设备的语句即前面提到的DISK INIT 语句。

---- 为了简化问题，我们可以指定与数据库名相同的设备文件名，并将设备文件保存在master 设备所在的子目录中。数据库名是在设计应用程序时已经确定；而master 设备所在的子目录，可以从系统表sysdevices 中查询得到。这样，设备文件的物理名参数就确定下来了。

---- 虚拟设备号的问题则比较复杂，因为sysdevices 系统表中没有“ 虚拟设备号” 这样一个字段，因此，必须另想办法。

---- 对sql server(WINDOWS平台上强大的数据库平台) 的系统存储过程sp_helpdevice 进行分析之后，我们发现，虚拟设备号是“ 隐藏” 在sysdevices 系统表的low 字段中的，借助另一个系统表spt_values，可以找到每个设备的虚拟设备号。这样，我们只需要在一个循环中找一下某个设备号是否存在于sysdevices 中，就可以确定我们现在可用的虚拟设备号。

---- 至于数据库设备的大小，我们不妨设得大一些，或者让用户指定一下也可以。

---- 2 ．创建数据库的语句参数

---- 创建数据库的语句如下：

CREATE DATABASE database_name[ON {DEFAULT | database_device} [= size][, database_device [= size]]...][LOG ON database_device [= size][, database_device [= size]]...][FOR LOAD]

---- 其中，大部分参数都是可选的，我们只需要指定一个设备名及数据库的大小即可，而数据库名、设备名、大小在创建设备的时候已经确定好了，所以，这个语句的参数不存在问题。

具体实现

---- 使用普通的应用开发工具Visual Basic，我们就可以实现一个定制的数据库管理程序。

---- 为了实现与数据库服务器的连接，我们必须选择一种数据库访问接口。虽然从VB 访问sql server(WINDOWS平台上强大的数据库平台) 有很多接口可供选择，但微软最新的数据库访问接口ADO(Active Data Objects) 无疑是最有前途的，因为它为基于浏览器的数据库应用系统的实现提供了可能性。

---- 以下是一些用于数据库及其设备管理的常用函数。

---- 1 ．取当前的工作数据库

---- 由于管理任务一般都必须在master 库中完成，因此，在执行管理任务之前，最好保存当前工作库，以便完成任务之后再切换回去。

Public Function SQLGetCurrentDatabaseName(Cn As ADODB.Connection) As StringDim sSQL As StringDim RS As New ADODB.RecordsetOn Error GoTo errSQLGetCurrentDatabaseNamesSQL = “select CurrentDB = DB_NAME()"RS.Open sSQL, CnSQLGetCurrentDatabaseName = Trim ＄(RS!CurrentDB)RS.CloseExit FunctionerrSQLGetCurrentDatabaseName:SQLGetCurrentDatabaseName = “"End Function

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

---- Public Function SQLExistDeviceName(Cn As ADODB.Connection, sDevName As String) As Boolean

---- '--按照名称判断一个设备是否存在，如果存在，返回1，否则返回0

Dim sSQL As StringDim RS As New ADODB.RecordsetDim bTmp As BooleanOn Error GoTo errSQLExistDeviceNamesSQL = “select CntDev=count( ＊) from master.dbo.sysdevices where name = 
‘“ ＆ sDevName ＆ ”'"RS.Open sSQL, CnIf RS!CntDev = 0 Then  bTmp = False  Else  bTmp = TrueRS.CloseSQLExistDeviceName = bTmpExit FunctionerrSQLExistDeviceName:SQLExistDeviceName = FalseEnd Function

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

---- 编者注：函数源代码发表在本报的WWW 站点上，地址是：http://www.computerworld.com.cn/98/skill/default.htm。下同。欢迎访问!

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

---- 5 ．取得sql server(WINDOWS平台上强大的数据库平台) 安装目录下的DATA 子目录路径：SQLGetDataPath。

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

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

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

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

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

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

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

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