我们在建odbc的系统msn时都可以通过下拉列表选择局域网内的服务器
现在我想在delphi的一个下拉列表框中显示这些服务器名称,
请问各位高手如何实现?
现在我想在delphi的一个下拉列表框中显示这些服务器名称,
请问各位高手如何实现?
解决方案 »
- delphi5安装失败
- delphi---如果计算到treeview的层次
- 报表问题
- 急,请教各位大侠!
- ****** [请伴水、pazee(耙子)、li_zhifu(东北人)、ehom(?!) 、warton(^=^新年快乐^=^) 等其它星级选手进来看看我这个问题 ****
- 一个可以很多人同时语音通话的软件,不需要对方IP,不需要登陆,欢迎大家下载测试
- 那位大神帮我看看 一个SDK程序 可以运行 但是只能显示一行..找不到原因啊 !!求大家帮忙啊
- 如何知道AdoQuery中的数据被修改过?
- 请问哪里有中文tts(或例程)可以下载(100分)
- 不知道如何在ADSL网我的机器上检测html消息?
- 如何让MDI中产生的子窗体的大小固定?
- 求助各位大虾,如何将Excel表中的数据导入Paradox表中?
var
SQLServer:Variant;
ServerList:Variant;
i,nServers:integer;
begin
Button1.Enabled := False;
Try
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;
Finally
Button1.Enabled := True;
End;
end;
要看你怎么用了
功 能: 返回网络中SQLServer列表
参 数:
List: 需要填充的List
返回值: 成功: True,并填充List 失败 FalseFunction 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;