在VB.NET中應用SQLDMO

來源:互聯網
上載者:User

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實現帶進度條的Database Backup:

'添加進度條ProgressBar1控制項
'引用Microsoft SQLDMO Object Library
'聲明

Public WithEvents bkps As SQLDMO.Backup

'Database 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("Database Backup完成", 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



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。