عدم انتقال یک رکورد از جدولی به جدولی دیگر

[saeedharati]

سلام
بنده در ویژال بیسیک یه برنامه طراحی کردم میخواد اطلاعات یک جدول را که فیلتر کردم رو به یک جدول مشخص جدید انتقال بده این کار رو انجام دادم تو همون برنامه واسه جدول دیگه اما تو این جدول مشکل دارم 2تا رکورد هست ولی فقط یک رکورد رو انتقال میده هرچند رکورد هست یک دونه رو نمیاره لطفا راهنماییم کنید باید سریع تحویل بدم


کد برنامه


Adodc2.recordset.MoveFirst
Do While Adodc2.recordset.EOF = False
Adodc3.recordset.AddNew
Adodc3.recordset.Fields("sal") = Adodc2.recordset.Fields("sal")
Adodc3.recordset.Fields("dore") = Adodc2.recordset.Fields("dore")
Adodc3.recordset.Fields("mantaghe") = Main.Label7.Caption
Adodc3.recordset.Fields("madrese") = Adodc2.recordset.Fields("madrese")
Adodc3.recordset.Fields("codedars") = Adodc2.recordset.Fields("codedars")
Adodc3.recordset.Fields("shdanesh") = Adodc2.recordset.Fields("shdanesh")
Adodc2.recordset.MoveNext
Loop
List1.AddItem "ÇÓÊÎÑÇÌ ÏÇÏå åÇí ÇØáÇÚÇÊ ÓÇá æ ÏæÑå ÊÍÕíáí ÈÇ ãæÝÞíÊ ÇäÌÇ㠐ÑÏíÏ"
List1.AddItem "ÊÚÏÇÏ Ñ˜æÑÏ åÇí ÇÓÊÎÑÇÌ ÔÏå : " & " " & Adodc3.recordset.RecordCount
List1.AddItem "ÌÏæá ÇÓÊÎÑÇÌ ÔÏå : ÇäÊÎÇÈ æÇÍÏ"
List1.AddItem "--------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
XPPanel5.Theme = [XP Light Green]
Else
MsgBox "ÇØáÇÚÇÊí ÈÑÇí Çíä ÏæÑå æ ÓÇá ÊÍÕíáí æÌæÏ äÏÇÑÏ"
Unload Me
End If

[sehm67]

سلام
بنده در ویژال بیسیک یه برنامه طراحی کردم میخواد اطلاعات یک جدول را که فیلتر کردم رو به یک جدول مشخص جدید انتقال بده این کار رو انجام دادم تو همون برنامه واسه جدول دیگه اما تو این جدول مشکل دارم 2تا رکورد هست ولی فقط یک رکورد رو انتقال میده هرچند رکورد هست یک دونه رو نمیاره لطفا راهنماییم کنید باید سریع تحویل بدم

در این پست :
http://barnamenevis.org/showthread.php?313852-انتقال-يك-ركورد-از-يك-جدول-به-جدول-ديگر

[karimi64bit]

سلام
چطوری این همه کد رو بعدا میخوای تغییر بدی

از این روش تو دیتابیس استفاده کنی بهتر نیست
SELECT *
INTO new_table_name [IN externaldatabase]
FROM old_tablename