如何列举网络中的SQL-Server服务器

自己制作了一个类似ODBC登陆的SQL-Server服务器登陆的窗口(如下图),里面包含服务器名称、数据库名称、用户名、密码、连接等待时间。。。。这里讲解一下其中“Server”项,用复合框下拉列表列举网络中SQL-Server服务器名称的实现。(至于如何列举服务器中的数据库名称,论坛中有很多帖子可搜索一下,方法和这个差不多)

![](http://dev.csdn.net/article/63/C:/Documents and Settings\陈平\桌面\1.gif)

首先需要引用SQLDMO。方法:在“工具”-“引用”中引用 Microsoft SQLDMO object Library。
代码:
Private Sub Combo1_DropDown()
Dim svr As New SQLDMO.SQLServer
Dim i As Integer
If Combo1.ListCount > 0 Then
Dim Dn As String
Dn = Trim(Combo2.Text) 'combo1是列数据库名的combo控件
Combo1.Clear
Combo1.Text = Dn
SendKeys "{END}"
'以上代码实现下拉时原来内容不被清空
Else
End If
svr.Connect "ServerName", "UerID", "PWD" '3个引号内分别为服务器名,用户名,密码
For i = 1 To svr.Databases.Count
Combo1.AddItem svr.Databases(i).Name
Next
End Sub

原问题帖: http://community.csdn.net/Expert/topic/3372/3372347.xml?temp=.9784357 (注:super...就是我)

Published At
Categories with Web编程
Tagged with
comments powered by Disqus