如何获得本地SQL SEVER 的数据库

如题，获得本地服务器的数据库名称，或者能获得局域网上的所有服务器名称，再获得其下的数据库，大侠伸手帮忙，感激不尽

[56 byte] By [kkhunter-小佛] at [2008-3-14]

«« 请问如何用docmd.runsql的方法更新一个字段
»» 一个好的java资料网站,分类很细

# 1

Select * From Master..sysdatabases就是對應的實例中的所有數據庫了

mustudent-小生蚕豆;恆久忍耐! at 2007-10-20 >

top of Msdn China Tech,visual basic,数据库(包含打印，安装，报表)...

# 2

Private Sub GetSqlServer()
Dim oSQLServerDMOApp As Object
Dim i As Integer
Dim namX As Object
On Error Resume Next
Set oSQLServerDMOApp = CreateObject("SQLDMO.Application")
Set namX = oSQLServerDMOApp.ListAvailableSQLServers
For i = 1 To namX.Count
cmbServer.AddItem namX.Item(i)
Next
cmbServer.ListIndex = 0

End Sub

yangao-人品决定一切，相貌决定人品！ at 2007-10-20 >

# 3

请问 yanyao 还需要引用什么吗？

kkhunter-小佛 at 2007-10-20 >

# 4

不需要

yangao-人品决定一切，相貌决定人品！ at 2007-10-20 >

# 5

添加Microsoft SQLDMO Object Library引用
读取所有服务器:
Set sqlApp = New Application
Set sqlNameList = sqlApp.ListAvailableSQLServers()
List.Clear
For intIndex = 1 To sqlNameList.Count - 1
List.AddItem sqlNameList.Item(intIndex)
Next intIndex
sqlApp.Quit
Set sqlApp = Nothing

读取所有数据库:
Set sqlServer = New sqlServer
sqlServer.Connect ServerName, UserName, Password

List.Clear
For intIndex = 1 To sqlServer.Databases.Count
List.AddItem sqlServer.Databases.Item(intIndex).Name
Next intIndex
sqlServer.Close
Set sqlServer = Nothing

GoldFox-金色狐狸 at 2007-10-20 >

# 6

Dim strSQL As String
Dim Rst As Adodb.Recordset
Dim strCnn As String
Dim i As Integer
Set Rst = New Adodb.Recordset
strSQL = "select * from sysdatabases"
strCnn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=111117;Initial Catalog=master;Data Source=(local)"
Rst.Open strSQL, strCnn, adOpenDynamic, adLockReadOnly
For i = 1 To Rst.RecordCount
cboDB.AddItem Rst.Fields(0).Value
Next i
为什么我获得的RECORDCOUNT 是－1 ？

kkhunter-小佛 at 2007-10-20 >

# 7

为什么我读取服务器总失败？我用ADODC控件也是这样，枚举服务器总失败，我是在本机装的SQL SEVER服务器端和客户端，好像装的是开发版，谁能给解释下，谢啦

kkhunter-小佛 at 2007-10-20 >

# 8

还有人能帮我吗，没有就结贴了：）

kkhunter-小佛 at 2007-10-20 >

# 9

yangao的是正解

zq972-最近不想写代码，好累~~~~ at 2007-10-20 >

visual basic

visual basic Hot Topic

文件是否已经打开?

微软中文技术开发社区是一个面向广大程序员与开发者的信息资讯网站,主要介绍和发布各类程序示例和所遇到的问题,是IT技术社区,为IT专业技术人员提供最全面的信息传播和服

如何获得本地SQL SEVER 的数据库

visual basic Hot Topic

visual basic

Site Classified