منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيفية نسخ جدول من قاعدة بيانات الى قاعدة أخرى علما بأن القاعدتين لهم باسورد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : كيفية نسخ جدول من قاعدة بيانات الى قاعدة أخرى علما بأن القاعدتين لهم باسورد (/showthread.php?tid=16910)

كيفية نسخ جدول من قاعدة بيانات الى قاعدة أخرى علما بأن القاعدتين لهم باسورد - abosara - 21-08-16

الاخوة الافاضل
ارغب فى كود لنسخ بيانات جدول فى قاعدة بيانات الى قاعدة أخرى ( اكسس 2003) والقاعدتين لهم باسورد وذلك من خلال الفيجول بيسيك  6 باستخدام SQL  و INSERT INTO


المطلوب كود لنسخ البيانات من جدول الاخر فى الفيحول بيسيك 6 مع العلم أن قاعدة البيانات الاولى والثانية محمية بكلمة سر والقاعدة معمولة بالاكسس 2003

RE: كيفية نسخ جدول من قاعدة بيانات الى قاعدة أخرى علما بأن القاعدتين لهم باسورد - Ahmed_Mansoor - 22-08-16

أهلا أخي الكريم , هذا مثال للأخ sniper.ps عضو من هذا المنتدى .

RE: كيفية نسخ جدول من قاعدة بيانات الى قاعدة أخرى علما بأن القاعدتين لهم باسورد - abosara - 22-08-16

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

شكرا اخى الكريم على الرد واسمح لى بسؤال عن تصحيح للصيغة التالية لنسخ بيانات جدول من قاعدة الى أخرى
1 - يتم فتح القاعدة التى يراد منها نسخ الحدول كالاتى
            DB2.CursorLocation = adUseClient
            DB2.Provider = "microsoft.jet.oledb.4.0;Jet OLEDBBig Grinatabase 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 اسم الجدول المراد النسخ منه
وشكرا لكم على المتابعة - وفى انتظار الرد

RE: كيفية نسخ جدول من قاعدة بيانات الى قاعدة أخرى علما بأن القاعدتين لهم باسورد - Ahmed_Mansoor - 23-08-16

أهلا أخي الكريم , هذه الصيغة :

1- فتح فاعدة البيانات الأولى والتي يوجد فيها الجدول المراد نسخ البيانات منه  وليكن مثلا إسم القاعدة الأولى هو Database1.mdb وكلمة المرو الخاصة بها هي 123 :

PHP كود :
DB.CursorLocation = adUseClient
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database1.mdb;Jet OLEDB:Database Password=123;Persist Security Info=False" 

2- نسخ البيانات من الجدول الموجود في قاعدة البيانات الأولى إلى الجدول الموجود في قاعدة البيانات الثانية وليكن إسمها Database2  وكلمة المرور لها هي 456 وإسم الجدول المراد النسخ إليه هو Table2 , ملاحظه سيتم نقل أو نسخ البيانات بدون شروط يعني بدون كلمة Where لذلك لابد أن تكون الأعمدة او الحقول في كلا الجدولين متطابقة :

PHP كود :
DB.Execute "Insert Into [;DATABASE=" & App.Path & "\Database2.mdb;PWD=456].Table2 Select * From Table1"