مساعده ياشباب ... ازاى انقل بيانات من جدول لجدول اخر مماثل

يلا يا شباب مفيش ردود ليه

اخى الموضوع بسيط جدا

طيب ياريت تساعدنى يا اخ وائل لو عندك الحل

لو الموضوع بسيط زى ما بيقول الاخ وائل ياريت حد يعقب على الموضوع

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

اخى هتفترض ان احنا شغالين على جدول اسمه inp وده الخاص ببيانات الموظفين والاخر اسمه outp وده خاص بأجور الموظفين والحقل الاول اسمه name والثانى اسمه id مع العلم ان الحقول دى لازم تبقى موجوده فى كلا الجدولين

dim rs,rs1 as new recordset 
dim i as double 

if rs.state=1 then rs.close 
rs.open"select * from inp",1,3 

if rs1.state=1 then rs1.close 
rs1.open"select * from outp",1,3 

for i =1 to rs.recordcount
rs1.addnew
rs1!name=rs!name
rs1!id=rs!id
rs1.update
rs.movenext
loop

اخى جرب الكود لو فى اى مشكله اخبرنى لانى كتبته والجهاز الموجود حاليا ليس عليه فجوال بيسيك

بالتوفيق ان شاء الله

شكرا يا صاحبى لكن جمله loop بتعمل مشاكل كتير لما يكون عدد السجلات كبير لانها بتاخد وقت

وغير كده انا قولت انى رابط من خلال ado

ولكن شكرا على تعبك معايه وانا الحمد لله وصلت لحل

وهو عباره عن الكود ده

علشان الكل يستفيد

الجزء ده

On Error Resume Next

Adodc1.RecordSource = "DELETE FROM [salary_help];"

Adodc1.Refresh

If Err = 3704 Then

End If

علشان يفرغ بيانات الجدول الى اسمه salary_help

ويخليه جاهز لاستقبال بيانات جديده

والجزء ده

On Error Resume Next

Adodc1.RecordSource = "Insert into salary_help(emp_num,emp_name,Management,Salary)(select emp_num,emp_name,Management,Salary from empoly_data where Management= '" & DataCombo1.Text & "' ) "

Adodc1.Refresh

If Err = 3704 Then

End If

ده هو المسئول عن نقل حقول معينه من جدول لجدول بشرط ان الاداره تساوى الى حيختاره المستخدم من الكمبوبوكس وده هو المطلوب

وشكرا مره تانى

بس فى مشكله فى الاكواد دى

انها بتظهر رساله مضمونه الاتى

operation is not allowed when the object is closed

مع ان الرساله دى ما بتعملش حاجه للكود وهى مش رساله خطء وكل حاجه بتمشى تمام

لكن تقريبا بتنبه لحاجه ان جدول او كائن مقفول

ياريت الى عنده حل للرساله دى يشارك معانا

وانا لو وصلت لحل حنزله هنا

اخى ضع المشروع البسيط اللى انت عاملته ده

وستجد الاعضاء قاموا لك بالتعديل عليه