Your applicationODBC32.DLLSQLSVC.DLLSQLRSLD.DLLSQLDMO.RLLSQLSVC.RLL我们的应用在这里创建使用SQL-DMO对象SQL Server网络边界SQLDMO.DLL 图1 SQL-DMO的调用结构
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/bianchengyuyan/）SQL-DMO的对象树我们首先来看一下SQL-DMO庞大复杂的对象树（见图3）：SQLServer对象是这个对象树的主干，这个主干下主要有三个大的分支：l Database分支，其下的一系列的对象实现了SQLServer中数据库架构以及维护任务。l JobServer分支，其下的一系列对象实现了SQL Server代理（ Agent）服务。l Replication分支，其下的一系列的作对象实现了SQL Server的复制服务。还需要说明的有：l 对象树没有列出Application对象，其实这是一个比较重要的对象。任何一个SQL-DMO对象都有一个属性指向Application对象。Application对象代表着一个全局的应用，其包含了Servers和ServerGroups两个集合对象。如图2：图2 Application对象l 对象树仅仅表示了SQL-DMO的结构并没有列出所有的对象，例如NameList对象、Servergroup对象等。SQL-DMO对象树结构复杂，对象繁多，在这里不可能对每个对象每个属性每个方法一一加以介绍说明，一些方法的说明会在下面具体的代码中解释。 图3 SQL-DMO的对象树Delphi封装SQL-DMO的实现 下面就介绍笔者利用Delphi实现的对SQL-DMO封装的组件TDBCTRL。笔者由于在某个项目中需要一个免费的数据库引擎，最终选择了MSDE，但是MSDE没有管理界面，仅仅是个引擎而已。所以就有了给MSDE提供简单明了的管理界面这个需求。我们不需要提供Enterprise Manager那么多的管理功能，我们只需要提供最常用的功能就足够了。考虑到易使用性和可扩展性，决定用组件的形式提供。实现的组件提供了对SQL-DMO的一层包装，把一些常用的功能进行封装，简化使用。注意，编译此组件需要引入SQL-DMO的类型库，并生成对应的描述代码。代码当中的包含很多Delphi对Com对象的一些常规用法和惯用表示法。在这里不讨论Delphi是如何使用COM了，读者可以参考相关书籍。此组件包含如下属性：property Host:String read FHost write FHost;//主机名、即所要连接的SQL Server实例名 property Password:String read FPWD write FPWD; //用于连接的用户密码 property Login:String read FLogin write FLogin; //用于连接的用户名 property LoginSecure:boolean read FLoginSecure write FLoginSecure; //登录模式、True代表使用NT验证模式，false代表SQL Sever验证模式 另外此组件聚合了一个SqlServer对象，用有一个私有数据成员：sqlserver来保存。其类型为_SqlServr.此组件的构造函数和析构函数也十分简单。构造函数就是连接创建sqlserver对象。析构函数也仅仅是完成对sqlserver对象的析构。constructor TDBCTRL.Create(AOwner: TComponent);begin inherited; sqlserver:=coSqlserver.Create; //CoSqlserver是_SqlServer的类工厂end;destructor TDBCTRL.Destroy;begin sqlserver:=nil; //把此对象设置为nil后，Delphi会在幕后完成Com对象的析构。 inherited;end;如果我们要对某个SQL Server实例进行管理和操作，首先我们要连接到这个实例。下面的ConnectToServer函数就实现了如何连接到一个SQL Server实例的功能。function TDBCTRL.ConnectToServer: Boolean;begin SqlServer.LoginSecure:= FLoginSecure;// 设置是否是NT验证模式，如果是True就会忽略Login和Password； try sqlServer.Connect(FHost,FLogin,FPWD); Result:=True; Except On E:EOleException do begin ShowMessage(e.Message); result:=false; end; end;end;连接完成后，就取得了对此实例的控制(根据所登录的用户，会有不同的控制权限)。下面列出的一些方法展示了一些功能。GetTableList方法取得某个数据库的所有的表名，放在一个TStringList中返回。function TDBCTRL.GetTableList(DBName: String; var TableList: TStringList): Boolean;var NowDB:_DataBase; //数据库 NowTable:_Table; //表 I:integer;begin try TableList.Clear ; //清空StringList NowDB:=SqlServer.Databases.Item(DBName,Sqlserver);//根据数据库名取得Database对象 for I:=1 to NowDB.Tables.Count do begin NowTable:=NowDB.Tables.Item(I,0); TableList.add (NowTable.Name); end; //取的这个数据库中所有的表名字，添入TStringList中 result:=True; Except TableList.Clear ; result:=False; end;end;类似的，用相似的方法可以以取得数据库中所有的视图（Views）、一个表或视图的所有字段（Columns）、一个数据库的所有数据文件组以及数据文件（FileGroups、DBFiles）等等，这些可以具体参考SQL-DMO的对象结构树。对SQL-DMO对象的使用可以遵循以下的基本步骤：通过上层对象取得某个对象或集合对象，然后使用对象或取得集合对象中某一个对象再使用。一般来说，如果是集合对象都有一个Item方法，可以根据Index或Name返回集合成员对象。需要注意的是Index是从1开始的而不是从0开始的。上面的这些方法都是演示如何从数据库取得信息，下面我再演示一个方法，此方法的功能是备份数据库到一个文件。通过这个方法来展示如何对数据库进行维护操作的。function TDBCTRL.BackupDB(DBName, BackupFile: String): Boolean;//传入的参数为欲备份的数据库名和备份文件名var dmoBack:_Backup; //备份对象 backupdrv:_backupdevice; //备份设备对象begin //设置备份设备try DeleteFile(BAckUPFile); //若备份文件已经存在就删除之 try dmoBack:=coBackup.create; backupdrv:=coBackupDevice.Create ; //创建对象 backupdrv.name:=DBName+'Bak'; //指定备份设备的名字 backupdrv.Type_ :=SQLDMODevice_DiskDump; backupdrv.PhysicalLocation :=BackupFile ; //添加备份设备 try sqlServer.BackupDevices.Add(backupdrv); except //由于这里的异常不会返回值，没有办法，只能认为添加异常是由于已经存在这个备份集 end; //进行备份 dmoBack.action:=SQLDMOBackup_Database; dmoBack.database:=DBName; dmoBack.Devices :=DBName+'Bak'; dmoBack.SQLBackup(sqlserver) ; Result:=True; Except On E:EOleException do begin ShowMessage(e.Message); result:=false; end; end;finally dmoBack:=nil; backupdrv:=nil;end;end;另外，我还要举一个例子来说明如何使用刚开始提到的Application对象。这个方法是取得所有可用（也就是可到达可连接）的Sql Server实例的名字。function TDBCTRL.GetServerList(var ServerList: TStringList): Boolean;var App:_Application; //Application对象 NList:NameList; //这个NameList也是ＳＱＬ－ＤＭＯ中的一个对象 I:integer;begin try App:=CoApplication.Create ; NList:=App.ListAvailableSQLServers; //取得所有可用的ＳＱＬＳｅｒｖｅｒ实例名 for I:=0 to NLIst.Count-1 do ServerList.Add(NList.Item(I)); finally App:=nil; //释放对象 end;end;当然，TDBCTRL组件还有很多方法，但是代码实现相似，比如对应备份的恢复方法，对应于连接的断开连接方法，我也就不一一列举了。读者可以参考示例代码和SQL SERVER的Online Book，举一反三，实现自己想要的功能。如果需要此组件的全部代码可以问笔者索要。其它说明SQL-DMO的2000版本完全兼容于SQL SERVER7.0和SQL SERVER 2000。但是提供80多个新的接口用来支持SQL SERVER 2000的新特性。这些新的接口结尾都带”2”,这些是原来的SQL SERVER 7.0中那些接口的超集。也就是说如果要使用SQL SERVER 2000的新特性就要使用末尾带”2”的接口。参考书目l Microsoft MSDNl Microsoft SQL SERVER Online Bookl 《Delphi COM 深入编程》（美） Eric Harmon 机械工业出版社用Delphi对SQL-DMO进行封装的一种实现
2016-02-19 12:51
今天图老师小编给大家精心推荐个用Delphi对SQL-DMO进行封装的一种实现教程，一起来看看过程究竟如何进行吧！喜欢还请点个赞哦~
![SQL Server"错误 21002: [SQL-DMO]用户 * 已经存在问题解决](https://img.tulaoshi.com/201602/19/9c3883df77c0d33099638c5f6f6897b1_thumb_189.jpg)
