知识大全用Delphi实现不同数据库系统之间的数据转移

Posted 2022-07-14 知

篇首语：业无高卑志当坚，男儿有求安得闲？本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用Delphi实现不同数据库系统之间的数据转移相关的知识，希望对你有一定的参考价值。

用Delphi实现不同数据库系统之间的数据转移 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　在计算机应用系统的软件升级改造过程中我们经常遇到这样一个问题老系统的数据库平台与新系统不同例如老系统的数据库平台是Foxpro 而新系统的平台是SQL Server 而且我们需要把旧的数据库应用系统中的一些数据转移到新系统来但是因为新老系统在定义数据类型数据格式等方面的差异就很难用人工录入的方法来实现因此需要有一个能实现这种功能的程序

　　本文利用Borland Delphi 实现了这个转移过程

　　基本思想是在一个Form 中分别用两个TDatabase 控件连接新老数据库并采用 TTable TDbGrid 作为数据转移的中心根据DbGrid 中的数据生成标准的SQL 插入语句这样就实现了从一个数据库系统到另一个数据库系统的数据转移在这里采用TTable TDbGrid 作为数据转移的中心是一个技巧因为 TTable 的Fields 属性能指示出某字段的字段名称数据类型等这为数据转移过程中的Insert 语句的生成及数据类型转换提供了依据

　　下面的例子展示了从Foxpro 到SQL Server 的数据转移方法至于其他系统间的数据转移只要根据目标系统的数据定义要求修改相应的Insert 语句

　　程序代码如下

unit ConvertDBF;

interface

uses Windows Messages SysUtils Classes Graphics Controls Forms Dialogs StdCtrls DBTables Db Grids DBGrids;

type TfrmConvertDB = class(TForm) btnOK: TButton; Label : TLabel; db : TDatabase; 用于连接老数据库系统 db : TDatabase; 用于连接新数据库系统 dbg: TDBGrid; tblSource: TTable; dbg的Datasource qryInsert: TQuery; 用于存放生成的SQL Insert语句 srcSource: TDataSource; tblDest: TTable; DBGrid 的Datasource DBGrid : TDBGrid; srcDest: TDataSource; edFromtbl: TEdit; Label : TLabel; Label : TLabel; edToTbl: TEdit; procedure btnOKClick(Sender: TObject); private Private declarations public Public declarations end;

var frmConvertDB: TfrmConvertDB;

implementation

cha138/Article/program/Delphi/201311/25079

知识大全 用Delphi实现不同数据库系统之间的数据转移

知识大全用Delphi实现不同数据库系统之间的数据转移