Delphi 执行SQL脚本/执行SQL GO 脚本语句

Delphi 执行SQL脚本/执行SQL GO 脚本语句

注意：文件的编码格式，最好要统一，ANSI编码或UNICODE编码

方法1：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

var   s: string;   sqltext: string;   sqlfile: TextFile; begin   if OpenDialog1.Execute then   begin     AssignFile(sqlfile, OpenDialog1.FileName);     FileMode := 0;     Reset(sqlfile);     try       ADOConnection1.BeginTrans;       while not eof(sqlfile) do       begin         Readln(sqlfile, s);         sqltext := s;         while (not eof(sqlfile)) and (uppercase(trim(s)) <> 'GO') do         begin           Readln(sqlfile, s);           if (uppercase(trim(s)) <> 'GO') then             sqltext := sqltext + ' ' + s;         end;         adoquery1.Close;         adoquery1.SQL.Clear;         adoquery1.SQL.Add(sqltext);         adoquery1.ExecSQL;       end;       CloseFile(sqlfile);       ADOConnection1.CommitTrans;       application.MessageBox('SQL执行完成！', '提示', MB_OK + MB_ICONINFORMATION);     except       raise exception.Create('SQL执行失败!');       ADOConnection1.RollbackTrans;     end;   end; end;

 

方法2：（这里要注意：脚本语句中 go 一定要换行）

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

var   I: Integer;   S: string; begin  with TStringList.Create do  try     LoadFromFile('test.sql');     S := '';     for I := 0 to Count - 1 do begin       if SameText(Trim(Strings[I]), 'GO') then begin  // SameText 不区分大小写  读取到GO 就执行一次代码          with ADOQuery1 do begin            Close;SQL.Clear;            SQL.Text:=sSQL;            ExecSQL;          end;         S := '';       end else S := S + Strings[I] + #13#10;     end;     if S <> '' then      begin        with ADOQuery1 do begin           Close;SQL.Clear;           SQL.Text:=sSQL;           ExecSQL;        end;      end;  finally      Free;  end;  end;

　　

 

 

创建时间：2020.09.16　　更新时间：