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


[注意]


如果执行时提示错误 "接口 SQLDMO.NameList 的 QueryInterface 失败"，请检查你的SQL Server版本及补丁安装情况。


建议使用SQL Server2000以上版本，补丁为SP3以上


阿里云国内75折 回扣 微信号：monov8
阿里云国际，腾讯云国际，低至75折。AWS 93折 免费开户实名账号 代冲值 优惠多多 微信号：monov8 飞机：@monov6
标签: 数据库