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
管理任务的应用程序。
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
'数据库备份操作
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
没有相关教程
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
