修改Delphi使之适应SQL Server2000

import · 2015-05-15

把 SQL Server 7.0 换为 SQL Server 2000 后，执行正常的程序都出错了。仔细一查，原来是 SQL Server 2000 将存储过程的返回参数改了名(RETURN_VALUE 改成了 @RETURN_VALUE)。让我们来对 ADODB 作少许改动，使之兼容
7.0 和 2000。
1、使用 File -> Open Project 打开 Source.pas。
2、定位到 TADOConnection.WillExecute，在 begin 后加入如下代码

代码:

            // 用来兼容 SQL Server 7.0 和 SQL Server 2000
            if (pCommand.Parameters.Count &gt; 0) and
            ((pCommand.Parameters[0].Name = 'RETURN_VALUE') or
            (pCommand.Parameters[0].Name = '@RETURN_VALUE')) then
            begin
            if pConnection.Properties['DBMS Version'].Value &lt; '08.00.0000'             then
            pCommand.Parameters[0].Name := 'RETURN_VALUE'
            else pCommand.Parameters[0].Name := '@RETURN_VALUE'
            end;

3、定位到 TADOCommand.FindParam 在 Result = ni 前加入如下代码

代码:

            // 用来兼容 SQL Server 7.0 和 SQL Server 2000
            if (Count &gt; 0) and ((Value = 'RETURN_VALUE') or (Value = '@RETURN_VALUE'))             then
            begin
            Result := Items[0];
            if (Result.Name = '@RETURN_VALUE') or (Result.Name = 'RETURN_VALUE')             then Exit;
            end;

4、编译 ADODB.pas
5、将编译后的 ADODB.dcu 复制到 Lib 目录下覆盖原有的 ADODB.dcu。

修改Delphi使之适应SQL Server2000

import

Unregistered / Unconfirmed

Similar threads