修改Delphi使之适应SQLServer2000
把 SQL Server 7.0 换为 SQL Server 2000 后,执行正常的程序都出错了。仔细一查,原来是 SQL Server 2000
将存储过程的返回参数改了名(RETURN_VALUE 改成了 @RETURN_VALUE)。让我们来对 ADODB 作少许改动,使之兼容
7.0 和 2000。1、使用 File -> Open Project 打开 SourceVCLADODB.pas。
2、定位到 TADOConnection.WillExecute,在 begin 后加入如下代码
[code]
// 用来兼容 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;
[/code]
3、定位到 TADOCommand.FindParam 在 Result = ni 前加入如下代码
[code]
// 用来兼容 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;
[/code]
4、编译 ADODB.pas
5、将编译后的 ADODB.dcu 复制到 Lib 目录下覆盖原有的 ADODB.dcu。
补充:软件开发 , Delphi ,