19-01-18, 11:22 PM
السلام عليكم
عندي جهازين جهاز سيرفر وجهاز الكاشير
جهاز السيرفر يوجد فيه البرنامج الخاص بأدخال الأصناف
الجهاز الثاني الكاشير خاص بأدخال المبيعات
طبعا البرنامجين فيجوال بيسك 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 OLEDBatabase 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; ")
باقي عندي الكود الي يقوم بسحب البيانات من الرئيسي الى الكاشير
""
نرجو الافادة في طريقة الكود
عندي جهازين جهاز سيرفر وجهاز الكاشير
جهاز السيرفر يوجد فيه البرنامج الخاص بأدخال الأصناف
الجهاز الثاني الكاشير خاص بأدخال المبيعات
طبعا البرنامجين فيجوال بيسك 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 OLEDBatabase 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; ")
باقي عندي الكود الي يقوم بسحب البيانات من الرئيسي الى الكاشير
""
نرجو الافادة في طريقة الكود