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 ShortDim sqlApp As New SQLDMO.Application()Dim ServerName As SQLDMO.NameListServerName = sqlApp.ListAvailableSQLServersFor i = 1 To ServerName.CountcbServer.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.DatabaseFor Each db In oServer.DatabasesMe.cboDatabase.Items.Add(db.Name)Next |
得到所有的表、視圖、存儲過程：
Dim I As ShortDim oServer As New SQLDMO.SQLServer()oServer.Connect("(local)", "sa", "sa")Dim db As New SQLDMO.Database()For I = 1 To oServer.Databases.CountIf oServer.Databases.Item(I, "dbo").Name = "Northwind" Then Exit ForNextIf I > oServer.Databases.Count Then Exit Subdb = oServer.Databases.Item(I, "dbo")ListBox1.Items.Clear()'得到所有的存儲過程For I = 1 To db.StoredProcedures.CountListBox1.Items.Add(db.StoredProcedures.Item(I, "dbo").Name)Next'得到所有的表For I = 1 To db.Tables.CountListBox1.Items.Add(db.Tables.Item(I, "dbo").Name)Next' 得到所有的視圖For I = 1 To db.Views.CountListBox1.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.ClickDim oSQLServer As New SQLDMO.SQLServer()oSQLServer.LoginSecure = FalseoSQLServer.Connect("(local)", "sa", "sa") '連接服務器 Me.Cursor = Windows.Forms.Cursors.WaitCursorbkps = CreateObject("SQLDMO.Backup")bkps.Database = "Northwind" '指定需備份的數據庫 bkps.Action = 0bkps.Files = "f:Northwind.bak" '指定備份文件 bkps.Initialize = TrueProgressBar1.Value = 0ProgressBar1.Maximum = 100Me.Cursor = Windows.Forms.Cursors.Default()Application.DoEvents()Dim mouseCur As CursorMe.Cursor = Windows.Forms.Cursors.WaitCursorbkps.SQLBackup(oSQLServer)ProgressBar1.Value = 100Application.DoEvents()bkps = NothingMe.Cursor = Windows.Forms.Cursors.Default()MsgBox("數據庫備份完成", MsgBoxStyle.Information, "系統消息")End Sub'顯示進度 Private Sub bkps_PercentComplete(ByVal Message As String, ByVal Percent As Integer) Handles bkps.PercentCompleteProgressBar1.Value = ProgressBar1.Maximum * (Percent / 100)End Sub |
作者：http://www.zhujiangroad.com
來源：http://www.zhujiangroad.com
※以上資訊由網路資料整理而成，若有遺誤概以來源為準，本站不負任何相關責任。
※如果您認為網站上資訊侵犯了您的版權，請告訴我們
按這裡，我們將即時將您的版權資料移除。
