[abosara]

(22-08-16, 01:17 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم , هذا مثال للأخ sniper.ps عضو من هذا المنتدى .

شكرا اخى الكريم على الرد واسمح لى بسؤال عن تصحيح للصيغة التالية لنسخ بيانات جدول من قاعدة الى أخرى
1 - يتم فتح القاعدة التى يراد منها نسخ الحدول كالاتى
            DB2.CursorLocation = adUseClient
            DB2.Provider = "microsoft.jet.oledb.4.0;Jet OLEDBatabase Password=123;"
            DB2.Open App.Path & "\database2.mdb"
2 - استخدام الصيفة التالية
            SQL1 = " INSERT INTO " & PN1 & " IN '" & App.Path & "\database1.mdb ' 'ACCESS' SELECT * FROM " & PK1
                    DB2.Execute SQL1
PN1 اسم الجدول المراد النسخ اليه
database1 اسم قاعدة البيانات المراد النسخ اليها والمطلوب هنا اضافة كلمة السر لهذه القاعدة وهى 456
PK1 اسم الجدول المراد النسخ منه
وشكرا لكم على المتابعة - وفى انتظار الرد