取得SQLSERVEREB服务器列表涵数。


function TForm3.InitFrm: Boolean;
begin
  GetSQLServerList(ListBox1);
  Result:=True;
end;

Function GetSQLServerList(var List: TListBox): boolean;//取得SQLSERVEREB服务器列表涵数。
var
  i: integer;
  SQLServer: Variant;
  ServerList: Variant;
begin
  Result := False;
  List.Clear;
  try
    SQLServer := CreateOleObject('SQLDMO.Application');
    ServerList := SQLServer.ListAvailableSQLServers;
    for i := 1 to Serverlist.Count do
      list.Items.Add (Serverlist.item(i));
      Result := True;
  Finally
    SQLServer := NULL;
    ServerList := NULL;
  end;
end;

阅读更多
个人分类:
想对作者说点什么? 我来说一句

取得硬盘数.bat

2013年02月28日 211B 下载

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

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭