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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : ارجو المساعده في كود نقل بيانات من قاعدة الى اخرى (/showthread.php?tid=607)

الصفحات: 1 2

ارجو المساعده في كود نقل بيانات من قاعدة الى اخرى - VB.NET - 19-10-13

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

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

RE: ارجو المساعده في كود نقل بيانات من قاعدة الى اخرى - asto - 19-10-13

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


RE: ارجو المساعده في كود نقل بيانات من قاعدة الى اخرى - VB.NET - 20-10-13

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


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

RE: ارجو المساعده في كود نقل بيانات من قاعدة الى اخرى - VB_Coder - 22-10-13

السلام عليكم

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

- تحياتي .

RE: ارجو المساعده في كود نقل بيانات من قاعدة الى اخرى - VB.NET - 23-10-13

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

RE: ارجو المساعده في كود نقل بيانات من قاعدة الى اخرى - VB_Coder - 23-10-13

السلام عليكم

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

- تحياتي .

RE: ارجو المساعده في كود نقل بيانات من قاعدة الى اخرى - VB.NET - 24-10-13

اخواني الكود نقل البيانات من قاعدة بيانات الى اخرى بشرط عدم تكرار البيانات الذي يتم نقلها
شغال تمام ولاكن على قاعدة بيانات 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

RE: ارجو المساعده في كود نقل بيانات من قاعدة الى اخرى - VB_Coder - 24-10-13

السلام عليكم

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

كود :
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

- تحياتي .

RE: ارجو المساعده في كود نقل بيانات من قاعدة الى اخرى - VB.NET - 24-10-13

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

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

RE: ارجو المساعده في كود نقل بيانات من قاعدة الى اخرى - superwoofer - 20-11-13

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