vb搜索局域网内所有SQL Server服务器和指定SQL Server服务器上的所有数据库
来源:互联网 发布:unity3d涂鸦插件 编辑:程序博客网 时间:2024/05/16 01:42
引用Microsoft SQLDMO Object Library后,函数SQLServerList搜索所有SQL Server服务器,SQLDatabaseList搜索指定SQL Server服务器上的所有数据库
Public Function SQLServerList(ByRef strServerName() As String, _
Optional ByRef rlngErrNum As Long, _
Optional ByRef rstrErrDescr As String) As Boolean
Dim objServerApp As SQLDMO.Application
Dim objServers As SQLDMO.NameList
Dim lngServerCount As Long
Dim I As Long
On Error GoTo SQLServerListErr
SQLServerList = False
Set objServerApp = New SQLDMO.Application
Set objServers = objServerApp.ListAvailableSQLServers
lngServerCount = objServers.Count
ReDim strServerName(lngServerCount - 1)
For I = 1 To lngServerCount
strServerName(I - 1) = objServers.Item(I)
Next I
SQLServerList = True
Err.Clear
SQLServerListErr:
Set objServers = Nothing
Set objServerApp = Nothing
rlngErrNum = Err.Number
rstrErrDescr = Err.Description
End Function
Public Function SQLDatabaseList(ByVal vstrServer As String, _
strDatabase() As String, _
Optional ByVal vstrUser As String = "sa", _
Optional ByVal vstrPassWord As String = "", _
Optional rlngErrNum As Long, Optional rstrErrDescr As String) As Boolean
Dim objServer As SQLDMO.SQLServer
Dim lngDatabaseCount As Long
Dim I As Long
On Error GoTo SQLDatabaseListErr
SQLDatabaseList = False
Set objServer = New SQLDMO.SQLServer
objServer.Connect vstrServer, vstrUser, vstrPassWord
lngDatabaseCount = objServer.Databases.Count
ReDim strDatabase(lngDatabaseCount - 1)
For I = 1 To lngDatabaseCount
strDatabase(I - 1) = objServer.Databases.Item(I, "dbo").Name
Next I
SQLDatabaseList = True
Err.Clear
SQLDatabaseListErr:
Set objServer = Nothing
rlngErrNum = Err.Number
rstrErrDescr = Err.Description
End Function
- vb搜索局域网内所有SQL Server服务器和指定SQL Server服务器上的所有数据库
- Delphi遍历局域网内所有的Sql Server服务器
- C#列出局域网内所有的SQL SERVER服务器
- 获取局域网内所有可用的SQL Server服务器列表
- 枚举局域网内所有的 SQL Server 服务器实例名
- 取得局域网里所有的SQL Server服务器
- VB 获取局域网内所有SQL Server实例(SqlDataSourceEnumerator)
- 如何获取局域网中的所有 SQL Server 服务器
- 如何获取局域网中的所有 SQL Server 服务器
- 如何列举出网络上所有的SQL Server服务器
- C#获取局域网内sql server数据库服务器列表
- SQL Server中获取指定时间段内的所有月份
- SQL Server中获取指定时间段内的所有日期
- sql server 结束指定数据库所有进程
- C#获得网络中所有SQL Server服务器数据库名称
- C#获得网络中所有SQL Server服务器数据库名称
- C#获取局域网内所有数据库服务器
- 取得局域网内的所有数据库服务器列表
- SAP解析ERP悲剧
- 手机铃声制作的工具
- 基于LUCENE的通用检索框架
- 想让自己变得更聪明吗?(转)
- 测试一篇
- vb搜索局域网内所有SQL Server服务器和指定SQL Server服务器上的所有数据库
- linux unix Find 命令
- 电脑坏了--关于联想笔记本声卡驱动
- excel应用于手机资费审查
- Style Report简介
- Style Report是web报表工具首选
- 开始加入Bloger行列
- 2004年人民大学新闻研究生参考书目(四)
- vc多线程深入分析