WEB开发网
开发学院数据库MSSQL Server SQLServer数据库对象信息的获取方法 阅读

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

 2007-11-11 07:18:31 来源:WEB开发网   
核心提示:在开发基于sql server(WINDOWS平台上强大的数据库平台)数据库的应用程序时,经常会遇到需要知道sql server(WINDOWS平台上强大的数据库平台)数据库对象的相关信息的情况,SQLServer数据库对象信息的获取方法,例如sql server(WINDOWS平台上强大的数据库平台)中有哪些数据库,

  在开发基于sql server(WINDOWS平台上强大的数据库平台)数据库的应用程序时,经常会遇到需要知道sql server(WINDOWS平台上强大的数据库平台)数据库对象的相关信息的情况,例如sql server(WINDOWS平台上强大的数据库平台)中有哪些数据库,这些数据库中有哪些数据表,每个数据表有哪些字段,这些字段是什么属性等。笔者在开发一个数据库导入程序时就遇到了这些问题,经过一番摸索,较好地解决了上述问题,现在把实现方法介绍给大家。程序界面如下图所示。
  
  1. 开发环境
  本文所列出的代码在Windows NT 4.0(SP6)、Microsoft Visual Basic 6.0、Microsoft sql server(WINDOWS平台上强大的数据库平台) 2000环境下调试通过。
  
  2. 实现思想
  利用SQL-DMO(分布式管理对象)来访问sql server(WINDOWS平台上强大的数据库平台)数据库。SQL-DMO是为Windows 9x与 Windows NT提供的32位OLE对象,它为与OLE兼容的应用程序提供了sql server(WINDOWS平台上强大的数据库平台)管理功能的接口,开发者通过DMO就可以直接访问sql server(WINDOWS平台上强大的数据库平台)数据对象。
  
  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(WINDOWS平台上强大的数据库平台)服务器名称
  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(WINDOWS平台上强大的数据库平台)服务器,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(WINDOWS平台上强大的数据库平台)服务器上的所有数据库名称
  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

Tags:SQLServer 数据库 对象

编辑录入:coldstar [复制链接] [打 印]
赞助商链接