在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

[注意]

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

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

查看SQL Server版本及补丁情况，请参与： http://blog.youkuaiyun.com/sxycgxj/archive/2006/09/27/1292228.aspx