function GenerateSQL:TStrings; begin Result:=TStringList.Create; for i:=0 to n do begin Result.Add('Insert XXXXXXXXXXXXXXXXXXXXXXXX'); end; end;function RunSQL:Boolean; var Sqls:TStrings; begin Sqls:=GenerateSQL; Result:=False; try With AdoQuery1 do begin Close; Sql.Clear; Sql:=Sqls; Execsql; end; Result:=True; except end; end;
//更正一下 function RunSQL:Boolean; var Sqls:TStrings; begin Sqls:=GenerateSQL; Result:=False; try With AdoQuery1 do begin Close; Sql.Clear; Sql:=Sqls; Execsql; end; Result:=True; finally Sqls.Free;//忘记释放sqls了 end; end;
locktype 設為BATCH模式,然後提交,會更好點。
function GenerateSQL:TStrings;
begin
Result:=TStringList.Create;
for i:=0 to n do
begin
Result.Add('Insert XXXXXXXXXXXXXXXXXXXXXXXX');
end;
end;function RunSQL:Boolean;
var
Sqls:TStrings;
begin
Sqls:=GenerateSQL;
Result:=False;
try
With AdoQuery1 do
begin
Close;
Sql.Clear;
Sql:=Sqls;
Execsql;
end;
Result:=True;
except
end;
end;
function RunSQL:Boolean;
var
Sqls:TStrings;
begin
Sqls:=GenerateSQL;
Result:=False;
try
With AdoQuery1 do
begin
Close;
Sql.Clear;
Sql:=Sqls;
Execsql;
end;
Result:=True;
finally
Sqls.Free;//忘记释放sqls了
end;
end;