Delphi执行SQL脚本
2013-10-15 09:40
337 查看
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids, RzDBGrid, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; RzDBGrid1: TRzDBGrid; Button1: TButton; ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; ADOtrigger: TADOQuery; DataSource1: TDataSource; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var I: Integer; S: string; begin with TStringList.Create do try LoadFromFile('trigger.sql'); S := ''; for I := 0 to Count - 1 do begin if SameText(Trim(Strings[I]), 'GO') then begin ADOtrigger.Close; ADOtrigger.SQL.Clear; ADOtrigger.SQL.Text := S; ADOtrigger.ExecSQL; //ShowMessage(S); S := ''; end else S := S + Strings[I] + #13#10; end; if S <> '' then begin ADOtrigger.Close; ADOtrigger.SQL.Clear; ADOtrigger.SQL.Text := S; ADOtrigger.ExecSQL; //ShowMessage(S); end; finally Free; end; RzDBGrid1.DataSource.DataSet.Delete; end; end.
相关文章推荐
- Delphi 7 在程序中直接执行SQL脚本文件
- Delphi 7 在程序中直接执行SQL脚本文件
- Delphi通过SQL Server 命令行工具osql执行SQL脚本备份数据库
- Windows命令行方式执行OracleSQL脚本
- Mysql 执行sql脚本文件
- C# 调用并执行SQL脚本文件
- Java 执行 SQL 脚本文件
- Oracle 在Sqlplus 执行sql脚本文件。
- qtp执行文本中的sql语句/脚本
- mysql执行sql脚本文件
- MySql下如何执行sql脚本文件
- jdbc在mysql下一次执行多条sql脚本
- MySQL命令行下执行.sql脚本
- php执行msyql脚本 sql文件
- 如何装SQL存储过程执行完毕的状态返回给DELPHI
- mysql下如何执行sql脚本
- 多postgresql库批量执行SQL脚本文件
- 执行SQL语句脚本文件
- 通过SqlClr制作Sql自动化批量执行脚本
- java程序执行SQL脚本文件