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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : المساعده في تحويل الكود (/showthread.php?tid=23417)



المساعده في تحويل الكود - VB.NET - 19-01-18

السلام عليكم 
عندي جهازين جهاز سيرفر وجهاز الكاشير 
جهاز السيرفر يوجد فيه البرنامج الخاص بأدخال الأصناف 
الجهاز الثاني الكاشير خاص بأدخال المبيعات 
طبعا البرنامجين فيجوال بيسك 6 
وفمت الان بتحويلها الى VB.NET 2013 لاكن المشكلة كان عندي كود يقوم بسحب الاصناف من الجهاز الرئيسي الى الكاشير والكود كالتالي :

جملة الاتصال :
If rsb.State = adStateOpen Then rsb.Close
rsb.Open "provider = Microsoft.ACE.OLEDB.12.0; data source = " & Path & "\\192.168.100.100\data\data.accdb;Jet OLEDBBig Grinatabase Password=*****;"
End Sub

والكود الخاص سحب البيانات كالتالي :

If mosh.State = adStateOpen Then mosh.Close

mosh.Open "Insert Into item1 In'" & App.Path & "\data.accdb" & "'" & " Select * From item1 where SKU Not IN (Select SKU From item1 IN'" & App.Path & "\data.accdb" & "')", rsb, adOpenDynamic, adLockOptimistic

واحتاج تحول الكود الى VB.NET 2013 كيف اعمل كود بنفس الطريقة هذي .

جملة الاتصال في ال VB.NET كالتالي :
    Public con As New SqlClient.SqlConnection("data source=.;Initial catalog=RB_POS; User ID=PC1; Password=PC11984; ")

باقي عندي الكود الي يقوم بسحب البيانات من الرئيسي الى الكاشير 
""


نرجو الافادة في طريقة الكود


RE: المساعده في تحويل الكود - VB.NET - 20-01-18

ارجو المساعدة


RE: المساعده في تحويل الكود - VB.NET - 20-01-18

ارجو المساعدة ؟؟؟؟؟


RE: المساعده في تحويل الكود - HASAN6.0 - 20-01-18

ارفق مشروع مبسط ليتم اكمال العمل عليه