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

arludy 2004-05-08 12:54:02
我想在delphi中实现用列表框列出本地机器上的SQL Server 2000服务器名和相应的数据库名,应该怎么办?我的毕业设计,各位高手多多指教。
...全文
78 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
勇者无敌_ 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了。搞定了别忘了谢我。

2,507

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧