![]() |
|
المساعده في تحويل الكود - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 OLEDB atabase 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 ارفق مشروع مبسط ليتم اكمال العمل عليه |