我们在建odbc的系统msn时都可以通过下拉列表选择局域网内的服务器
现在我想在delphi的一个下拉列表框中显示这些服务器名称,
请问各位高手如何实现?
现在我想在delphi的一个下拉列表框中显示这些服务器名称,
请问各位高手如何实现?
解决方案 »
- tcxDBTreeList 一格显示多行文本?
- 用户分权限登陆问题
- 窗体上放flash让flash和窗体背景透明的问题,桌面宠物开发(顶有分!!!)
- 为什么用XP.Style.v2.6.0.1.FS.For.D3-7做出界面后,菜单不能显示?
- 求<delphi5开发人员指南> 北京,6也可以
- 有关SQL的问题,可能是DELPHI的BUG!
- 大家帮帮我啊,有100分啊!,伤心,真的很急55555
- 关于dbgrid控件的控件问题
- 怎么把23000/23的值转成string显示
- 请你指点------一个delphi新手
- 如何让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;