SQL Server数据库对象信息的获取_Sql Server_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

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

作者：闵涛文章来源：闵涛的学习笔记点击数：1155 更新时间：2007/11/14 12:00:19

在开发基于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

[Access]sql随机抽取记录  [Access]ASP&SQL让select查询结果随机排序的实现方法
[聊天工具]企业邮件系统的利器----FoxMail Server  [系统软件]OPEN SERVER 5.0.5安装EXP300阵列柜
[系统软件]SQL语句性能优化--LECCO SQL Expert  [系统软件]关于Windows2000Server的灾难恢复
[常用软件][网络]下载服务革命性风暴Poco Server评测  [C语言系列]动态创建SQL Server数据库、表、存储过程等架构信…
[C语言系列]SQL Server到DB2连接服务器的实现  [C语言系列]SQL Server到SYBASE连接服务器的实现

教程录入：mintao 责任编辑：mintao

上一篇教程：精妙SQL语句介绍

下一篇教程： CSharp读写SQL Server数据库中的Image列

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· Sql Server  · MySql
· Access  · ORACLE
· SyBase  · 其他

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……