共10 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：怎样获取局域网SQL服务器列表？
1楼
lvep 发表于：2011/12/13 20:41:00 类似VB代码：
Dim i As Integer
Dim sqlApp As New SQLDMO.Application
Dim ServerName As SQLDMO.NameList
Set ServerName = sqlApp.ListAvailableSQLServers
For i = 1 To ServerName.Count
Combo1.AddItem ServerName.Item(i) '列出可用的服务器
Next
Dim oServer As New SQLDMO.SQLServer
oServer.Connect "(local)", "sa", ""
Dim db As SQLDMO.Database
For Each db In oServer.Databases
Combo2.AddItem db.Name '列出所有的数据库
Next
在狐表中怎样才能实现？
Dim i As Integer
Dim sqlApp As New SQLDMO.Application
Dim ServerName As SQLDMO.NameList
Set ServerName = sqlApp.ListAvailableSQLServers
For i = 1 To ServerName.Count
Combo1.AddItem ServerName.Item(i) '列出可用的服务器
Next
Dim oServer As New SQLDMO.SQLServer
oServer.Connect "(local)", "sa", ""
Dim db As SQLDMO.Database
For Each db In oServer.Databases
Combo2.AddItem db.Name '列出所有的数据库
Next
在狐表中怎样才能实现？
2楼
狐狸爸爸 发表于：2011/12/13 21:24:00上面的代码可以直接在foxtable使用的。
你得有sqldmo.dll这个文件，并已经注册到系统了。
然后在foxtable引用下面的Interop.SQLDMO.dll文件即可。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:interop.sqldmo.rar |
3楼
lihe60 发表于：2011/12/14 8:06:00那就把这个功能加到foxtable上去，用户可以直接用，不用有其他操作。
4楼
lvep 发表于：2011/12/14 17:44:00谢谢！问题解决了！
5楼
lihe60 发表于：2011/12/15 8:14:00以下是引用lvep在2011-12-14 17:44:00的发言：
谢谢！问题解决了！
如何解决，可以与大家分享么？
6楼
狐狸爸爸 发表于：2011/12/15 8:22:00解决方法在2楼
7楼
lihe60 发表于：2011/12/15 8:22:00如何列出局域网内所有SQL?
8楼
lihe60 发表于：2011/12/15 8:44:00以下是引用狐狸爸爸在2011-12-15 8:22:00的发言：
解决方法在2楼
解决方法在2楼
有这个提示！
此主题相关图片如下：未命名.gif
9楼
狐狸爸爸 发表于：2011/12/15 9:03:00这不是你玩的，还是别玩了
10楼
lihe60 发表于：2011/12/15 9:08:00贺老师，也别打击我的积极性嘛！我也是忠实的狐友哇！
共10 条记录, 每页显示 10 条, 页签:
[1]