您的位置：首页 > 数据库

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

2006-11-22 09:54 344 查看

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

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航