关于SQLDMO的使用
2005-4-5 16:13:52
lw549

    sqldmo.dll是一个com,安装SQLServer后位于Program Files\Microsoft SQL Server\80\Tools\Binn
文件夹下,关于sqldmo能做什么的问题,不是本文讨论的重点,这里只说明如何使用该com,现在开始。
    第一步,导入sqldmo,生成类型说明文件。
    打开Delphi,Project菜单->Import Type Library...,在列表框中找到"Microsoft SQLDMO Object
Library(Version 8.0)"(你的版本可能和我的不一样),可以看到Class names列表框中显示出相应的类,
由于很多类名与vcl本身的类名冲突(比如TApplication,TTable等),需要修改类的名称,不过不改也没关系,
这里假设没改,点击按钮"Create Unit",进入漫长的等待过程。由于生成的文件比较大(6万多行的代码,
2.46M),这个过程很容易被误认为死机,稍候片刻。
    第二步,修改Type Library文件。
    经过漫长的等待,终于得到了来之不易的SQLDMO_TLB.pas,然而,当我们Compile的时候却发现这个单元
无法编译,提示大意为ID重复定义,这个简单,把第二个ID改成xID,编译通过。
    第三步,使用。
    在使用过程中,我发现在很多情况下,SQLDMO_TLB.pas中的类是不能用的,出现av错误。比如Restore,
必须这样使用:
  CreateOleObject('SQLDMO.Restore');
SQLDMO提供的一些事件,在.net和vb环境下得到了非常好的语法支持,同样的问题,在Delphi中却异常麻烦,
我们不得不维护IConnectionPointContainer,难道vb中一行代码就能解决的问题Delphi中就没有简单的方
法吗?有!而且同样简单!答案就是EventSinkImp,可以到http://www.techvanguards.com免费下载。安装也
很简单,一路Yes就ok了。
    EventSinkImp的实现是基于IConnectionPointContainer的,或者说,本来很麻烦的事由EventSinkImp
代劳了。它的使用界面与Import Type Library类似,这里就不多说了。Import以后,得到SQLDMOEvents.pas
和SQLDMO_TLB.pas两个文件。Compile通过,Install出错。好事多磨^-^
    根据错误提示,可以发现TTable、TDataBase与系统中已有的类冲突,改成TSQLTable和TSQLDataBase。
    EventSinkImp的使用很简单,根据帮助,在使用前,Connect一下就能顺利挂接事件。
    在使用SQLDMOEvents.pas和SQLDMO_TLB.pas的单元中,如果出现类冲突,比如TApplication,记得在类
前面加上单元名称,比如Forms.Application就可以了

写下这些希望后来者有所借鉴,如果有其他更好的方法,欢迎告之,谢!