导出数据时报错 'temporary table resource limit'(100分)

偶尔幽默 · 2008-06-19

用ODBC连接，ORACLE数据库。Delhpi中创建TABLE，然后把查询的数据添加到TABLE表中， 由于数据量太大(87万),所以当TABLE中添加了20万条记录时，就再创建一TABLE, 以此类推。问题：当循环到457856条记录执行NEXT操作时报 'temporary  table resource limit'错误，请问该如何解决。源码如下： Function Tf_main.SaveQueryToTable(aQuery:TQuery;xh:Integer;SourceTableName,destTableName:String):Boolean; var    i,rno,tcount:Integer;    tmpdb,tmpname:string;    msg:TMsg;    tmpstr:String;    j,n: integer; begin      Result:=True;      tmpdb:=ExtractFilePath(destTableName);      tmpname:=ExtractFileName(destTableName);      DelTable(tmpdb,tmpName);      tmpTable.Close;      tmpTable.DatabaseName:=tmpdb;      tmpTable.TableName:=tmpname;      tmpTable.TableType:=ttParadox;      tmpTable.FieldDefs.Clear;      For i:=0 to aQuery.FieldDefs.Count-1 do begin         case aQuery.FieldDefs.DataType of            ftBlob,ftOraBlob:            begin              tmpTable.fielddefs.add(aQuery.FieldDefs.Name,ftBlob,0,aQuery.FieldDefs.Required);            end;            ftDate,ftDateTime,ftTime:            begin              tmpTable.fielddefs.add(aQuery.FieldDefs.Name,ftDateTime,0,aQuery.FieldDefs.Required);            end;            else begin              tmpTable.fielddefs.add(aQuery.FieldDefs.Name,aQuery.FieldDefs.DataType                                    ,aQuery.FieldDefs.Size,aQuery.FieldDefs.Required);            end;         end;      end;//for i      tmpTable.IndexDefs.Clear;      Try         TmpTable.CreateTable;         except              Result:=False;              ErrorMessage('创建表'+destTableName+'时出错,备份失败!');              SaveLog(tkeyword,toperation,ttitle,false);              Exit;      end;      tmpTable.Open;      tcount:=GetRecordCount(aQuery);      f_wait.ProgressBar1.Max:=tcount;      rno:=0;      j := 0;      n := 0;      aQuery.First;      aQuery.DisableControls;      While Not aQuery.Eof do begin         f_wait.ProgressBar1.Position:=rno;         Inc(rno);         inc;         f_wait.Refresh;        // While PeekMessage(msg,0,0,0,PM_REMOVE) do DispatchMessage(msg);         application.ProcessMessages;         F_WAIT.Label2.Caption := IntToStr(rno);        // IF rno = 457856 then        //   showmessage('11111111111111111111111');         if n = 200001 then         begin           tmpTable.Close;           if CreateTable(aQuery,destTableName+'_'+IntToStr(j)) then           begin             n := 0;             inc(j);             tmpTable.Open;           end else           begin              Result := False;              tmptable.close;              ErrorMessage('创建表'+destTableName+'时出错,备份失败!');              SaveLog(tkeyword,toperation,ttitle,false);              Exit;           end;         end;         tmpTable.Append;         For i:=0 to aQuery.FieldDefs.Count-1 do begin             tmpname:=aQuery.FieldDefs.Name;             case aQuery.FieldDefs.DataType of               ftBlob,ftOraBlob:               begin                   if Not TBlobField(aQuery.FieldByName(tmpname)).IsNull then                      TBlobField(tmpTable.FieldByName(tmpname)).Assign(aQuery.FieldByName(tmpname));               end;               ftDateTime,ftDate,ftTime:               begin                   if Not aQuery.FieldByName(tmpname).IsNull then begin                      Try                         tmpTable.FieldByName(tmpname).AsdateTime:=aQuery.FieldByName(tmpname).AsDateTime;                         Except                      end;                   end;               end;               else begin                   tmpTable.FieldByName(tmpname).AsString:=aQuery.FieldByName(tmpname).AsString;               end;             end;         end;//for i         Try            tmpTable.Post;            Except                 tmpTable.Close;                 Result:=False;                 ErrorMessage('向表'+desttableName+'中保存数据时出错,备份失败!'                 //Memo1.Lines.Add('向表'+desttableName+'中保存数据时出错,备份失败!');                 SaveLog(tkeyword,toperation,ttitle,false);         end;         aQuery.Next;      end;//while      aQuery.EnableControls;      tmpTable.Close; end; function Tf_main.CreateTable(aQuery: TQuery; destTableName: String): Boolean; var    i,rno,tcount:Integer;    tmpdb,tmpname:string;    msg:TMsg;    tmpstr:String; begin    Result:=True;    tmpdb:=ExtractFilePath(destTableName);    tmpname:=ExtractFileName(destTableName);    DelTable(tmpdb,tmpName);    tmpTable.Close;    tmpTable.DatabaseName:=tmpdb;    tmpTable.TableName:=tmpname;    tmpTable.TableType:=ttParadox;    tmpTable.FieldDefs.Clear;    For i:=0 to aQuery.FieldDefs.Count-1 do begin       case aQuery.FieldDefs.DataType of          ftBlob,ftOraBlob:          begin            tmpTable.fielddefs.add(aQuery.FieldDefs.Name,ftBlob,0,aQuery.FieldDefs.Required);          end;          ftDate,ftDateTime,ftTime:          begin            tmpTable.fielddefs.add(aQuery.FieldDefs.Name,ftDateTime,0,aQuery.FieldDefs.Required);          end;          else begin            tmpTable.fielddefs.add(aQuery.FieldDefs.Name,aQuery.FieldDefs.DataType                                  ,aQuery.FieldDefs.Size,aQuery.FieldDefs.Required);          end;       end;    end;//for i    tmpTable.IndexDefs.Clear;    Try       TmpTable.CreateTable;       except            Result:=False;    end; end;

lngdtommy · 2008-06-19

看所提示的错误貌似为临时表的记录数有限制。 要不楼主先将创建表的语句提交，再去导入数据。 或者分几个数据集导。。。

导出数据时报错 'temporary table resource limit'(100分)

偶尔幽默

Unregistered / Unconfirmed

lngdtommy

Unregistered / Unconfirmed

Similar threads