SQL Server数据库对象信息的获取方法

http://www.sina.com.cn 2006年09月26日 16:10  ChinaByte

  在开发基于SQL Server数据库的应用程序时,经常会遇到需要知道SQL Server数据库对象的相关信息的情况,例如SQL Server中有哪些数据库,这些数据库中有哪些数据表,每个数据表有哪些字段,这些字段是什么属性等。笔者在开发一个数据库导入程序时就遇到了这些问题,经过一番摸索,较好地解决了上述问题,现在把实现方法介绍给大家。程序界面如下图所示。

  1. 开发环境

  本文所列出的代码在Windows NT 4.0(SP6)、Microsoft Visual Basic 6.0、Microsoft SQL Server 2000环境下调试通过。

  2. 实现思想

  利用SQL-DMO(分布式管理对象)来访问SQL Server数据库。SQL-DMO是为Windows 9x与 Windows NT提供的32位OLE对象,它为与OLE兼容的应用程序提供了SQL Server管理功能的接口,开发者通过DMO就可以直接访问SQL Server数据对象。

  3. 实现代码

  在“菜单->工程->引用”里选中“Microsoft SQLDMO Object Library”。

  在代码中定义以下全局变量:

  Public oSQLServer As SQLDMO.SQLServer

  ’定义一个SQLDMO.SQLServer对象

  Public oCurrentDB As SQLDMO.Database

  ’定义一个SQLDMO.Database 对象

  Public oCurrentTable As SQLDMO.Table

  ’定义一个SQLDMO.Table 对象

  Public SERVER_NAME As String

  ’用于获得用户输入的SQL Server服务器名称

  Public USERNAME As String

  ’用于获得用户输入的用户名

  Public PASSWORD As String

  ’用于获得用户输入的密码

  .....

  以下为部分关键的程序代码:

  Private Sub cmd_link_Click() ’点击“连接”按钮

  ......

  Set oSQLServer = CreateObject(“SQLDMO.SQLServer”)

  oSQLServer.Connect SERVER_NAME, USERNAME, PASSWORD

  ’连接SQL Server服务器,SERVER_NAME 为服务器名,USERNAME为用户名,PASSWORD为用户口令

  FillEmptyDatabaseList (True)

  If cob_sqldb.ListCount > 0 Then

  cob_sqldb.ListIndex = 0

  Cob_sqldb_Click

  End If

  ......

  End Sub

  Private Sub FillEmptyDatabaseList(bFill As Boolean)

  ’获得SQL Server服务器上的所有数据库名称

  If bFill = True Then

  Dim oDB As SQLDMO.Database

  Set oDB = New SQLDMO.Database

  For Each oDB In oSQLServer.Databases

  If oDB.SystemObject = False Then

  ’判断其不是系统数据库

  cob_sqldb.AddItem oDB.Name

  ’把非系统数据库名称添加到数据库信息列表框中

  End If

  Next oDB

  End If

  End Sub

  Private Sub Cob_sqldb_Click()

  ’点击“数据库信息”列表框

  ......

  Dim oDB As SQLDMO.Database

  Set oDB = oSQLServer.Databases(cob_sqldb.List(cob_sqldb.ListIndex))

  If oCurrentDB Is Nothing Then

  Set oCurrentDB = oDB

  Else

  If oCurrentDB.Name = oDB.Name Then

  Exit Sub

  End If

  Set oCurrentDB = Nothing

  Set oCurrentDB = oDB

  End If

  FillEmptyTableList (True)

  If cob_sqltable.ListCount > 0 Then

  cob_sqltable.ListIndex = 0

  cob_sqltable_Click

  End If

  ......

  End Sub

  Private Sub FillEmptyTableList(bFill As Boolean)

  ’获得当前数据库中的所有非系统数据表名称

  If bFill = True Then

  Dim oTable As SQLDMO.Table

  For Each oTable In oCurrentDB.Tables

  If oTable.SystemObject = False Then

  ’判断其不是系统数据表

  cob_sqltable.AddItem oTable.Name

  ’把非系统数据表名称添加到数据表信息列表框中

  End If

  Next oTable

  End If

  End Sub

  Private Sub cob_sqltable_Click()

  ’点击“数据表信息” 列表框

  ......

  Dim oTable As SQLDMO.Table

  Set oTable = oCurrentDB.Tables(cob_sqltable.List(cob_sqltable.ListIndex))

  If oCurrentTable Is Nothing Then

  Set oCurrentTable = oTable

  Else

  If oCurrentTable.Name = oTable.Name Then

  Exit Sub

  End If

  Set oCurrentTable = Nothing

  Set oCurrentTable = oTable

  End If

  FillEmptyColsToIndex (True)

  If cob_sqlrecord.ListCount > 0 Then

  cob_sqlrecord.ListIndex = 0

  End If

  ......

  End Sub

  Private Sub FillEmptyColsToIndex(bFill As Boolean)

  ’获得数据表中的所有字段的信息

  If bFill = True Then

  Dim oCol As SQLDMO.Column

  Set oCol = New SQLDMO.Column

  For Each oCol In oCurrentTable.Columns

  cob_sqlrecord.AddItem oCol.Name & “ ” & oCol.DataType

  ’把字段名称和字段属性添加到字段信息列表框中

  Next oCol

  End If

  End Sub

Powered By Google
不支持Flash
·城市对话改革30年 ·新浪城市同心联动 ·诚招合作伙伴 ·企业邮箱畅通无阻
不支持Flash