如何搜索局域网SQLServer服务器名称的方法

[极速小王子]

如何搜索局域网所有SQLServer服务器名称?

[猎人66]

VC++的东东可以吗？

[bcbsoft]

Variant SQLServer;
Variant ServerList;
int i,nServers;
String sRetValue;
try
{
SQLServer = CreateOleObject("SQLDMO.Application");
}
catch(...)
{
ShowMessage("您的本机系统没有安装SQL Server或SQL Server客户端软件");
return;
}

ServerList= SQLServer.OleFunction("ListAvailableSQLServers");
nServers=ServerList.OlePropertyGet("Count");
ComboBox1->Items->Clear();
for(i=1;i<=nServers;i++) //将检测结果放入ComboBox1中
ComboBox1->Items->Add(ServerList.OleFunction("Item",i));
SQLServer=Unassigned;
ServerList=Unassigned;

[gdyt007]

在頭文件#include "windows.h"

[踏岸寻柳]

管用！

这些东西都是从哪儿弄来的？？？

[kataboy]

是啊!

[kataboy]

还有能不能改成搜Oracle的.

[lzwcom]

用SQL Server 的 DB Library 在2000下可以直接支持，不用装SQL Server
9X下估计不行
#include "Sql.h"
#include "Sqlext.h"
#include "Sqltypes.h"

if( !dbinit() )
{
...
}
char s[512];
char sr[512];
USHORT n;
memset(s,0,512);
memset(sr,0,512);

dbserverenum(0x0001 | 0x0002 ,s ,1000, &n);
for(int i=0,j=0,k=0;i<n;)
{
while( s[j] != '\0' )//服务器名以‘\0’结尾
{
sr[k] = s[j];
k++;
j++;
}
m_SrvList.AddString(sr);
memset(sr,0,512);
k=0;
j++;
i++;
}
dbexit();