批量执行SQL语句的示例

数据库 SQL Server
如果需要在程序中批量执行SQL语句,应该如何操作呢?下文就将教您如何批量执行SQL语句,供您参考。

在项目中,经常会遇到需要批量执行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操作)
 

  1. unit BatchSQL;   
  2. {   
  3.    批量执行SQL脚本   
  4.    E-main: goldli@163.com   
  5. }   
  6. interface   
  7. uses   
  8.   SysUtils,ADODB,Classes;   
  9.  
  10. type   
  11.    TOnException = procedure(const E: Exception) of object;   
  12.    TOnSQLExecute = procedure(const strSQL: string;const RowsAffected:Integer) of object;   
  13.  
  14. type   
  15.   {完整的SQL语句}   
  16.   TSQLString = class   
  17.   private   
  18.     FBuffer:string;   
  19.     FSQL:TStrings;   
  20.     FChanged:Boolean;   
  21.     function GetSQL:string;   
  22.   public   
  23.     constructor Create;   
  24.     destructor  Destroy;override;   
  25.     procedure   Append(const StrSQL:string);   
  26.     property    SQL:string read GetSQL;   
  27.   end;   
  28.  
  29.   TBatchSQL = class   
  30.   private   
  31.     FConnection:TADOConnection;   
  32.     FSQLList:TList;   
  33.     FOnException:TOnException;   
  34.     FOnSQLExecute:TOnSQLExecute;   
  35.   public   
  36.     constructor Create(const AConnection:TADOConnection);   
  37.     destructor  Destroy;override;   
  38.     property  Connection:TADOConnection write FConnection;   
  39.     procedure LoadFromFile(const FileName:string);   
  40.     procedure Execute;   
  41.     property  OnException:TOnException write FOnException;   
  42.     property  OnSQLExecute:TOnSQLExecute write FOnSQLExecute;   
  43.   end;   
  44.  
  45. implementation   
  46.  
  47. { TSQLString }   
  48.  
  49. procedure TSQLString.Append(const StrSQL: string);   
  50. begin   
  51.   FSQL.Append(StrSQL);   
  52.   FChanged:=True;   
  53. end;   
  54.  
  55. constructor TSQLString.Create;   
  56. begin   
  57.   FSQL:=TStringList.Create;   
  58. end;   
  59.  
  60. destructor TSQLString.Destroy;   
  61. begin   
  62.   FSQL.Free;   
  63.   inherited;   
  64. end;   
  65.  
  66. function TSQLString.GetSQL: string;   
  67. begin   
  68.   if FChanged then   
  69.   begin   
  70.     FBuffer:=FSQL.Text;   
  71.     FChanged:=False;   
  72.   end;   
  73.   Result:=FBuffer;   
  74. end;   
  75.  
  76. { TBatchSQL }   
  77.  
  78. constructor TBatchSQL.Create(const AConnection: TADOConnection);   
  79. begin   
  80.   if Assigned(AConnection) then   
  81.     FConnection:=AConnection;   
  82.   FSQLList:=TList.Create;   
  83. end;   
  84.  
  85. destructor TBatchSQL.Destroy;   
  86. var   
  87.   i:Integer;   
  88. begin   
  89.   FConnection:=nil;   
  90.   for i:FSQLList.Count -1 downto 0 do   
  91.     TSQLString(FSQLList.Items[i]).Free;   
  92.   FSQLList.Free;   
  93.   inherited;   
  94. end;   
  95.  
  96. procedure TBatchSQL.Execute;   
  97. var   
  98.   i:Integer;   
  99.   Qry:TADOQuery;   
  100.   SQLString:TSQLString;   
  101. begin   
  102.   Assert(Assigned(FConnection),'数据库连接不能为nil.');   
  103.   Assert(FSQLList.count > 0,'请先加载SQL文件.');   
  104.   FConnection.LoginPrompt:=False;   
  105.   FConnection.Connected:=True;   
  106.   Qry:=TADOQuery.Create(nil);   
  107.   with Qry do   
  108.   begin   
  109.     Connection:=FConnection;   
  110.     Prepared:=True;   
  111.     for i:=0 to FSQLList.Count -1 do   
  112.     begin   
  113.       SQLString:=TSQLString(FSQLList.Items[i]);   
  114.       SQL.Clear;   
  115.       SQL.Add(SQLString.SQL);   
  116.       try   
  117.         ExecSQL;   
  118.         if Assigned(FOnSQLExecute) then   
  119.           FOnSQLExecute(SQLString.SQL,RowsAffected);   
  120.       except   
  121.         on E:Exception do   
  122.           if Assigned(FOnException) then   
  123.             FOnException(E)   
  124.           else   
  125.             raise Exception.Create('SQL语句出错:' + sLineBreak + SQLString.SQL);   
  126.       end;   
  127.     end;   
  128.     Free;   
  129.   end;    
  130. end;   
  131.  
  132. procedure TBatchSQL.LoadFromFile(const FileName: string);   
  133. var   
  134.   SqlStr,Tmp:string;   
  135.   F:TextFile;   
  136.   SQLString:TSQLString;   
  137. begin   
  138.   Assert(FileExists(FileName),'SQL文件不存在,不能加载.');    
  139.   AssignFile(F,FileName);   
  140.   Reset(f);   
  141.   Repeat   
  142.     Readln(F,Tmp);   
  143.     if Tmp='GO' then   
  144.     begin   
  145.       SQLString:=TSQLString.Create;   
  146.       SQLString.Append(SqlStr);   
  147.       FSQLList.Add(SQLString);   
  148.       SqlStr:='';   
  149.       Tmp:='';   
  150.     end;   
  151.     SqlStrSqlStr:=SqlStr + Tmp;   
  152.   Until eof(F);   
  153.   Closefile(F);   
  154. end;   
  155.  
  156. end. 

 

 

【编辑推荐】

修改SQL主键约束的SQL语句写法

教您使用SQL语句修改SQL主键

逐条更新数据的SQL语句写法

对存储过程代替SQL语句的讨论

测试SQL语句执行时间的方法

责任编辑:段燃 来源: 互联网
相关推荐

2010-09-08 16:17:37

SQL循环语句

2010-09-17 09:35:51

SQL中if语句

2010-09-03 14:47:50

SQLSELECT语句

2010-09-25 16:21:41

SQL语句

2019-11-06 09:30:35

SQL查询语句数据库

2021-07-28 07:22:40

SQL顺序Hive

2010-04-29 14:06:40

Oracle SQL

2010-11-04 09:43:46

LINQ to SQL

2010-03-31 15:03:54

Oracle执行

2013-10-29 16:27:23

MySQLSQL语句

2011-07-21 13:44:52

MySQLmysqldumpsl

2010-01-19 17:03:25

VB.NET可执行语句

2023-11-15 20:24:54

数据库SQLGo语言

2022-07-28 09:13:30

MySQL数据库

2010-09-06 13:17:19

SQL Server语句

2010-09-08 15:00:03

SQL语句执行

2011-03-21 15:39:31

LAMPPHPSQL

2010-09-07 11:41:24

SQL语句

2010-11-04 13:55:26

DB2 SQL脚本批量

2010-09-07 10:26:37

SQL语句
点赞
收藏

51CTO技术栈公众号