如何调用SQL-DMO读取SQL Server服务器列表及指定服务器的数据库列表

KeyLife富翁笔记

作者: HongYuan 标题: 如何调用SQL-DMO读取SQL Server服务器列表及指定服务器的数据库列表 关键字: SQL-DMO 分类: 个人专区 密级: 公开 (评分: , 回复: 0, 阅读: 533)  »»

procedure TFormServerSelect.GetDatabasesLsit(FDatabasesLsit:TStrings); var   SQLServer, DBList: Variant;   i, iDatabasesCount: Integer; begin   if not CurrAutoConfigurationSqlServerParams then exit;   if FDatabasesLsit=nil then FDatabasesLsit:=cbxDataBases.Items;   FDatabasesLsit.Clear;   try     SQLServer := CreateOleObject('SQLDMO.SQLServer');     SQLServer.LoginSecure := cbxLoginSecure.Checked;     SQLServer.LoginTimeout := 15;// 设定超时时间     SQLServer.Connect(edtServerName.Text,edtUserName.Text,edtUserPassword.Text);     DBList := SQLServer.Databases;     iDatabasesCount := DBList.Count;     for i := 1 to iDatabasesCount do       FDatabasesLsit.Add(DBList.Item(i).Name);     SQLServer := NULL;     DBList := NULL;     Application.MessageBox('连接成功,您现在可以从数据库列表中选择存在的数据！','信息提示',MB_OK+MB_ICONINFORMATION);   except     Application.MessageBox('当前服务器登录失败，用户名或口令输入错误，请重新输入！','信息提示',MB_OK+MB_ICONINFORMATION);   end; end; procedure TFormServerSelect.GetDatabasesLsit(FDatabasesLsit:TStrings); var   SQLServer, DBList: Variant;   i, iDatabasesCount: Integer; begin   if not CurrAutoConfigurationSqlServerParams then exit;   if FDatabasesLsit=nil then FDatabasesLsit:=cbxDataBases.Items;   FDatabasesLsit.Clear;   try     SQLServer := CreateOleObject('SQLDMO.SQLServer');     SQLServer.LoginSecure := cbxLoginSecure.Checked;     SQLServer.LoginTimeout := 15;// 设定超时时间     SQLServer.Connect(edtServerName.Text,edtUserName.Text,edtUserPassword.Text);     DBList := SQLServer.Databases;     iDatabasesCount := DBList.Count;     for i := 1 to iDatabasesCount do       FDatabasesLsit.Add(DBList.Item(i).Name);     SQLServer := NULL;     DBList := NULL;     Application.MessageBox('连接成功,您现在可以从数据库列表中选择存在的数据！','信息提示',MB_OK+MB_ICONINFORMATION);   except     Application.MessageBox('当前服务器登录失败，用户名或口令输入错误，请重新输入！','信息提示',MB_OK+MB_ICONINFORMATION);   end; end; 2005-6-21 15:38:56