以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  搜索服务器  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103207)
--  作者：hbhb
--  发布时间：2017/7/3 11:01:00
--  搜索服务器
大师：请问如何搜索服务器？
--  作者：有点甜
--  发布时间：2017/7/3 11:09:00
--  
 什么意思？怎么搜索，搜索什么？具体要实现什么？
--  作者：hbhb
--  发布时间：2017/7/3 11:34:00
--  
搜索局域网中所有的服务器，列表后，选择其中某一服务器中的目标数据库？
--  作者：有点甜
--  发布时间：2017/7/3 11:38:00
--  

参考

 

Dim instance As System.Data.Sql.SqlDataSourceEnumerator = System.Data.Sql.SqlDataSourceEnumerator.Instance
Dim DataTable As System.Data.DataTable = instance.GetDataSources()
If DataTable.Rows.Count = 0 Then
    msgbox("没有检测到sqlserver")
Else
    For Each Row As data.DataRow In DataTable.Rows
        output.show(Row("ServerName"))
    Next
End If
--  作者：hbhb
--  发布时间：2017/7/3 14:46:00
--  
谢谢！为何如此慢，要5秒钟？优化一下如何？
--  作者：有点甜
--  发布时间：2017/7/3 14:59:00
--  
以下是引用hbhb在2017/7/3 14:46:00的发言：
谢谢！为何如此慢，要5秒钟？优化一下如何？

 

这个无法优化的了。不然，你就用一个表记录信息，直接从表里取值。而表的值，当都写一个按钮手动获取。
--  作者：hbhb
--  发布时间：2017/7/3 15:14:00
--  
什么意思不懂，劳驾来个实例？
--  作者：有点甜
--  发布时间：2017/7/3 16:04:00
--  
以下是引用hbhb在2017/7/3 15:14:00的发言：
什么意思不懂，劳驾来个实例？

 

叫你不要每次都去查找。叫你把查找后的数据保存在表格里面，直接查你的表格。
--  作者：hbhb
--  发布时间：2019/1/17 16:59:00
--  
大师：您好！上面的代码，为何不能把所有的数据库服务器全部列出？只列出计算机名称，我装了sql2005，SQL2008。各有一个实例。
我要全部列出，怎么改代码？
--  作者：有点甜
--  发布时间：2019/1/17 17:39:00
--  
以下是引用hbhb在2019/1/17 16:59:00的发言：
大师：您好！上面的代码，为何不能把所有的数据库服务器全部列出？只列出计算机名称，我装了sql2005，SQL2008。各有一个实例。
我要全部列出，怎么改代码？

 

没办法。