怎样在程序中得到本地的SQL Server 2000服务器名?

arludy 2004-05-08 12:54:02
我想在delphi中实现用列表框列出本地机器上的SQL Server 2000服务器名和相应的数据库名,应该怎么办?我的毕业设计,各位高手多多指教。
...全文
51 6 点赞 打赏 收藏 举报
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
勇者无敌_ 2004-05-08
procedure Tfrmsetserver.getserver();
var
sqlserver:variant;
serverlist:variant;
i,nservers:integer;
begin
sqlserver:=createoleobject('SQLDMO.Application');
serverlist:=sqlserver.listavailablesqlservers;
nservers:=serverlist.count;
self.ComboBox1.Clear;
for i:=1 to nservers do
self.ComboBox1.Items.Add(serverlist.item(i));
self.ComboBox1.ItemIndex:=0;
sqlserver:=NULL;
serverlist:=NULL;
end;
  • 打赏
  • 举报
回复
Tensionli 2004-05-08
可以用一个INI文件吗
  • 打赏
  • 举报
回复
fenght2004 2004-05-08
知道了服务器就好办了,
建立一个连接到master数据库,一个查询控件(select * from sysdatabases)就可以了
  • 打赏
  • 举报
回复
arludy 2004-05-08
dukelang,还有数据库名呢?
  • 打赏
  • 举报
回复
kaershaw 2004-05-08
别忘了uses ComObj;


  • 打赏
  • 举报
回复
bdesql 2004-05-08
这太简单了麻,SQL 2000服务器名其实就是网终标识的计算机名。 想想办法就OK了。搞定了别忘了谢我。
  • 打赏
  • 举报
回复
相关推荐
发帖
数据库相关
加入

2462

社区成员

Delphi 数据库相关
申请成为版主
帖子事件
创建了帖子
2004-05-08 12:54
社区公告
暂无公告