unit UIBSQL; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, IBDatabase, IBCustomDataSet, IBQuery, IBSQL, IBUpdateSQL, DBClient, DBLocal, DBLocalI, ExtCtrls, DBCtrls, StdCtrls, IBTable, IBDatabaseInfo; type TFIBSQL = class(TForm) IBSQL1: TIBSQL; IBDatabase1: TIBDatabase; IBTransaction1: TIBTransaction; DataSource1: TDataSource; DBGrid1: TDBGrid; IBSQL2: TIBSQL; Button1: TButton; IBTable1: TIBTable; IBTable2: TIBTable; DataSource2: TDataSource; DBGrid2: TDBGrid; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var FIBSQL: TFIBSQL; implementation {$R *.dfm} procedure TFIBSQL.Button1Click(Sender: TObject); var Filename : String; RawOutput : TIBOutputRawFile; RawInput : TIBInputRawFile; begin IBSQL1.Sql.Text := 'Select country, currency from country'; IBSQL2.Sql.Text := 'Insert into Newcountry (country, currency) values(:first,:second)'; Filename := 'd:/DataFile.RAW'; //将COUNTRY表中的数据输出到 d:/DataFile.RAW 文件中 RawOutput:= TIBOutputRawFile.Create; try RawOutput.FileName := FileName; IBSQL1.BatchOutput(RawOutput); finally RawOutput.Free; end; //将d:/DataFile.RAW 文件中的数据输入到NEWCOUNTRY表中 RawInput := TIBInputRawFile.Create; try RawInput.FileName := FileName; IBSQL2.BatchInput(RawInput); IBTable2.Close; IBTable2.Open; finally RawInput.Free; end; //事务提交 IBSQL2.Transaction.CommitRetaining; end; procedure TFIBSQL.FormCreate(Sender: TObject); begin IBTable1.Open; IBTable2.Open; end; end.
复制数据
最新推荐文章于 2009-02-24 11:51:00 发布