** 在 ** ** VB.NET ** ** 中应用 ** ** SQLDMO **
SQLDMO （ SQL Distributed Management Objects ， SQL 分布式管理对象） 封装 Microsoft SQL Server 2000 数据库中的对象。 SQL-DMO 允许用支持自动化或 COM 的语言编写应用程序，以管理 SQL Server 安装的所有部分。 SQL-DMO 是 SQL Server 2000 中的 SQL Server 企业管理器所使用的应用程序接口 (API) ；因此使用 SQL-DMO 的应用程序可以执行 SQL Server 企业管理器执行的所有功能。
SQL-DMO 用于必须包含 SQL Server 管理的任何自动化或 COM 应用程序，例如：
1. 封装 SQL Server 作为自己的数据存储并想尽量减少用户的 SQL Server 管理任务的应用程序。
2. 在程序本身并入了专门的管理逻辑的应用程序。
3. 想在自己的用户界面中集成 SQL Server 管理任务的应用程序。
SQLDMO 对象来自 SQLDMO.dll ， SQLDMO.dll 是随 SQL Server2000 一起发布的。 SQLDMO.dll 自身是一个 COM 对象，因此，在你的 .NET 项目里必须先引用它。
得到网络中的 SQL 服务器的列表：
' 得到 SQL 服务器的列表
' 必须安装 SQL SERVER 2000 SP2 及以上版本
Dim I As Short
Dim sqlApp As New SQLDMO.Application()
Dim ServerName As SQLDMO.NameList
ServerName = sqlApp.ListAvailableSQLServers
For i = 1 To ServerName.Count
cbServer.Items.Add(ServerName.Item(i))
Next
得到指定 SQL 服务器所有数据库的列表：
' 得到指定 SQL 服务器所有数据库的列表
Dim sqlApp As New SQLDMO.Application()
Dim oServer As New SQLDMO.SQLServer()
oServer.Connect( "(local)" , "sa" , "sa" )
cboDatabase.Items.Clear()
Dim db As SQLDMO.Database
For Each db In oServer.Databases
Me .cboDatabase.Items.Add(db.Name)
Next
得到所有的表、视图、存储过程：
Dim I As Short
Dim oServer As New SQLDMO.SQLServer()
oServer.Connect( "(local)" , "sa" , "sa" )
Dim db As New SQLDMO.Database()
For I = 1 To oServer.Databases.Count
If oServer.Databases.Item(I, "dbo" ).Name = "Northwind" Then Exit For
Next
If I > oServer.Databases.Count Then Exit Sub
db = oServer.Databases.Item(I, "dbo" )
ListBox1.Items.Clear()
' 得到所有的存储过程
For I = 1 To db.StoredProcedures.Count
ListBox1.Items.Add(db.StoredProcedures.Item(I, "dbo" ).Name)
Next
' 得到所有的表
For I = 1 To db.Tables.Count
ListBox1.Items.Add(db.Tables.Item(I, "dbo" ).Name)
Next
' 得到所有的视图
For I = 1 To db.Views.Count
ListBox1.Items.Add(db.Views.Item(I, "dbo" ).Name)
Next
利用 SQLDMO 实现带进度条的数据库备份：
'̀ 添加进度条 ProgressBar1 控件
'̉ 引用 Microsoft SQLDMO Object Library
' 声明
Public WithEvents bkps As SQLDMO.Backup
' 数据库备份操作
Private Sub btnBackUp_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBackUp.Click
Dim oSQLServer As New SQLDMO.SQLServer()
oSQLServer.LoginSecure = False
oSQLServer.Connect( "(local)" , "sa" , "sa" ) ' 连接服务器
Me .Cursor = Windows.Forms.Cursors.WaitCursor
bkps = CreateObject( "SQLDMO.Backup" )
bkps.Database = "Northwind" ' 指定需备份的数据库
bkps.Action = 0
bkps.Files = "f:\Northwind.bak" ' 指定备份文件
bkps.Initialize = True
ProgressBar1.Value = 0
ProgressBar1.Maximum = 100
Me .Cursor = Windows.Forms.Cursors.Default()
Application.DoEvents()
Dim mouseCur As Cursor
Me .Cursor = Windows.Forms.Cursors.WaitCursor
bkps.SQLBackup(oSQLServer)
ProgressBar1.Value = 100
Application.DoEvents()
bkps = Nothing
Me .Cursor = Windows.Forms.Cursors.Default()
MsgBox( " 数据库备份完成 " , MsgBoxStyle.Information, " 系统消息 " )
End Sub
' 显示进度
Private Sub bkps_PercentComplete( ByVal Message As String , ByVal Percent As Integer ) Handles bkps.PercentComplete
ProgressBar1.Value = ProgressBar1.Maximum * (Percent / 100 )
End Sub
‘***************************************************************
‘Author: 李洪根
‘MAIL: [email protected]
‘ 专栏： http://www.csdn.net/develop/author/netauthor/lihonggen0/
‘ 如需引用，请指明出处！ CSDN 论坛 VB 版欢迎您！
‘***************************************************************
有关 C# 操作的代码：