H:
#include <Comobj.hpp>
//加一个ListBox和Button控件;
CPP:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant SQLServer;
Variant ServerList;
int nServers;
SQLServer = CreateOleObject("SQLDMO.Application");
ServerList= SQLServer.OleFunction("ListAvailableSQLServers");
nServers=ServerList.OlePropertyGet("Count");
ListBox1->Items->Clear();
for(int i=1; i<=nServers; i++)
{
ListBox1->Items->Add(ServerList.OleFunction("Item", i));
}
SQLServer=NULL;
ServerList=NULL;
}