在VB.NET中应用SQLDMO

原创 2003年12月02日 12:10:00

VB.NET中应用SQLDMO<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

 

SQLDMOSQL Distributed Management ObjectsSQL分布式管理对象)封装 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.dllSQLDMO.dll是随SQL Server2000一起发布的。SQLDMO.dll自身是一个COM对象,因此,在你的.NET项目里必须先引用它。

 

<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" />CSDN_Dev_Image_2003-12-21155160.gif

 

得到网络中的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:   lihonggen0@gci-corp.com

专栏:  http://www.csdn.net/develop/author/netauthor/lihonggen0/

如需引用,请指明出处! CSDN论坛VB版欢迎您!

‘***************************************************************

 

有关C#操作的代码:

http://www.csharphelp.com/archives2/archive342.html

 

在VB.NET中应用SQLDMO

SQLDMO(SQL Distributed Management Objects,SQL分布式管理对象)封装 Microsoft SQL Server 2000 数据库中的对象。SQL-DMO 允许...
  • jelink
  • jelink
  • 2006年09月23日 20:36
  • 519

在VB.NET中应用SQLDMO

SQLDMO(SQL Distributed Management Objects,SQL分布式管理对象)封装Microsoft SQL Server 2000 数据库中的对象。SQL-DMO 允许用...
  • sxycgxj
  • sxycgxj
  • 2005年09月30日 08:48
  • 1073

教你如何在VB.NET中应用SQLDMO对象

教你如何在VB.NET中应用SQLDMO对象  ...
  • washingto
  • washingto
  • 2007年08月26日 19:14
  • 807

SQLDMO类在C#中的应用

本文转自:http://www.csharphelp.com/archives2/archive342.htmlSQLDMO For C#By Kevin Goss Download SQLDMO.z...
  • shenkedong9
  • shenkedong9
  • 2005年08月08日 16:25
  • 1116

在.NET中应用SQLDMO

在.NET中应用SQLDMO 发布日期:2008-02-21 ...
  • ggw128
  • ggw128
  • 2008年04月06日 15:44
  • 562

在VB.NET中应用SQLDMO http://writeblog.csdn.net/ArticleEdit.aspx

SQLDMO(SQL Distributed Management Objects,SQL分布式管理对象)封装 Microsoft SQL Server 2000 数据库中的对象。SQL-DMO 允许...
  • cnwd
  • cnwd
  • 2008年03月13日 20:00
  • 390

打开SQL企业管理器提示“SQLDMO还未注册,请重新运行SQL SERVER安装程序,或者与管理员联系”

今天打开sqlserver的企业管理器, 提示 “SQLDMO还未注册,请重新运行SQL SERVER安装程序,或者与管理员联系” 估计可能跟上礼拜卸载sql2005 express版本有关。goog...
  • joy_jiangyan
  • joy_jiangyan
  • 2007年07月30日 11:50
  • 2729

SQL Server 2008 中使用SQLDMO 备份数据 还原数据等

 SQL Server 异常 COM 类工厂中CLSID 为 {10021F00-E260-11CF-AE68-00AA004A34D5} 的组件时失败,原因是出现以下错误: 80070005 ...
  • yanzhibo
  • yanzhibo
  • 2014年03月18日 23:04
  • 3519

关于SQLDMO的使用

关于SQLDMO的使用2005-4-5 16:13:52lw549    sqldmo.dll是一个com,安装SQLServer后位于Program Files/Microsoft SQL Serv...
  • lw549
  • lw549
  • 2005年04月05日 16:18
  • 3760

在C#中用SQLDMO创建SQL数据库

        ///              ///   创建数据库。           ///           ///   表示要连接的服务器名        ///   指定要创建的数...
  • ltolll
  • ltolll
  • 2006年08月30日 16:24
  • 1858
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在VB.NET中应用SQLDMO
举报原因:
原因补充:

(最多只允许输入30个字)