21189.htm

来自「一本很基础的SQL讲解」· HTM 代码 · 共 75 行 · 第 1/2 页

<P>Sp_OAMethod是最灵活的，因而也是最复杂的自动操作存储过程，我们甚至可以用它象调用一个方法那样调用一个属性，而且还能得到一个返回值，当然，我们也能使用sp_OAGetProperty来完成这一任务。该存储过程的第一个参数objecttoken是由sp_OACreate返回的对象标记，参数methodname是希望执行的方法的名字，如果该方法有返回值，则下一个参数returnvalue应当是一个包含该方法返回值的适当类型的变量；如果返回值是一个一维或二维的数组，则用NULL作为一个占位符，该过程将返回一个结果集。该存储过程不能返回一个超过二维的数组作为结果集合，在这种情况下，SQL Server就会出错。如果该方法没有返回类型。</P>
<P>如果调用的方法需要参数，就需要在调用sp_OAMethod时提供这些参数。如果方法允许按顺序提供参数，则按要求的顺序列出每个参数，并用逗号分隔每个参数，还可以用变量或文字变量作为参数。如果需要使用有名参数，SQL Server也提供了相应的机制，只需使用：@变量名=变量值 的形式列出所需的变量即可。需要注意的是不要因为有@前缀而把变量名当作局部变量，当调用存储过程sp_OAMethod时，SQL Server就会解析出@，因此，即使在调用的方法中有名字为HostName的参数时，仍然可以使用名字为@HostName的局部变量。</P>
<P>下面是二个调用sp_OAMethod的例子。第一个例子调用一个名字为CentimetersToPoints的方法，它只接受在@CMVal变量中提供的一个参数，返回的值存储在变量@RetVal中。第二个例子调用一个名字为MailLogon的方法，它接受三个可选的变量，这个例子中根据名字接受二个变量，把Name设置为字符串"MyUserName"，把 Password设置为字符串：</P>
<P>Exec sp_OAMethod @Object, 'CentimetersToPoints',@RetVal OUTPUT, @CMVal<BR>Exec sp_OAMethod @Object, 'MailLogon', NULL,@Name='MyUserName', </P>
<P>不再使用一个对象后，需要通过下面的语法调用存储过程sp_OADestroy释放对该对象的引sp_OADestroy objecttoken<BR>调用sp_OADestroy存储过程可以释放由参数objecttoken指定的对象，同时还释放这个对象所使用的内存和其他资源。下面是一个调用sp_OADestroy的命令：</P>
<P>Exec sp_OADestroy @Object</P>
<P>需要注意的是，T-SQL中的数据类型与其他的编程语言并非是一一对应的，在调用一个需要特定的数据类型的方法时就可能出错。"数据类型转换"工具条可以将SQL Server的数据。</P>
<P><STRONG>错误处理</STRONG></P>
<P>象在前面提到的那样，如果对存储过程的调用成功了，则会返回一个为0的HRESULT值，其他的HRESULT值则意味着发生了错误。要判断一个非零的HRESULT值，可以把HRESULT值传：</P>
<P>&nbsp;sp_OAGetErrorInfo [objecttoken] [, source OUTPUT] [, description OUTPUT]</P>
<P>第一个参数objecttoken是由sp_OACreate返回的对象标记。</P>
<P>下面的四个参数返回错误信息。Source是产生这一错误信息的应用程序或库，Description是该错误的描述，如果有帮助文件的话，则该Helpfile是帮助文件的路径。这三个参数都是有符号或无符号字符型数据，sp_OAGetErrorInfo会根据定义的变量的大小截取返回的值。最后一个参数helpid是特定错误在帮助文件中的索引号。下面的命令调用sp_OAGetErrorInfo以获得某一个错误的更详细的信息：</P>
<P>Declare @Source varchar(100), @Description varchar(255), @HelpFile<BR>Exec sp_OAGetErrorInfo @Object, @Source OUTPUT, @Description OUTPUT,</P>
<P>SQL Server在线手册还提供了一个有关sp_DisplayOAErrorInfo存储过程的例子，该存储过程可以调用sp_OAGetErrorInfo把返回的值组织成格式化的字符串，以便把该信息写入日志文件中。</P>
<P>关于sp_DisplayOAErrorInfo的更详细的信息，请参阅工具条， 另外，调用sp_OAStop储存过程可以关闭SQL Server的COM自动操作环境，它无需任何参数。关闭自动操作环境在大多数情况下并非是必需的，第一次调用sp_OACreate时自动操作环境会自动开启，SQL Server关闭时自动操作环境也会自动关闭。如果一个存储过程正在对一个对象进行自动操作，而另一个过程调用sp_OAStop时就会出现错误，因此我们不建议在程序中调用sp_OAStop，只有在调试一个没有运行的过程时，才可以通过一个查询窗口调用它。</P>
<P><STRONG>在实际工作中使用COM自动操作</STRONG></P>
<P>至此，我们已经学习了如何使用每一个COM自动操作存储过程，我们现在来讨论一下一个综合应用它们的例子。程序清单1是一个名字为sp_OpenWordIfCoProcAvailable的过程，在这个过程中，我们用sp_OACreate创建了一个Microsoft Word的实例，然后使用sp_OAGetProperty来获取Word的MathCoProcessorAvailable属性，如果sp_OAGetProperty返回1，则sp_OpenWordIfCoProcAvailable向调用过程返回Word对象的对象标记；否则，<BR>sp_OpenWordIfCoProcAvailable关闭Word，并返回0。为了节省版面，我们只调用了出错处理过程一次，在实际应用中，应该在每次调用自动操作存储过程后都调用出错处理过程。注意，为对Word进行自动操作，应该在安装SQL Server的机器上安装Word。</P>
<P>程序清单 1：自动操作Word的方法的例子</P>
<TABLE cellSpacing=0 borderColorDark=#ffffff cellPadding=2 width=400 align=center borderColorLight=black border=1>
<TBODY>
<TR>
<TD class=code bgColor=#e6e6e6><PRE><P>Create Procedure sp_OpenWordIfCoProcAvailable As<BR>Declare @Object int, @hr int, @RetVal int </P>
<P>Exec @hr = sp_OACreate 'Word.Application', @Object OUTPUT </P>
<P>BEGIN <BR>Exec sp_DisplayOAErrorInfo @Object, @hr </P>
<P>Return 0<BR>END<BR>Exec @hr = sp_OAGetProperty @Object, 'MathCoProcessorAvailable', @RetVal<BR>If @hr=0 <BR>　　 BEGIN <BR>Exec @hr = sp_OAMethod @Object, 'Quit', 0 <BR>Exec @hr = sp_OADestroy @Object <BR>Return 0<BR>END<BR>Exec @hr = sp_OAMethod @Object, 'Activate' </P>
<P>Return @Object</P></PRE></TD></TR></TBODY></TABLE>
<P>如果需要对一个使用Visual Basic编写的COM对象进行自动操作，调试它与SQL Server之间的互操作性是一件相当容易的事。我们需要在运行SQL Server的机器上安装有Visual Basic，在Visual Basic的编辑器中加载COM项目，设置一些断点，然后编译并运行该COM对象。在有存储过程对该对象进行自动操作时，在运行到一个断点时，编辑器就会自动切换到调试模式，我们就可以象调试其他的Visual Basic程序那样调试这个COM对象。如果要对调试过程实施更多的控制，可以使用T-SQL Debugger for VB插件，它能采用步进方式执行存。</P>
<P>此外，在SQL Server中应用COM自动操作我们还能作什么呢？下面是我曾使用SQL Server强大的COM自动操作功能的实际例子。前不久，我需要从一个SQL Server存储过程中使用一个通过命名管道进行通讯，而SQL Server中没有提供通过编程方式打开和使用命名管道的机制，我正好有一个可以使用命名管道通讯的VB例和库，因此就把这个库文件作成一个类，并创建了一个ActiveX DLL文件，然后从存储过程中对DLL进行自动操作。</P>
<P>另一次，我需要复制一些文件和数据库表。使用SQL Server的复制功能可以很方便地复制这些数据，但复制文件则要难得多，NT的目录同步功能很弱，不能满足要求。尽管我还可以把拷贝命令存到字符变量中，然后把变量传递给xp_cmdshell，但会遇到命令行长度的限制。更不方便的是，如果在拷贝过程中发生了错误，我不能很方便地判断错误发生在什么地方，因此，我就编写了一个ActiveX DLL，并通过自动操作它来处理文件的拷贝工作。</P>
<P>还有一次，我需要在SQL Server 6.5和Index Server 2.0之间先执行连结后再完成查询任务，如果使用带ADO的Windows 2000 Indexing Services和SQL Server 7.0，完成这样的工作非常简单，但如果不是使用这些产品，则要困难得多。</P>
<P>首先，需要编写一个可以执行Index Server查询对象ixsso.dll的ActiveX DLL，对它进行自动操作，从Index Server目录中获得信息，并通过一个方法将信息返回到存储过程中。</P>
<P>然后把这些数据保存到一个临时表中，再对它进行联结操作。COM自动操作再一次帮我解决了问题。在存储过程中执行COM自动操作几乎可以使我们完成任何想完成的操作。SQL Server 2000中的COM自动操作没有什么变化，因此采用这种方法编写的代码在将来仍然可以使用下去。</P>(责任编辑：<A href="http://images.51cto.com/wuyou/mailto：[e-mail]">铭铭</A>) </td>
      </tr>
      <tr>
        <td class="d_font4">&nbsp;</td>
      </tr>
    </table>