| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 677 人关注过本帖
标题:[求助]列出正在运行的SQL SERVER
取消只看楼主 加入收藏
brian96
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2005-4-21
收藏
 问题点数:0 回复次数:1 
[求助]列出正在运行的SQL SERVER

Private Sub Command1_Click() Dim oAppliction As New SQLDMO.Application Dim oNameList As SQLDMO.NameList Dim i As Integer Dim strOldServer As String On Error Resume Next Screen.MousePointer = vbHourglass '保存旧数据 strOldServer = cboServerName Err.Clear

'列出可以使用的SQL Server实例 Set oNameList = oAppliction.ListAvailableSQLServers

'如果正确则列出 If Err.Number = 0 Then '如果有可以利用的SQL Server实例 If oNameList.Count >= 1 Then '添加到下拉列表框中 With List1 .Clear For i = 1 To oNameList.Count .AddItem oNameList.Item(i) Next i '恢复旧数据 .Text = strOldServer End With End If End If '断开连接,并释放对象 oAppliction.Quit Set oAppliction = Nothing Screen.MousePointer = vbDefault End Sub 我用这段代码后只能列出local,不知问题出在哪?是不是这种方法在XP里不支持?

搜索更多相关主题的帖子: SQL SERVER 运行 
2005-05-05 12:47
brian96
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2005-4-21
收藏
得分:0 
有谁还知道其他的方法吗?焦急

2005-05-09 08:39
快速回复:[求助]列出正在运行的SQL SERVER
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025641 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved