在VB.NET中应用SQLDMO

王朝vb·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航