怎样取得计算机名？或者怎样在局域网中取得服务器的名字？谢谢

Question

  procedure TForm1.Button1Click(Sender: TObject);
var
   SQLServer:Variant;
   ServerList:Variant;
   i,nServers:integer;
   sRetValue:String;
begin
  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;
end; 自动取得网内的sql服务器名
 
 

Answer 1

谢谢，如果有多台计算机同时装有SQLSERVER，怎样取得我想要的服务器呢？
还有，刚安装的SQLSERVER服务器上并没有我所建立的数据库（表和存储过程）怎样才能让软件发布的时候就自动建立呢？我见过一种方法是让用户在QUEYRANALYS中执行所建立的数据库的SQL语句，但我并不想这样，有什么方法呢？

Answer 2

上面那段程序是可以查找到网内的所有服务器的，你可以用一个下拉控件来选择其中一个呀，
  第二个问题我回答不了你，不好意思了，不过你可以去sql那个栏目查一下建立数据库的脚本就行了 其实你用sql2000中先建立一个你想要的库，然后看一下他的脚本源码，再回到delphi中改一下不就行了吗？

Answer 3

你的意思是说将数据库的SQL语句脚本放到delphi里执行，而不是到sql环境了执行吗？在delphi里用什么控件，不怕你笑话，我还真不知道。

Answer 4

你不是想用delphi把数据库也建好去吗？我刚才的意思是先看一下建库的脚本，然后用delphi来写程序，用adoquery这个控件来写sql 语句

Answer 5

我觉得iamycfwsy(毅峰)  的方法挺好的!