搜索服务器 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 搜索服务器

共有3175人关注过本帖树形打印复制链接主题：搜索服务器

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/3 11:09:00 [显示全部帖子]

什么意思？怎么搜索，搜索什么？具体要实现什么？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/3 14:59:00 [显示全部帖子]

以下是引用hbhb在2017/7/3 14:46:00的发言：
谢谢！为何如此慢，要5秒钟？优化一下如何？

这个无法优化的了。不然，你就用一个表记录信息，直接从表里取值。而表的值，当都写一个按钮手动获取。

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/3 16:04:00 [显示全部帖子]

以下是引用hbhb在2017/7/3 15:14:00的发言：
什么意思不懂，劳驾来个实例？

叫你不要每次都去查找。叫你把查找后的数据保存在表格里面，直接查你的表格。

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/17 17:39:00 [显示全部帖子]

以下是引用hbhb在2019/1/17 16:59:00的发言：
大师：您好！上面的代码，为何不能把所有的数据库服务器全部列出？只列出计算机名称，我装了sql2005，SQL2008。各有一个实例。

我要全部列出，怎么改代码？

没办法。

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/17 18:34:00 [显示全部帖子]

本地的搜索？

Dim sc = System.ServiceProcess.ServiceController.GetServices
For Each s As object In sc
    If s.ServiceName.ToLower = "mssqlserver" OrElse s.ServiceName.ToLower.indexof("mssql") >= 0 Then
        output.show(s.ServiceName)
    End If
Next

https://blog.csdn.net/wyz52126/article/details/7784258