SQLDMO（SQL Distributed Management Objects，SQL分布式管理對象）封裝 Microsoft SQL Server 2000 數據庫中的對象。SQL-DMO 允許用支持自動化或 COM 的語言編寫應用程序，以管理 SQL Server 安裝的所有部分。SQL-DMO 是 SQL Server 2000 中的 SQL Server 企業(yè)管理器所使用的應用程序接口 (API)；因此使用 SQL-DMO 的應用程序可以執(zhí)行 SQL Server 企業(yè)管理器執(zhí)行的所有功能。 　　SQL-DMO 用于必須包含 SQL Server 管理的任何自動化或 COM 應用程序，例如： 　　1. 封裝 SQL Server 作為自己的數據存儲并想盡量減少用戶的 SQL Server 管理任務的應用程序。 　　2. 在程序本身并入了專門的管理邏輯的應用程序。 　　3. 想在自己的用戶界面中集成 SQL Server 管理任務的應用程序。 　　SQLDMO對象來自SQLDMO.dll，SQLDMO.dll是隨SQL Server2000一起發(fā)布的。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實現(xiàn)帶進度條的數據庫備份： '添加進度條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, "系統(tǒng)消息") 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

轉載于:https://www.cnblogs.com/qiaoxing/archive/2006/03/06/343997.html

總結

以上是生活随笔為你收集整理的在VB.NET中应用SQLDMO的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。