أرجوكم المساعدة أريد نسخ السجلات

ماهي عملية الربط التي تستخدمها .. وياليت يكون هناك مثال مربوط لتعديل عليه ولكي تجد الاجابة بشكل اسرع

اللي فهمته من سؤالك انه لديك قاعدتين بيانات وترين نسخ البيانات من القاعدة الأولى ونقلها للقاعدة الثانية

اذا هذا المطلوب

على افتراض أن اسم القاعدة التي تريد نسخ البيانات منها هو adodc1

واسم القاعدة التي تريد أن تنقل البيانات غليها هو adodc2

Dim n As Integer

n = Adodc1.Recordset.RecordCount

For a = 1 To n

Adodc2.Recordset.AddNew

Adodc2.Recordset.Fields("Fname") = Adodc1.Recordset.Fields("Fname")

Adodc2.Recordset.Fields("Sname") = Adodc1.Recordset.Fields("Sname")

Adodc2.Recordset.Fields("Lname") = Adodc1.Recordset.Fields("Lname")

Adodc2.Recordset.Update

Adodc2.Refresh

Adodc1.Recordset.MoveNext

Next a

أخي العزيز Abadi_Jeddah

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

والثاني والأخير في حقل واحد في القاعدة الأخرى

وزادك الله علما

لو سمحت إن لم يكن عليك مشقة بمثال تطبيقي حفظك الله

وضعت متغير من نوع حرفي وأسندت قيمة لهذا المتغير وهي الاسم الأول + الاسم الثاني + الاسم الثالث من القاعدة الأولى

ثم وضعت قيمة هذا المتغير للحقل الخاص بالاسم كاملا في القاعدة الثانية

dim s as string

s = Adodc1.Recordset.Fields("name1") & " " & Adodc1.Recordset.Fields("name2") & " " & Adodc1.Recordset.Fields("name3")

adodc2.recordset.fields("name") = s

ضع الأمر داخل حلقة التكرار مع تغيير مايلزم

أخي العزيز Abadi_Jeddah

أشكرك شكرا جزيلا على معلوماتك القيمة وأسأل الله أن يزيدك علمان وبارك الله فيك