1,217
社区成员




With rsInput
.Fields.Append "AAA", adBSTR, 255
.Fields.Append "BBB", adBSTR, 255
.Fields.Append "CCC", adBSTR, 255
.Fields.Append "DDD", adBSTR, 255
.Fields.Append "EEE", adBSTR, 255
.Fields.Append "FFF", adBSTR, 255
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open
End With
For i = 0 To j‘记录集数
rsInput.AddNew
For j = 0 To rec.Fields.Count-1
rsInput.Fields(j) = rec.Fields(j)
Next j
rsInput.Update
Next i