BDE 升级到FireDAC

解决BDE驱动错误及迁移至FireDAC的步骤与注意事项

最新推荐文章于 2023-06-03 13:47:34 发布

转载最新推荐文章于 2023-06-03 13:47:34 发布 · 277 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/cb168/p/4356057.html

文章标签：

#数据库

本文详细介绍了遇到BDE驱动错误（如210d，BDE2501）时的排查方法，并提供了从BDE到FireDAC的平滑迁移指南。包括错误代码解析、相关头文件替换、存储过程参数调整等关键步骤。同时，针对2019年5月31日发现的bdestore存储过程参数不正确问题，提出了修改建议。文章还涉及了FireDAC中相关组件和类的使用，帮助开发者顺利过渡到更现代的数据库访问技术。

bde的驱动错误

210d，BDE 2501麻烦的无奈的错误

BDE Query

Replace Str in files by cnpack tools

TQuery
TFDQuery

dmdb->qrypub->Open(sql);

fdmemtb->Data = dmdb->qrypub->Data;

TTable
TFDTable

TStoredProc
TFDStoredProc

->DatabaseName
->Connection

Database1->Connection
->FDConnection1

dmdb->Database1->Connection;
dmdb->FDConnection1;

TGradientPanel

TPanel

[ilink32 Error] Error: Unresolved external 'Bde::Dbtables::TDatabase::' referenced from E:\unitDB.OBJ

[bcc32 Error] DBTables.hpp(11): E2209 Unable to open include file 'Bde.DBTables.hpp'

remove bde ,change to FDQuery

#include <Db.hpp>

#include <DBTables.hpp>

db.hpp chnage to

#include <Data.DB.hpp>

如果继续用BDE，berlin版本里

#include <DBTables.hpp>

替换为

#include <Bde.DBTables.hpp>

2019.5.31

bde store存储过程参数不正确，参数值错位了，传参改为value赋值，不要用asString赋值就好了。

#include <FireDAC.Comp.Client.hpp>
#include <FireDAC.Comp.DataSet.hpp>
#include <FireDAC.DApt.hpp>
#include <FireDAC.DApt.Intf.hpp>
#include <FireDAC.DatS.hpp>
#include <FireDAC.Phys.Intf.hpp>
#include <FireDAC.Stan.Async.hpp>
#include <FireDAC.Stan.Error.hpp>
#include <FireDAC.Stan.Intf.hpp>
#include <FireDAC.Stan.Option.hpp>
#include <FireDAC.Stan.Param.hpp>

TFloatField

TBCDField

http://blogs.embarcadero.com/davidi/2015/03/25/43870/

http://docs.embarcadero.com/products/rad_studio/firedac/frames.html

BDE name	FireDAC name	FireDAC unit
TSession	TADManager	uADCompClient
TDatabase	TADConnection	uADCompClient
Alias*	ConnectionDef*
Database*	Connection*
Session	ADManager	uADCompClient
SessionName
PrivateDir
=====	=================	=================
TQuery	TADQuery	uADCompClient
TStoredProc	TADStoredProc	uADCompClient
TTable	TADTable	uADCompClient
TUpdateSQL	TADUpdateSQL	uADCompClient
TBatchMove	TADDataMove	uADCompDataMove
=====	=================	=================
TParam	TADParam	uADStanParam
TParams	TADParams	uADStanParam
TBlobStream	TADBlobStream	uADCompDataSet
TDBDataSet, TBDEDataSet	TADRDBMSDataSet	uADCompClient
EDBEngineError	EADDBEngineException	uADStanError