如何transfer out 很多记录？

Question

代码如下：(InTable为sqlserver一表，  OutTable为access相同数据结构的一表) 超过50000纪录时，即出现上述 出错提示>><<<QING请指教
tmpCn.BeginTrans
   OutTable.AddNew
   For a = 0 To InTable.Fields.count - 1
     l_fieldindex = FieldByName(InTable.Fields(a).Name, OutTable)
     If l_fieldindex = -1 Then GoTo Next_Field
     If Not IsNull(InTable.Fields(a).Value) Or Len(Trim(InTable.Fields(a).Value)) > 0 Then
        If OutTable.Fields(l_fieldindex).Type = adDBDate Or OutTable.Fields(l_fieldindex).Type = adDate Or OutTable.Fields(l_fieldindex).Type = adDBTime Then
           OutTable.Fields(l_fieldindex).Value = ConvertInfosafeIIDate(InTable.Fields(a).Value)
        Else
           If UCase(InTable.Fields(a).Name) = "IDLOCKED" Then
              If Not IsNumeric(InTable.Fields(a).Value) Then
                 OutTable.Fields(l_fieldindex).Value = False
              Else
                 OutTable.Fields(l_fieldindex).Value = InTable.Fields(a).Value
              End If
           Else
              OutTable.Fields(l_fieldindex).Value = InTable.Fields(a).Value
           End If
        End If
     End If
Next_Field:
   Next a
   OutTable.Update
   tmpCn.CommitTrans

Answer 1

DBCC DBREINDEX         重建指定数据库中表的一个或多个索引
DBCC DBREPAIR          除去损坏的数据库
DBCC INDEXDEFRAG       整理指定的表或视图的聚集索引和辅助索引碎片
DBCC SHRINKDATABASE    收缩指定数据库中的数据文件大小
DBCC SHRINKFILE        收缩相关数据库的指定数据文件或日志文件大小
DBCC UPDATEUSAGE       报告和更正 sysindexes 表的不正确内容，
                       该内容可能会导致通过 sp_spaceused 
                       系统存储过程产生不正确的空间使用报表