列出局域网內所有SQL Server

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;
}

阅读更多
版权声明:原创文章转载时请附上原文链接 https://blog.csdn.net/aniven/article/details/556306
个人分类: C++/BCB开发
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭