تکرار در ذخیره سازی به چه دلیل؟!

[saed2006]

سلام خدمت شما همه دوستان عزیز



rs.MoveFirst
Do Until rs.EOF
If "STORY" + TextBox2.Text = rs.Fields("Story") Then

Adox.Recordset.AddNew
Adox.Recordset.Fields("SecID") = rs.Fields("SecID")
Adox.Recordset.Fields("Status") = rs.Fields("Status")
End If
rs.MoveNext
Loop




این کدی هست که واسه خواندن مقادیری از یک جدول و ذخیره اون در جدول دیگه ازش استفاده کردم
جالب این که با اجرای این کد تعداد رکودی که ذخیره میشه چندین برابر رکود های جدول اصلی هست
به نطر شما مشکل چیه؟

[hamed aj]

با سلام

کد زیر رو امتحان کنید شاید درست بشه





rs.MoveFirst
Do While (Not rs.EOF)
If "STORY" + TextBox2.Text = rs.Fields("Story") Then
Adox.Recordset.AddNew
Adox.Recordset.Fields("SecID") = rs.Fields("SecID")
Adox.Recordset.Fields("Status") = rs.Fields("Status")
End If
rs.MoveNext
Loop