الاخوة الافاضل
ارغب فى كود لنسخ بيانات جدول فى قاعدة بيانات الى قاعدة أخرى ( اكسس 2003) والقاعدتين لهم باسورد وذلك من خلال الفيجول بيسيك 6 باستخدام SQL و INSERT INTO
المطلوب كود لنسخ البيانات من جدول الاخر فى الفيحول بيسيك 6 مع العلم أن قاعدة البيانات الاولى والثانية محمية بكلمة سر والقاعدة معمولة بالاكسس 2003
أهلا أخي الكريم , هذا مثال للأخ sniper.ps عضو من هذا المنتدى .
(22-08-16, 01:17 AM)Ahmed_Mansoor كتب : [ -> ]أهلا أخي الكريم , هذا مثال للأخ sniper.ps عضو من هذا المنتدى .
شكرا اخى الكريم على الرد واسمح لى بسؤال عن تصحيح للصيغة التالية لنسخ بيانات جدول من قاعدة الى أخرى
1 - يتم فتح القاعدة التى يراد منها نسخ الحدول كالاتى
DB2.CursorLocation = adUseClient
DB2.Provider = "microsoft.jet.oledb.4.0;Jet OLEDB
atabase 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 اسم الجدول المراد النسخ منه
وشكرا لكم على المتابعة - وفى انتظار الرد
أهلا أخي الكريم , هذه الصيغة :
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"