Delphi 使用FireDac的TFDScript组件执行文件中描述的SQL语句

本文整理自网络，侵删。

 例子C：\数据\ sample.sql
CREATE TABLE BOOKS(ID INTEGER PRIMARY KEY, NAME TEXT);ｉｎｓｅｒｔ INTO BOOKS(ID, NAME) VALUES(1, 'Delphi 2009 handbook');ｉｎｓｅｒｔ INTO BOOKS(ID, NAME) VALUES(2, 'Delphi XE2入?T');ｉｎｓｅｒｔ INTO BOOKS(ID, NAME) VALUES(3, 'Delph');执行文件中描述的SQL
FDScript1.ExecuteFile('C:\data\sample.sql');使用脚本参数TFDScript的ExecuteFile方法将脚本参数作为第二个参数。脚本参数是一个字符串数组。
FDScript1.ExecuteFile(文件名,脚本参数);SQL语句中的“＆职位编号”被替换为参数。
例子C：\数据\ sample.sql
CREATE TABLE &1(ID INTEGER PRIMARY KEY, NAME TEXT);ｉｎｓｅｒｔ INTO &1(ID, NAME) VALUES(1, '&2');ｉｎｓｅｒｔ INTO &1(ID, NAME) VALUES(2, '&3');ｉｎｓｅｒｔ INTO &1(ID, NAME) VALUES(3, '&4');执行文件中描述的SQL
FDScript1.ExecuteFile('C:\data\sample.sql',  [ 'BOOKS',    'Delphi 2009 handbook?DDelphi最新',    'Delphi XE2入?T',    'Delphi']);捕捉错误如果执行SQL脚本时发生错误，则会引发ｏｎｅｒｒｏｒ事件。
procedure TForm1.FDScript1Error(ASender: TObject;  const AInitiator: IFDStanObject; var AException: Exception);begin   ShowMessage(AException.Message);end;获取发生的错误数您可以获取TotalErrors属性中发生的错误数。
FDConnection1.StartTransaction;try  FDScript1.ExecuteFile('C:\data\sample.sql');finally  if FDScript1.TotalErrors > 0 then    FDConnection1.Rollback  else    FDConnection1.Commit;end;显示SQL脚本执行的进度使用TFDGUIxScriptDialog显示SQL脚本执行的进度。
TFDGUIxScriptDialog
将TFDGUIxScriptDialog组件放置在窗体上，并设置TFDScript组件的ScriptDialog属性。
FDScript1.ScriptDialog := FDGUIxScriptDialog1; 

相关阅读 >>

Delphi一句话获取本机ip

Delphi中的字符串分割

Delphi下载程序并且urldownloadtofile的进度提示

delph做的百叶窗小程序

Delphi获取ie浏览器url地址

Delphi tstringstream 简单用法

Delphi 键盘记录源代码

Delphi 网络时间校对

Delphi请求http接口中文乱码问题

Delphi 读写文本文件

更多相关阅读请进入《Delphi》频道 >>