تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال عن قاعدة البيانات اكسس
#1
السلام عليكم اخوتي الكرام

سؤالي هو : عندي نسختين من قاعدة البيانات بنفس الجداول ونفس تسمية الحقول ولكن البيانات تختلف
هل ممكن اظافة سجلات النسخة الثانية الي النسخة الاولي بالكود

لان عندي برنامج اشتغل عليه انا وزميلي بس كل واحد منا موجود في مكان واريده ان يبعث لي نسخة من قاعدة البيانات كل شهر وانا اقوم باظافة سجلاته الي برنامجي
شكرا لكل من مرا من هنا وحاول المساعدة
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

فقط إستفسار أخي الكريم عندما قلت بأن البيانات تختلف هل تقصد أنواع الحقول تختلف يعني نصي ورقمي وما إلى ذلك أم أن الحقول متطابقة في الأسماء والنوع .
الرد }}}
تم الشكر بواسطة:
#3
أهلا أخي الكريم , لنفترض أن أسماء الجداول والحقول وأنواع الحقول متطابقة , فهذا هو كود الفورم لعملية نقل البيانات :

PHP كود :
Dim DB As ADODB.Connection
Dim RS 
As ADODB.Recordset

Private Sub Command1_Click()

If 
RS.State adStateOpen Then RS.Close
DoEvents

RS
.Open "Insert Into Table1 Select * From Table1 IN'" App.Path "\db2.mdb" "'"DBadOpenDynamicadLockOptimistic
DoEvents

MsgBox 
"تمت العملية بنجاح"vbInformation"تنبيه"

End Sub

Private Sub Form_Load()

Set DB = New ADODB.Connection
Set RS 
= New ADODB.Recordset

DB
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path "\db1.mdb"
DB.CursorLocation adUseClient

End Sub 
الرد }}}
#4
(15-02-17, 01:37 PM)Ahmed_Mansoor كتب : أهلا أخي الكريم , لنفترض أن أسماء الجداول والحقول وأنواع الحقول متطابقة , فهذا هو كود الفورم لعملية نقل البيانات :

PHP كود :
Dim DB As ADODB.Connection
Dim RS 
As ADODB.Recordset

Private Sub Command1_Click()

If 
RS.State adStateOpen Then RS.Close
DoEvents

RS
.Open "Insert Into Table1 Select * From Table1 IN'" App.Path "\db2.mdb" "'"DBadOpenDynamicadLockOptimistic
DoEvents

MsgBox 
"تمت العملية بنجاح"vbInformation"تنبيه"

End Sub

Private Sub Form_Load()

Set DB = New ADODB.Connection
Set RS 
= New ADODB.Recordset

DB
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path "\db1.mdb"
DB.CursorLocation adUseClient

End Sub 

بارك الله فيك اخي الكريم وجزاك عنا كل خير
انا جربت الكود بس للاسف لم استطع كتابته بالشكل الصحيح
ممكن لو سمحت تضع الكود في المثال المرفق لاستطيع انا تعديله واظافته في مشروعي
المطلوب هو اظافة السجلات الموجودة في  الجدول well في قاعدة البيانات db2 الي الجدول well في قاعدة البيانات db1
مع عدم اظافة البيانات المكررة
وشكرا لتعاونك اخي الكريم


الملفات المرفقة
.rar   Example.rar (الحجم : 508.46 ك ب / التحميلات : 47)
الرد }}}
تم الشكر بواسطة:
#5
أهلا أخي الكريم , تم تعديل المثال .

- ملاحظة :- تم إزالة المفتاح الأساسي من الجدول لكي يقبل التكرار ولكي يعمل الكود من دون أخطاء .


الملفات المرفقة
.rar   Example_1.rar (الحجم : 135.78 ك ب / التحميلات : 49)
الرد }}}
#6
(17-02-17, 12:31 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم , تم تعديل المثال .

- ملاحظة :- تم إزالة المفتاح الأساسي من الجدول لكي يقبل التكرار ولكي يعمل الكود من دون أخطاء .

بارك الله فيك اخي الكريم وجزاك عنا كل خير
هل لا توجد طريقة لمنع التكرار
لان من المهم جدا عدم تكرار البيانات في برنامجي
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 3 411 24-01-24, 01:51 PM
آخر رد: haitham Muhammed
  سؤال بخصوص الحلقات التكرارية / اضافة درجة بشروط haiderkh 14 4,067 19-01-24, 02:39 PM
آخر رد: cls
  [vb6.0] سؤال كيف يتم تحديد عدد مرات تنصيب الملف التنفيذي لبرنامج Hassan.syria 2 186 02-01-24, 10:07 AM
آخر رد: Hassan.syria
  عدم ضهور كل البيانات فراس محي 1 219 15-12-23, 06:05 AM
آخر رد: Taha Okla
  سؤال بخصوص الكتيف ربورت abde6726 2 322 20-11-23, 10:54 AM
آخر رد: abde6726
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 240 23-10-23, 12:11 AM
آخر رد: Taha Okla
  [vb6.0] سؤال حول كيفية عمل زر كوماند داخل عمود Msflexgrid جلال اليمني 5 544 14-09-23, 05:12 AM
آخر رد: جلال اليمني
  [vb6.0] سؤال حول تحويل الرقم لعملة في Msflexgrid جلال اليمني 3 406 28-08-23, 07:19 PM
آخر رد: جلال اليمني
  نقل بيانات الجدول الى جدول اخر بعد تجميع البيانات haithamelareny 1 353 10-08-23, 11:54 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟ Microformt 1 449 27-07-23, 08:33 PM
آخر رد: Taha Okla

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم