.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
如何列举网络中的SQL-Server服务器

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

自己制作了一个类似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...就是我)




相关文章

相关软件