[VB.NET]

لدي قاعدة بيانات فيها مجموعة اصناف ولدي قاعدة بيانات اخرى بنفس الجداول الموجودة في الاولي
انا استخدمة هذا الكود
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
ولاكن هذا الكود يقوم بنقل كل ما تحتويه قاعدة البيانات الاولى الى الثانية
اريد كود يقوم بنقل البيانات المدخله فقط اي مثلا
لدي صنف حليب وقمة بنقله الى قاعدة البيانات الثانية
وقت بتسجيل صنف جديد مثلا لدي

حليب / شوكلاته
اريد كود ينقل الاصناف الغير موجودة في قاعدة البيانات الثانية
وليس كافة الاصناف مكررة
ارجو ان تكون وضحة الفكرة

[asto]

طبعا هذا مثال عن قاعدة بيانات اسمها 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

[VB.NET]

اخوي لم افهم شي من الاكواد ارجو مساعدتي اذا استطعت في المثال


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

[VB_Coder]

السلام عليكم

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

- تحياتي .

[VB.NET]

الله يعطيك العافية اخوي نعم الكود شغال تمام

---

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

[VB_Coder]

السلام عليكم

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

- تحياتي .

[VB.NET]

اخواني الكود نقل البيانات من قاعدة بيانات الى اخرى بشرط عدم تكرار البيانات الذي يتم نقلها
شغال تمام ولاكن على قاعدة بيانات 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 OLEDBatabase Password=alrabiee123789;"
DB.CursorLocation = adUseClient
End Sub

[VB_Coder]

السلام عليكم

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

كود :

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

- تحياتي .

[VB.NET]

الله يبارك فيك اخوي VB_Coder وكثر خيرك على مجهودك معي

ولاكن هل ينفع ان استخدم البروقرس بار في طريقة النقل هذي

[superwoofer]

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