تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعده في كود نقل بيانات من قاعدة الى اخرى
#1
لدي قاعدة بيانات فيها مجموعة اصناف ولدي قاعدة بيانات اخرى بنفس الجداول الموجودة في الاولي
انا استخدمة هذا الكود
Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
Private Sub Command1_Click()
If RS.State = adStateOpen Then RS.Close
RS.Open "Insert Into Table1 In'" & App.Path & "\db2.mdb" & "'" & " Select * From Table1", DB, adOpenDynamic, adLockOptimistic
MsgBox "تمت العملية بنجاح", vbInformation, "Sniper.ps"
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
ولاكن هذا الكود يقوم بنقل كل ما تحتويه قاعدة البيانات الاولى الى الثانية
اريد كود يقوم بنقل البيانات المدخله فقط اي مثلا
لدي صنف حليب وقمة بنقله الى قاعدة البيانات الثانية
وقت بتسجيل صنف جديد مثلا لدي

حليب / شوكلاته
اريد كود ينقل الاصناف الغير موجودة في قاعدة البيانات الثانية
وليس كافة الاصناف مكررة
ارجو ان تكون وضحة الفكرة
الرد }}}}
تم الشكر بواسطة:
#2
طبعا هذا مثال عن قاعدة بيانات اسمها DB1.MDB و فيه جدولين table و tablel 2

كود :
Set db = DBEngine.OpenDatabase(App.Path & "\DB1.MDB", False, False)
Set Rs2 = db.OpenRecordset("Select * From [table]", dbOpenDynaset)
Set Rs1 = db.OpenRecordset("Select * From [tablel 2]", dbOpenDynaset)


ضع هنا الشروط التي تريدها

و التي بتحققها تعمل حذف

يعني تقارن rs1 ,rs2  
اذا السجلان متماثلان يتم الحذف

و الا Rs2.AddNew
Rs2.Update
endif
       Rs1.MoveNext
    Loop
الرد }}}}
تم الشكر بواسطة:
#3
اخوي لم افهم شي من الاكواد ارجو مساعدتي اذا استطعت في المثال


المثال في المرفقات


الملفات المرفقة
.rar   Example.rar (الحجم : 18.1 ك ب / التحميلات : 105)
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم

- حاولت محاولة في تعديل الإستعلام , وأعتقد نجحت المحاولة جرب , هل تعمل بشكل صحيح .

- تحياتي .


الملفات المرفقة
.rar   Example-Fixed.rar (الحجم : 18.12 ك ب / التحميلات : 136)
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}
تم الشكر بواسطة: تركي الحلواني
#5
الله يعطيك العافية اخوي نعم الكود شغال تمام

انا اسف اخوي على كثر الاسئلة
ياريت لو اعرف كيف يتم ربط البروجرس بار بكود النقل
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم

- إذا أردت إستخدام أداة البروقرس بار في عملية النقل , فيستحسن إستخدام الكود العادي للنقل وليس عن طريق الإستعلام , يعني تفتح القاعدتين في الجدولين في نفس الوقت ثم تضيف السجلات من جدول إلى الآخر واحد واحد عن طريق حلقة تكرارية DO أوFor .

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}
تم الشكر بواسطة:
#7
اخواني الكود نقل البيانات من قاعدة بيانات الى اخرى بشرط عدم تكرار البيانات الذي يتم نقلها
شغال تمام ولاكن على قاعدة بيانات 2003 حولت قاعدة البيانات الى 2007 وعملت باسسورد ولاكن يعطيني رسالة
Not a valid password
ارفقة صورة الخطاء ارجو الاطلاع والافادة

الرسالة

طبعا هذا هوا الكود المستخدم


Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
Private Sub Command1_Click()
If RS.State = adStateOpen Then RS.Close
RS.Open "Insert Into a In'" & App.Path & "\Stock.accdb" & "'" & " Select * From a Where a Not IN (Select a From a IN'" & App.Path & "\Stock.accdb" & "')", DB, adOpenDynamic, adLockOptimistic
MsgBox "تمت العملية بنجاح", vbInformation, "Sniper.ps"
End Sub

Private Sub Form_Load()
Set DB = New ADODB.Connection
Set RS = New ADODB.Recordset
DB.Open "provider = Microsoft.ACE.OLEDB.12.0; data source = " & App.Path & "\Stockpos.accdb;Jet OLEDBBig Grinatabase Password=alrabiee123789;"
DB.CursorLocation = adUseClient
End Sub


الملفات المرفقة صورة/صور
       
الرد }}}}
تم الشكر بواسطة:
#8
السلام عليكم

- إستخدم هذا الكود :

كود :
Dim DB As ADODB.Connection

Private Sub Command1_Click()
DB.Execute "Insert Into [;DATABASE=" & App.Path & "\Stock.accdb;PWD=alrabiee123789].Table1 Select * From Table1 Where Name Not IN (Select Name From [;DATABASE=" & App.Path & "\Stock.accdb;PWD=alrabiee123789].Table1)"
MsgBox "تمت العملية بنجاح", vbInformation, "Sniper.ps"
End Sub

Private Sub Form_Load()
Set DB = New ADODB.Connection
DB.Open "provider = Microsoft.ACE.OLEDB.12.0; data source = " & App.Path & "\Stockpos.accdb;Jet OLEDB:Database Password=alrabiee123789;"
DB.CursorLocation = adUseClient
End Sub

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}
تم الشكر بواسطة: VB.NET
#9
الله يبارك فيك اخوي VB_Coder وكثر خيرك على مجهودك معي

ولاكن هل ينفع ان استخدم البروقرس بار في طريقة النقل هذي
الرد }}}}
تم الشكر بواسطة:
#10
أستاذنا VB_Coder أريد التعديل في الشكل النهائي المرفق بحيث استطيع تحديد مكان قاعدة البيانات بنفسي اذا تم تغير مكانها بواسطة browse
أرجو ان تكون الفكرة وصلت
انتظر الرد للمناقشة في أفكار أخري
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية ربط قاعدة البيانات القوائم المنسدلة bidaya 12 155 05-12-16, 01:54 PM
آخر رد: bidaya
  فتح برنامج مبرمج بالفيجوال بيسك6 و قاعدة بيانات MYSQL Ahmed Salem12 1 65 01-12-16, 03:40 PM
آخر رد: sendbad100
  [سؤال] برجاء المساعده في تغيير إسم جدول في قاعدة بيانات SQl Server بالفيجول بيسك6 engabuhema 2 61 24-11-16, 01:49 AM
آخر رد: ahmedabdelaliem
  مشكلة : قاعدة بيانات البرنامج بعد التنصيب لا تصبح بشكل ملف للقراءة فقط haiderkh 3 104 10-11-16, 12:56 AM
آخر رد: Ahmed_Mansoor
  [سؤال] اظهار بيانات Combo1 في Text iisys 3 173 07-11-16, 06:16 AM
آخر رد: AL_BRNS
  [سؤال] رفع فيديو في قاعدة البيانات jihad20003000 0 60 04-11-16, 02:35 PM
آخر رد: jihad20003000
  احتاج كود لعمل نسخة من قاعدة بيانات اكسس اثناء الاتصال بها sendbad100 3 127 01-11-16, 08:57 AM
آخر رد: sendbad100
  البحث المتقدم في قاعدة بيانات اكسس haniblack 4 149 31-10-16, 10:00 PM
آخر رد: moamen said
Exclamation [سؤال] كيفية تحديث بيانات جدول داخل قاعدة بيانات sql 2000 engabuhema 6 238 27-10-16, 11:28 AM
آخر رد: engabuhema
  شرح تحزيم قاعدة بيانات SQL Server 2000 ومحرك قواعد البيانات بوااسطة الـSetupFactory Ahmed_Mansoor 14 1,139 24-10-16, 02:07 PM
آخر رد: engabuhema

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


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