تقييم الموضوع :
  • 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 ك ب / التحميلات : 150)
الرد
تم الشكر بواسطة:
#4
السلام عليكم

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

- تحياتي .


الملفات المرفقة
.rar   Example-Fixed.rar (الحجم : 18.12 ك ب / التحميلات : 181)
كود :
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
أرجو ان تكون الفكرة وصلت
انتظر الرد للمناقشة في أفكار أخري
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بخصوص النقط والفواصل العشرية وغيرها في قاعدة البيانات hannileo 3 133 24-01-19, 01:58 PM
آخر رد: عبدالله الصافي
  [سؤال] ارجو المساعدة التقارير تفتح فاضية وعندما اقوم بتعطيل الكود لمعرفة الخطوات اجد التقرير mohamed elbery 4 140 22-01-19, 10:43 PM
آخر رد: mohamed elbery
  كيفية عمل ازرار مأخوذة او مربوطة مع قاعدة البيانات hannileo 6 296 14-01-19, 10:07 AM
آخر رد: hannileo
  السلام عليكم احبابى فى الله ارجو المساعدة بخصوص متفح الانتر نت mhareek 19 486 29-12-18, 05:24 PM
آخر رد: mhareek
  [Acces2003] ازاى اعمل قاعدة بيانات مشتركة ahmedhossam 4 2,364 25-12-18, 12:58 PM
آخر رد: aboezzat84
  [سؤال] كيفية تشغيل قاعدة بيانات برنامج VB6+Access على شبكة داخليه aboezzat84 2 216 25-12-18, 12:34 PM
آخر رد: aboezzat84
  تعبئة بيانات الكومبوكس من جدول SQLSERVER مصمم هاوي 1 131 09-12-18, 11:27 PM
آخر رد: مصمم هاوي
  [vb6.0] جلب بيانات من combo وتحديد webbrowser tempman 2 179 05-12-18, 01:04 PM
آخر رد: tempman
  [vb6.0] حل مشكلة حفظ الصورة في ملف وليس على قاعدة البياناتDataBase عبدالقادرعواد 3 318 26-11-18, 01:42 AM
آخر رد: عماد السيد
  طريقة تغيير نوع بيانات الحقل داخل جملة الاستعلام عبدالله الصافي 3 249 05-11-18, 03:30 AM
آخر رد: حريف برمجة

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


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