bcb中寻找本机或者服务器上活动的SQLServer

又发现点有用的东西，继续收集。。。。

 

#include <OleServer.hpp>  //包含头文件

Variant  SQLServer;
  Variant  Serverlist;
  int i,nServers;
  String aRetValue;
   try
   {
    SQLServer=CreateOleObject("SQLDMO.Application");
   }
   catch(... )
   {
    ShowMessage("你的本机未安装SQL Server 或SQLServer客户端");
    return;
   }
   Serverlist=SQLServer.OleFunction("ListAvailableSQLServers");
   nServers=Serverlist.OlePropertyGet("Count");
   lst_SQLSrvList->Items->Clear();
   //
   for(i=1;i<=nServers;i++)
   //lst_SQLSrvList->Items[i]->
   lst_SQLSrvList->Items->Add(Serverlist.OleFunction("Item",i));
   lst_SQLSrvList->ItemIndex=0;
   SQLServer=Unassigned;
   Serverlist=Unassigned;

使用List Box 显示活动目录