end;
finally
dmoBack:=nil;
backupdrv:=nil;
另外,我还要举一个例子来说明如何使用刚开始提到的Application对象。这个方法是取得所有可用(也就是可到达可连接)的Sql Server实例的名字。
function TDBCTRL.GetServerList(var ServerList: TStringList): Boolean;
var
App:_Application; //Application对象
NList:NameList; //这个NameList也是SQL-DMO中的一个对象
I:integer;
begin
try
App:=CoApplication.Create ;
NList:=App.ListAvailableSQLServers;
//取得所有可用的SQLServer实例名
for I:=0 to NLIst.Count-1 do
ServerList.Add(NList.Item(I));
App:=nil; //释放对象
当然,TDBCTRL
<< 上一页 [11] [12] 下一页
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18