+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=45502)
مشكلة اتمنى لها حل سريعا - خالد كامل1 - 15-02-23
السلام عليكم احبتى فى الله
معى مشكلة اتمنى حلها سريعا لان واقف شغلى وتسليم البرنامج وبارك الله فيكم
لدى جدولين الاول عباره عن مجموعه من الصناف بكمياتها والثانى عباره عن اذن للتحويل اصناف اخرى للجدول رقم 1 ..اريد ان وجد كود الصنف يضيف عليه الكميه المحوله وان لم يجده يضيف صنف جديد الى الجدول الاول مع الكميه وبار كود ه الموجود فى الفورم الثانى وهكذا وهذا مثال فى المرفقات
ولكم منى جزيل الشكر
RE: مشكلة اتمنى لها حل سريعا - خالد كامل1 - 16-02-23
ارجو من احبتى فى الله ان تجاوبونى او حتى تقترحوا طريقه او كود مختلف
RE: مشكلة اتمنى لها حل سريعا - خالد كامل1 - 17-02-23
ارجو من اخوانى لو حد حابب توضيح يقولى..
RE: مشكلة اتمنى لها حل سريعا - Taha Okla - 17-02-23
هل هذا جزء من برنامج تريد بيعه في السوق ؟
أم توزعه بشكل مجاني؟
RE: مشكلة اتمنى لها حل سريعا - kebboud - 17-02-23
(17-02-23, 12:08 PM)Taha Okla كتب : هل هذا جزء من برنامج تريد بيعه في السوق ؟
أم توزعه بشكل مجاني؟
السلام عليكم
أخي طه اوكلا
الرجل يريد مساعدة و أنت تفتح معه تحقيقا بوليسيا ...ههههه
RE: مشكلة اتمنى لها حل سريعا - ابو انس - 17-02-23
وعليكم السلام
قاعدة البيانات لم تفتح
انا افترضت ان العمود المسؤول عن كود الصنف اسمه colname وهو من نوع نصي موجود داخل الجدول CODE_22 في حال كان من نوع رقمي حول المتغير a الى النوع المناسب مثلا double او ما تراه مناسبا
لا داعي لاكتب كود الحفظ وكود التعديل لانهن موجودات من قبل في البرنامج
كود :
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
dt.Clear()
Dim a As String = PRO_CODE.Text
da = New OleDbDataAdapter("select colname from CODE_22 where colname='" & a & "'", con4)
da.Fill(dt)
If dt.Rows.Count > 0 Then
'هنا نكتب كود التعديل على الصنف اذ انه موجود من قبل
Else
'هنا نكتب كود اضافة الصنف لانه غير موجود من قبل
End IfRE: مشكلة اتمنى لها حل سريعا - Basil Abdallah - 18-02-23
Dim query As String = "MERGE Table1 AS t
USING Table2 AS s
ON (t.ProductID = s.ProductID)
WHEN MATCHED THEN
UPDATE SET t.Quantity = t.Quantity + s.Quantity
WHEN NOT MATCHED THEN
INSERT (ProductID, Quantity)
VALUES (s.ProductID, s.Quantity);"
Dim cmd As New SqlCommand(query, connection)
cmd.ExecuteNonQuery()
في هذا المثال، يتم دمج Table1 و Table2 باستخدام العمود ProductID. إذا تم العثور على قيمة ProductID المطابقة في الجدول الأول Table1، يتم تحديث كمية المنتج بقيمة الكمية المضافة في الجدول الثاني Table2. وإذا لم يتم العثور على قيمة ProductID المطابقة، يتم إدخال السجل الجديد إلى جدول الأول Table1.
لاحظ أنه يجب تعيين قيمة الاتصال connection قبل تنفيذ الاستعلام. كما يجب تغيير اسماء الجداول والأعمدة لتناسب تركيبة البيانات الخاصة بك.
أتمنى أن يساعدك هذا المثال في حل مشكلتك.