procedure TMainForm.QueryExec(mTempQuery:TADOQuery);
var
mError: boolean;
begin
while 0=0 do
begin
mError := False;
try
mTempQuery.ExecSQL;
except
mError := True;
end;
if mError then
begin
try
mTempQuery.Connection.Connected := False;
mTempQuery.Connection.Connected := True;
except
end;
end
else
break;
end;
end;
添加该过程,将原来的类似语句
AdoQuery1.SQL.Text := 'INSERT INTO ....';
AdoQuery1.ExecSQL;
改为
AdoQuery1.SQL.Text := 'INSERT INTO ....';
QueryExec(AdoQuery1);