1565
社区成员
- 主页
...全文
请发表友善的回复…
发表回复
zws 2002-02-20
gz
shenjingyao 2002-02-20
up
武稀松 2002-02-20
还有好的方法了吗
iampole 2002-02-20
以上两位说的对，做SQL SERVER 的程序一定要熟悉DMO，不过这可能需要花一小点时间。如果是仅仅需要这个功能，照torble(阿裕) 抄就行了。
torble 2002-02-20
用SQLDOM最容易：
procedure TForm1.Button1Click(Sender: TObject);
var
SQLServer:Variant;
ServerList:Variant;
i,nServers:integer;
sRetValue:String;
begin
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList:= SQLServer.ListAvailableSQLServers;
nServers:=ServerList.Count;
for i := 1 to nservers do
ListBox1.Items.Add(ServerList.Item(i));
SQLServer:=NULL;
serverList:=NULL;
end;
// 从大富翁偷来的
procedure TForm1.Button1Click(Sender: TObject);
var
SQLServer:Variant;
ServerList:Variant;
i,nServers:integer;
sRetValue:String;
begin
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList:= SQLServer.ListAvailableSQLServers;
nServers:=ServerList.Count;
for i := 1 to nservers do
ListBox1.Items.Add(ServerList.Item(i));
SQLServer:=NULL;
serverList:=NULL;
end;
// 从大富翁偷来的
qiubolecn 2002-02-20
用SQL-DMO或NetServerEnum都可以，不过后者要在NT下运行，烦
VSaber 2002-02-20
我只知道可以通过data links接口可以调出标准的ado连接参数配置对话框!里面倒是有列出sql服务器列表的,可惜不知道它怎么做的,或许详细研究一下这套接口会有答案!
VSaber 2002-02-20
我只知道可以通过data links接口可以调出标准的ado连接参数配置对话框!里面倒是有列出sql服务器列表的,可惜不知道它怎么做的,或许详细研究一下这套接口会有答案!
Liusp 2002-02-20
推一把