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

王朝mssql·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

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

首先需要引用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...就是我)

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航