关于批量执行SQL语句

在数据库应用中，一般我们是用企业管理器来创建数据库，表，存储过程，触发器等。然后再导出SQL语句到一个 *.sql 文件里。然后我们在查询分析器执行这些语句即可。

当然，我们更想在程序中去执行这些语句，而不是再去打开查询分析器。

当我们要在程序中批量执行SQL时，需要明白AdoConnection，或AdoQuery（假设我们使用ADO组件）可以执行的语句有什么要求。

1、在查询分析器里，一条SQL语句，我们可以直接写成

Select * from aTable where ID=123

或者

Select * from aTable where ID=123;

这两条语句结果相同。不同的地方只是第二条多了一个“；”，用来表示一条语句结束。

2、在查询分析器里，多条SQL语句的写法

insert into aTable(Field1,Field2) values( '值一','值二')

go

这里的 go 表示一个批处理

 

根据以上两点，我们可以看出，我们要在程序中批量执行SQL语句，需要判断一个完整的操作包含几条语句，这些语句是不是可以单独执行等。

下面是一个示例程序（程序中不涉及到Select操作）

unit BatchSQL; 
{ 
   批量执行SQL脚本 
   E-main: goldli@163.com 
} 
interface 
uses 
  SysUtils,ADODB,Classes; 

type 
   TOnException = procedure(const E: Exception) of object; 
   TOnSQLExecute = procedure(const strSQL: string;const RowsAffected:Integer) of object; 

type 
  {完整的SQL语句} 
  TSQLString = class 
  private 
    FBuffer:string; 
    FSQL:TStrings; 
    FChanged:Boolean; 
    function GetSQL:string; 
  public 
    constructor Create; 
    destructor  Destroy;override; 
    procedure   Append(const StrSQL:string); 
    property    SQL:string read GetSQL; 
  end; 

  TBatchSQL = class 
  private 
    FConnection:TADOConnection; 
    FSQLList:TList; 
    FOnException:TOnException; 
    FOnSQLExecute:TOnSQLExecute; 
  public 
    constructor Create(const AConnection:TADOConnection); 
    destructor  Destroy;override; 
    property  Connection:TADOConnection write FConnection; 
    procedure LoadFromFile(const FileName:string); 
    procedure Execute; 
    property  OnException:TOnException write FOnException; 
    property  OnSQLExecute:TOnSQLExecute write FOnSQLExecute; 
  end; 

implementation 

{ TSQLString } 

procedure TSQLString.Append(const StrSQL: string); 
begin 
  FSQL.Append(StrSQL); 
  FChanged:=True; 
end; 

constructor TSQLString.Create; 
begin 
  FSQL:=TStringList.Create; 
end; 

destructor TSQLString.Destroy; 
begin 
  FSQL.Free; 
  inherited; 
end; 

function TSQLString.GetSQL: string; 
begin 
  if FChanged then 
  begin 
    FBuffer:=FSQL.Text; 
    FChanged:=False; 
  end; 
  Result:=FBuffer; 
end; 

{ TBatchSQL } 

constructor TBatchSQL.Create(const AConnection: TADOConnection); 
begin 
  if Assigned(AConnection) then 
    FConnection:=AConnection; 
  FSQLList:=TList.Create; 
end; 

destructor TBatchSQL.Destroy; 
var 
  i:Integer; 
begin 
  FConnection:=nil; 
  for i:= FSQLList.Count -1 downto 0 do 
    TSQLString(FSQLList.Items[i]).Free; 
  FSQLList.Free; 
  inherited; 
end; 

procedure TBatchSQL.Execute; 
var 
  i:Integer; 
  Qry:TADOQuery; 
  SQLString:TSQLString; 
begin 
  Assert(Assigned(FConnection),'数据库连接不能为nil.'); 
  Assert(FSQLList.count > 0,'请先加载SQL文件.'); 
  FConnection.LoginPrompt:=False; 
  FConnection.Connected:=True; 
  Qry:=TADOQuery.Create(nil); 
  with Qry do 
  begin 
    Connection:=FConnection; 
    Prepared:=True; 
    for i:=0 to FSQLList.Count -1 do 
    begin 
      SQLString:=TSQLString(FSQLList.Items[i]); 
      SQL.Clear; 
      SQL.Add(SQLString.SQL); 
      try 
        ExecSQL; 
        if Assigned(FOnSQLExecute) then 
          FOnSQLExecute(SQLString.SQL,RowsAffected); 
      except 
        on E:Exception do 
          if Assigned(FOnException) then 
            FOnException(E) 
          else 
            raise Exception.Create('SQL语句出错：' + sLineBreak + SQLString.SQL); 
      end; 
    end; 
    Free; 
  end;  
end; 

procedure TBatchSQL.LoadFromFile(const FileName: string); 
var 
  SqlStr,Tmp:string; 
  F:TextFile; 
  SQLString:TSQLString; 
begin 
  Assert(FileExists(FileName),'SQL文件不存在,不能加载.');  
  AssignFile(F,FileName); 
  Reset(f); 
  Repeat 
    Readln(F,Tmp); 
    if Tmp='GO' then 
    begin 
      SQLString:=TSQLString.Create; 
      SQLString.Append(SqlStr); 
      FSQLList.Add(SQLString); 
      SqlStr:=''; 
      Tmp:=''; 
    end; 
    SqlStr:=SqlStr + Tmp; 
  Until eof(F); 
  Closefile(F); 
end; 

end.