修改Delphi使之适应SQL Server2000

原创 2002年02月24日 08:50:00

把 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 后加入如下代码
[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。

如何修改SQL Server 2000身份验证模式和系统管理员

大家安装SQL Server 2000时,很多人都习惯性的一路下一步,最后就会以windows身份验证作为登录数据库服务器的方式,假如有一天你后悔了,想以sql server的验证方式登陆,那怎么办呢...
  • Terry001
  • Terry001
  • 2007年06月24日 00:52
  • 1230

Introduction_to_Algorithms_chap4

第四章 分治策略
  • u012220268
  • u012220268
  • 2017年03月17日 20:37
  • 452

Delphi FireDac 之SQL跟踪

我们都知道sqlserver 管理工具 提供了Trace跟踪,可以跟踪程序执行了那些sql语句,非常的方便,今天我们自己用FireDac 来实现这个功能吧 要实现sql语句的跟踪,我们需要用到 TF...
  • u013051638
  • u013051638
  • 2016年11月23日 14:54
  • 1084

关于hibernate连接sqlServer2000个人版出现的各种错误的方法汇总

用的sqlServer2000个人版出现的毛病一个接一个,晕。。到处百度,谷歌,今天终于把它给解决了,哈哈。。贴出来大家参考1.先确定数据库是否打了sp4补丁,到官方网下载SQL2000-KB8845...
  • zj19880814
  • zj19880814
  • 2010年01月23日 16:39
  • 856

第四章 4.2矩阵乘法的Strassen算法(分治)

注意:虽然联系4.2-3、4.2-4和4.2-5是关于Strassen算法的变形的,但你应该先阅读4.5节,然后再尝试求解这几个问题。 4.2-1 使用Strassen算法计算如下矩阵乘法:[...
  • u012889441
  • u012889441
  • 2017年01月21日 18:11
  • 1155

解决Sql Server2000中无法打开1433端口

 sql server 2000无法打开1433端口- -   1.如果你是win2003,那么一定要安装sql的补丁sp3a  检查你的SQL有没有打补丁,没有的话要打上补丁,检查的方法是在查询分...
  • lee576
  • lee576
  • 2008年02月07日 13:03
  • 3124

SQL2000数据库同名覆盖数据恢复

这几天接了一些客户的数据库修复案列,,闲暇之余,把案列
  • sqlrecovery
  • sqlrecovery
  • 2014年11月09日 19:35
  • 845

配置sql server 2000以允许远程访问 及 连接中的四个最常见错误

配置sql server 2000以允许远程访问适合故障: 1. 用sql企业管理器能访问sql server 2000(因为它是采用命名管道(named pipes)方式进行方式),但用ado.ne...
  • ghevinn
  • ghevinn
  • 2014年04月14日 13:41
  • 9418

sqlserver2000字符串函数(上)

字符串函数简介字符串函数对N进制数据、字符串和表达式执行不同的运算。此类函数作用于char、varchar、binary和varbinary数据类型以及可以隐式转换为char或varchar的数据类型...
  • thc1987
  • thc1987
  • 2008年12月15日 10:48
  • 4741

SQL Server 基础概念集

1、如何理解SQL Server的实例         在项目实施过程中,不少用户会有这样的需求:要求开发一套基于SQL Server的新系统,这套系统验收通过后,要和一个原有的SQL Server系...
  • zjcxc
  • zjcxc
  • 2005年07月06日 16:05
  • 20307
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:修改Delphi使之适应SQL Server2000
举报原因:
原因补充:

(最多只允许输入30个字)