在VB.NET中应用SQLDMO
原创
©著作权归作者所有:来自51CTO博客作者sxycgxj的原创作品,请联系作者获取转载授权,否则将追究法律责任
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以上