记账软件版1楼: 怎么取得SQL SERVER 服务器的列表

2楼: function SQLServerList(var ServerList:Tstrings):integer;
var
SQLServer:Variant;
SvrList:Variant;
i,nServers:integer;
sRetValue:String;
begin
SQLServer := CreateOleObject(＇＇SQLDMO.Application＇＇);
SvrList:= SQLServer.ListAvailableSQLServers;
nServers:=SvrList.Count;
serverlist.Clear;
for i := 1 to nservers do
serverlist.Add(svrlist.Item(i));
SQLServer:=NULL;
svrList:=NULL;
result:=nServers;
end; 如管家进销存软件

3楼: {=================================================================
功 能: 返回網絡中SQLServer列表
參 數: List: 需要填充的List
返回值: 成功: True,並填充List 失敗 False
=================================================================}
Function GetSQLServerList(var List: Tstringlist): boolean;
var
i: integer;
sRetValue: String;
SQLServer: Variant;
ServerList: Variant;
begin
Result := False;
List.Clear;
try
SQLServer := CreateOleObject(＇＇SQLDMO.Application＇＇);
ServerList := SQLServer.ListAvailableSQLServers;
for i := 1 to Serverlist.Count do
list.Add (Serverlist.item(i));
Result := True;
Finally
SQLServer := NULL;
ServerList := NULL;
end;
end;

4楼: 谢谢各位了，但是我试了不行啊，列表是空的

5楼: 哈哈，比你快了13S

6楼: use comobj
var
SQLServer:Variant;
ServerList:Variant;
i,nServers:integer;
begin
SQLServer := CreateOleObject(＇＇SQLDMO.Application＇＇);
ServerList:= SQLServer.ListAvailableSQLServers;
nServers:=ServerList.Count;
for i := 1 to nservers do
Listbox.Items.Add(ServerList.Item(i));
SQLServer:=NULL;
serverList:=NULL;

记账软件版7楼: 这个方法好像需要安装sqlserver才能支持

8楼: 我有装

9楼: 我装的是单机板的

10楼: os:=winxp

11楼: http://www.2ccc.com/article.asp？articleid=2798
兄弟，这里有份代码，相信是你要找的。

12楼: 获取局域网所有SQL实例：
function Tbrowseform.GetSQLServerList(Strings:TStrings):boolean;
var // 取得局域网内有效的SQL服务器名称
SQLServer: Variant;
ServerList: Variant;
i,serCount:integer;
begin
Strings.Clear;
try
SQLServer := CreateOleObject(＇＇SQLDMO.Application＇＇);
ServerList := SQLServer.ListAvailableSQLServers;
sercount:= ServerList.Count;
Result:=sercount>0;
for i:=1 to sercount do
if ServerList.item(i)<>＇＇＇＇ then Strings.Add(ServerList.item(i));
SQLServer := NULL;
serverList := NULL;
except
result:=false;
end;
end;
procedure Tbrowseform.BitBtn3Click(Sender: TObject);
begin

ComboBox1.items.Clear;
listbox2.Clear ;
listbox3.Clear ;
try
begin
GetSQLServerList(ComboBox1.Items);
combobox1.ItemIndex :=0;
if combobox1.Items.Count <>0 then
Bitbtn4.Enabled :=true
else
begin
showmessage(＇＇本机没有安装SQL或SQL Sever服务器未启动,或有其他错误!＇＇);
Bitbtn4.Enabled :=false;
end;
end;
except
showmessage(＇＇本机没有安装SQL或SQL Sever服务器未启动,或有其他错误!＇＇);
end; 如服饰进销存管理软件

13楼: http://www.2ccc.com/article.asp？articleid=2798