在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 及以上版本
　　DimI AsShort
　　DimsqlApp AsNewSQLDMO.Application()DimServerName AsSQLDMO.NameList
　　ServerName =sqlApp.ListAvailableSQLServersFori =1ToServerName.Count
　　cbServer.Items.Add(ServerName.Item(i))Next
　　得到指定SQL服务器所有数据库的列表：
　　'得到指定SQL服务器所有数据库的列表
　　DimsqlApp AsNewSQLDMO.Application()DimoServer AsNewSQLDMO.SQLServer()
　　oServer.Connect("(local)", "sa", "sa")
　　cboDatabase.Items.Clear()Dimdb AsSQLDMO.DatabaseForEachdb InoServer.DatabasesMe.cboDatabase.Items.Add(db.Name)Next
　　得到所有的表、视图、存储过程：
　　DimI AsShort
　　DimoServer AsNewSQLDMO.SQLServer()
　　oServer.Connect("(local)", "sa", "sa")Dimdb AsNewSQLDMO.Database()ForI =1TooServer.Databases.CountIfoServer.Databases.Item(I, "dbo").Name ="Northwind"ThenExitFor
　　Next
　　IfI >oServer.Databases.Count ThenExit Subdb =oServer.Databases.Item(I, "dbo")
　　ListBox1.Items.Clear()'得到所有的存储过程
　　ForI =1Todb.StoredProcedures.Count
　　ListBox1.Items.Add(db.StoredProcedures.Item(I, "dbo").Name)Next
　　'得到所有的表
　　ForI =1Todb.Tables.Count
　　ListBox1.Items.Add(db.Tables.Item(I, "dbo").Name)Next
　　'得到所有的视图
　　ForI =1Todb.Views.Count
　　ListBox1.Items.Add(db.Views.Item(I, "dbo").Name)Next
　　利用SQLDMO实现带进度条的数据库备份：
　　'添加进度条ProgressBar1控件 '引用Microsoft SQLDMO Object Library '声明
　　PublicWithEventsbkps AsSQLDMO.Backup'数据库备份操作
　　PrivateSubbtnBackUp_Click(ByValsender AsSystem.Object, ByVale AsSystem.EventArgs) HandlesbtnBackUp.ClickDimoSQLServer AsNewSQLDMO.SQLServer()
　　oSQLServer.LoginSecure =FalseoSQLServer.Connect("(local)", "sa", "sa") '连接服务器
　　Me.Cursor =Windows.Forms.Cursors.WaitCursor
　　bkps =CreateObject("SQLDMO.Backup")
　　bkps.Database ="Northwind"'指定需备份的数据库
　　bkps.Action =0bkps.Files ="f:Northwind.bak"'指定备份文件
　　bkps.Initialize =TrueProgressBar1.Value =0ProgressBar1.Maximum =100
　　Me.Cursor =Windows.Forms.Cursors.Default()
　　Application.DoEvents()DimmouseCur AsCursorMe.Cursor =Windows.Forms.Cursors.WaitCursor
　　bkps.SQLBackup(oSQLServer)
　　ProgressBar1.Value =100Application.DoEvents()
　　bkps =Nothing
　　Me.Cursor =Windows.Forms.Cursors.Default()MsgBox("数据库备份完成", MsgBoxStyle.Information, "系统消息")End Sub
　　'显示进度
　　PrivateSubbkps_PercentComplete(ByValMessage AsString, ByValPercent AsInteger) Handlesbkps.PercentComplete
　　ProgressBar1.Value =ProgressBar1.Maximum *(Percent /100)End Sub

本文转自
http://hi.baidu.com/talent_xiaoqiang/blog/item/0c87d21117e5d114b9127bfd.html

 

另外：

在程序做安装部署的时候在没有安装SQL2005的机器上需要注册此SQLDMO.DLL 。注册方法：

1、把已安装SQL2005的机器上的C:/Program Files/Microsoft SQL Server/80/Tools/Binn目录下的Resources文件夹和SQLDMO.DLL文件一起Copy到目标计算机的System32目录下

2、regsvr32 C:/WINDOWS/system32/SQLDMO.DLL