 |
操作系统：win2000
编程工具：visual basic 6.0
问题：如何列举出网络（局域网）上所有的SQL Server服务器,如用友的软件一样。
Sql Server客户端连接向导中的那个sql server服务器列表如何做。
水平: 高手(李靖)
|
| |
|
 |
 Racine的意见：
引用Microsoft SQLDMO Object Library
Private Sub Nsqlser_DropDown()
If Nsqlser.ListCount > 0 Then Exit Sub
Dim Server As SQLDMO.NameList '名字列表namelist
Dim appDMO As New SQLDMO.Application 'sqldmo应用
Dim i As Integer
Set Server = appDMO.ListAvailableSQLServers '得到所有的sql sever 列表
For i = 1 To Server.Count
Nsqlser.AddItem Server(i) 'Nsqlser为下拉列表框
Next
End Sub
利用 "select name from sysdatabases" 语句,可以得到服务器中所有数据库名称!
孟维恒的意见：
SELECT name FROM master.dbo.sysdatabases
lvfu的意见：
我知道两种方法：
１、用SQLDMO：
调用application对象函数：ListAvailableSQLServers( )语法为
object.ListAvailableSQLServers( ) as NameList
此函数只支持NT4.0 server、workstation和win2000
2、用DB-Library:
调用函数：dbservernum,语法：
INT dbserverenum (
USHORT searchmode,
LPSTR servnamebuf,
USHORT sizeservnamebuf,
LPUSHORT numentries );
需要更多信息请查阅在线帮助！
此问题由Racine等回答。
附加关键字：编程, 源程序, programming, source code, Visual Basic, VB, 数据库, database, query。
|
| |
|
| |
|
| |
|
|
如何列举出网络上所有的SQL Server服务器