想用Java做获取局域网内所有SQL服务器列表的功能,不知能否实现

myelan myelan 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
我找到一片相似的文章
“想用VB做获取局域网内所有SQL服务器列表的功能,不知能否实现”在FAQ里面

Q : 想用VB做获取局域网内所有SQL服务器列表的功能,不知能否实现?
主要解答者: pengdali 提交人: lcx_csdn
感谢: fengzeng、caiyunxia、pengdali、pengdali
审核者: tjan 论坛对应贴子: 查看
A :


运行:osql -L --参数必须大写

VB:
function TFormDataSet.GetSQLServer(ComboBox: TComboBox): Boolean;
var
SQLServer: Variant;
ServerList: Variant;
i, nServers: integer;
sRetValue: string;
begin
ComboBox.Items.Clear;
Result := False;
try
Screen.Cursor := crHourGlass;
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList := SQLServer.ListAvailableSQLServers;
nServers := ServerList.Count;
for i := 1 to nServers do
ComboBox.Items.Add(ServerList.Item(i));
SQLServer := NULL;
ServerList := NULL;
Result := True;
cbSQLServer.Style := csDropDownList;
except
end;
Screen.Cursor := crDefault;
end;

c++得到:
Variant SQLServer;
Variant ServerList;
int i,nServers;
String sRetValue;
try
{
SQLServer = CreateOleObject("SQLDMO.Application");
}
catch(...)
{
ShowMessage("需要SQL Server客户端软件支持...");
return;
}

ServerList= SQLServer.OleFunction("ListAvailableSQLServers");
nServers=ServerList.OlePropertyGet("Count");
for(i=1;i<=nServers;i++)
ValueListEditor1->InsertRow( IntToStr(i), ServerList.OleFunction("Item", i), 1);
SQLServer=Unassigned;
ServerList=Unassigned;



请教各位能不能java实现呢
...全文
评论 13
收藏 已收藏
分享
返回顶部
myelan
应用实例 27,579 成员 68,540 内容