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

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

- تحياتي .


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية اضافة استعلام وحفظه في قاعدة بيانات أبوسعود 4 101 17-05-17, 02:56 PM
آخر رد: أبوسعود
  [سؤال] معرفة اسماء الجداول الموجودة داخل قاعدة بيانات أبوسعود 5 185 15-05-17, 11:28 PM
آخر رد: Ahmed_Mansoor
  [سؤال] كود اضافة سجلات لجدول موجود في قاعدة بيانات باستخدام الاداة adox أبوسعود 2 82 04-05-17, 03:28 AM
آخر رد: أبوسعود
  ارجو المساعدة في اقرب وقت (حول ملأ الكمبو بوكس من جدول في قاعدة البيانات) larbihamri 6 183 01-05-17, 03:06 PM
آخر رد: mosamosa
  [vb6.0] ارجو المساعدة باجراء البحث بين MSHFlexGrid1 و MSHFlexGrid2 بحقل واحد و إجراء عملية ح عبدالقادرعواد 6 152 27-04-17, 11:56 AM
آخر رد: عبدالقادرعواد
  [vb6.0] ارجوا المساعدة في اظهار بيانات الفورم الأول في الفورم الثالث عبدالقادرعواد 2 99 22-04-17, 11:00 AM
آخر رد: عبدالقادرعواد
  [سؤال] ادوات ربط قواعد بيانات اكسس أبوسعود 3 123 19-04-17, 02:53 PM
آخر رد: عبد العزيز البسكري
  [vb6.0] طريقة ترقيم عمود في الداتا قريد و حل مشكلة الترقيم التلقائي في قاعدة البيانات larbihamri 9 235 16-04-17, 08:28 PM
آخر رد: larbihamri
  [vb6.0] ممكن شرح طريقة ربط في قاعدة بيانات واحدة بجدولين MSHFlexGrid2+MSHFlexGrid1 عبدالقادرعواد 3 110 11-04-17, 06:08 PM
آخر رد: sendbad100
  هل من الممكن تعديل بيانات عدد من السجلات في الجدول دفعة واحدة كنونو 6 191 01-04-17, 03:56 PM
آخر رد: كنونو

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


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