获取局域网内的数据库服务器列表以及各服务器上的数据库列表
解决方案 »
- 请教一个3D游戏键盘不接受KEY的问题
- activex问题急!急!急!急!急!急!急!急!急!急!急!急!急!急!急!
- 200分求:如何知道IDSMT正在发送的IDMessage的大小?万分感激
- 问两个Form的问题。
- 求串口通信的源程序
- 关于使用ado不要任何附加dll得问题!
- 各位帮忙介绍本Delphi好书吧!
- 请问delphi中延时函数是什么?
- 高手指教:dephi6 中使用TQuery控件的sql语句查询date类型(paradox表)如何改变日期格式?
- Delphi的DBGrid可以变色吗?受人之托,谢谢啦!
- 有关第三方控件的问题
- 如何能在WIN2000 个人版能装上SQL SERVER2000服务端?
procedure TfrmRegServer.GetServerName;
var
SQLServer:Variant;
ServerList:Variant;
i,nServers:integer;
begin
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList:= SQLServer.ListAvailableSQLServers;
nServers:=ServerList.Count;
cbServerName.Properties.Items.Clear;
for i := 1 to nservers do
cbServerName.Properties.Items.Add(ServerList.Item(i));
SQLServer:=NULL;
serverList:=NULL;
end;
//获取服务器上的数据库列表select name from sysdatabases order by name