教你一招, 修改 ADODB.pas 使之兼容 MS SQL Server 7.0 和 2000 (Hot) (0分)

  • 主题发起人 主题发起人 Qiuliang
  • 开始时间 开始时间
Q

Qiuliang

Unregistered / Unconfirmed
GUEST, unregistred user!
把 SQL Server 7.0 换为 SQL Server 2000 后,执行正常的程序都出错了。仔细一查,原来是 SQL Server 2000
将存储过程的返回参数改了名(RETURN_VALUE 改成了 @RETURN_VALUE)。让我们来对 ADODB 作少许改动,使之兼容
7.0 和 2000。

1、使用 File -> Open Project 打开 Source/VCL/ADODB.pas。
2、定位到 TADOConnection.WillExecute,在 begin 后加入如下代码
代码:
  // 用来兼容 SQL Server 7.0 和 SQL Server 2000
  if (pCommand.Parameters.Count > 0) and
    ((pCommand.Parameters[0].Name = 'RETURN_VALUE') or
    (pCommand.Parameters[0].Name = '@RETURN_VALUE')) then
  begin
    if pConnection.Properties['DBMS Version'].Value < '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 > 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。
6、[:D][:D][:D]
7、有用的话,请给点分。
 
精华贴,好人
 
接受答案了.
 
后退
顶部