解决 Delphi 2010 或 Delphi 2009 中 TDatasetProvider 中的错误（困难的方法）

Question

就像每年我作为 SA 所有者收到一个新的 Delphi 版本一样，这就是我所做的：

1. 安装 Delphi 版本 XX。
2. 运行 delphi 版本 XX
3. 插入 TSQLConnection 组件。
4. 将其连接到 Microsoft SQL Server 2000，该服务器将继续陪伴我们至少六年。
5. 插入带有“select top 1 * from myTable”的 TSQLQuery，这是一个包含一些货币字段的表。
6. 插入更多组件TDatasetProvider、TClientdataset、TDatasource、TDBGrid 和TButton。
7. 链接一切。
8. 在 DatasetProvider.OnUpdateError 中创建一个带有 Raise 异常的事件处理程序。
9. A clientdataset1.applyupdates(0);在按钮1中单击。
10. 对当前记录进行一些更改。
11. 按button1，得到delphi 2005及以上版本提供的相同异常。
12. 更新适用于 MsSQLServer 的 corelab 或 devArt dbx 驱动程序。

现在说真的。几年前我发现 TDatasetprovider 正在生成一个非常简单的错误：TFMTBCDField（Delphi 中金钱字段的表示）为 SQL Server 2000 和以前的版本生成不兼容的插入/更新 sql 命令。问题很简单，数据集提供程序为货币字段生成引用值，而这些 sql 服务器不接受这些值。

例子： 带有 varchar 字段和 Money 字段的表。 您可以使用如下更新：

更新测试表设置 MYMONEYFIELD = '1'，其中 MYVARCHARFIELD = 'A'

对于以前版本的 SQLServer，您需要使用

：

更新测试表设置 MYMONEYFIELD = 1，其中 MYVARCHARFIELD = 'A'

有人对此问题有任何解决方法吗？

Answer 1

Borland/CodeGear/Embarcadero 对此不赞成，但如果这仅适用于您自己的应用程序，您可以追溯到 VCL 源并对源进行必要的更改，以确保获得正确的 SQL 生成。每次获得新版本或修复之前，您都需要进行此更改，但这可以解决您的问题。

您可以将更改提交到 codegear，看看他们是否会将其插入。