在中应用物业

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对象来自l，l是随SQL Server2000一起发布的。l自身是一个COM对象，因此，在你的.NET项目里必须先引用它。

得到络中的SQL服务器的列表：

\'得到SQL服务器的列表

\'必须安装SQL SERVER 2000 SP2 及以上版本

Dim I As Short

Dim sqlApp As New plication()

Dim ServerName As List

ServerName = stAvailableSQLServers

For i = 1 To unt

d(em(i))

Next

得到指定SQL服务器所有数据库的列表：

\'得到指定SQL服务器所有数据库的列表

Dim sqlApp As New plication()

Dim oServer As New LServer()

nnect(\"(local)\", \"sa\", \"sa\")

ear()

Dim db As tabase

For Each db In tabases

d()

Next

得到所有的表、视图、存储过程：

Dim I As Short

Dim oServer As New LServer()

nnect(\"(local)\", \"sa\", \"sa\")

Dim db As New tabase()

For I = 1 To unt

If em(I, \"dbo\").Name = \"Northwind\" Then Exit For

Next

If I unt Then Exit Sub

db = em(I, \"dbo\")

ear()

\'得到所有的存储过程

For I = 1 To unt

d(em(I, \"dbo\").Name)

Next

\'得到所有的表

For I = 1 To unt

d(em(I, \"dbo\").Name)

Next

\' 得到所有的视图

For I = 1 To unt

d(em(I, \"dbo\").Name)

Next

利用SQLDMO实现带进度条的数据库备份：

\'添加进度条ProgressBar1控件

\'引用Microsoft SQLDMO Object Library

\'声明

Public WithEvents bkps As ckup

\'数据库备份操作

Private Sub btnBackUp_Click(ByVal sender As ject, ByVal e As entArgs) Handles ick

Dim oSQLServer As New LServer()

ginSecure = False

nnect(\"(local)\", \"sa\", \"sa\") \'连接服务器

rsor = itCursor

bkps = CreateObject(\"ckup\")

tabase = \"Northwind\" \'指定需备份的数据库

tion = 0

les = \"f:\\k\" \'指定备份文件

itialize = True

lue = 0

ximum = 100

rsor = fault()

Events()

Dim mouseCur As Cursor

rsor = itCursor

LBackup(oSQLServer)

lue = 100

身体直直的向前扑去。好在帅哥身手敏捷 Events()

bkps = Nothing

rsor = fault()

MsgBox(\"数据库备份完成\", rmation, \"系统消息\")

End Sub

\'显示进度

Private Sub bkps_PercentComplete(ByVal Message As String, ByVal Percent As Integer) Handles rcentComplete

lue = ximum * (Percent / 100)

End Sub查看本文来源

宝宝拉稀吃什么
常州治疗白癜风医院费用
齐齐哈尔白癜风专业医院