在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 及以上版本 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 |