تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في استعلام عن سجل موجود والتعديل عليه
#1
اصدقائي الاعزاء 

لدي جدول يوجد في سجلات واريد الاسنتعلام من FlowLayoutPanel.

في حالة السجل موجود مسبقا في قاعدة البيانات يتم التعديل عليه 
وفي حالة غير مودو يتم اضافه الي القاعدة 
كود :
 For i As Integer = 0 To frm_Conversion_store.FlowLayoutPanel3.Controls.Count - 1


               Dim Cmd As New SqlCommand("SELECT * FROM Tbl_all_store WHERE Bar_code=" & frm_Conversion_store.FlowLayoutPanel3.Controls(i).Controls("lbl_barcode").Text & "and ID_STORE=" & frm_Conversion_store.Label10.Text & "", conn)
               Dim DR As SqlDataReader
               'Cmd.Transaction = trans
               DR = Cmd.ExecuteReader


               If DR.HasRows Then

                   While DR.Read



                       'Dim a As Integer = frm_Conversion_store.FlowLayoutPanel3.Controls(i).Controls("Label2").Text

                       'Dim Cmd5 As New SqlCommand("Update Tbl_all_store set Quantitys=Quantitys + " & a & " where Bar_code=" & frm_Conversion_store.FlowLayoutPanel3.Controls(i).Controls("lbl_barcode").Text & "and ID_STORE=" & frm_Conversion_store.Label10.Text & "", conn)

                       'Cmd5.Transaction = trans

                       'Cmd5.ExecuteNonQuery()



                   End While

                   Dim Com1 As New SqlCommand("insert into Tbl_all_store(id_Store,Bar_code,ItemName,GroupName,UnitsName,ExpirationDate,PurchasePrice,SalePrice,SalePrice2,DiscountRatio,DiscountValue,Profits,LessAmount,Quantitys,Store_Name,Itemimg)values(@id_Store,@Bar_code,@ItemName,@GroupName,@UnitsName,@ExpirationDate,@PurchasePrice,@SalePrice,@SalePrice2,@DiscountRatio,@DiscountValue,@Profits,@LessAmount,@Quantitys,@Store_Name,@Itemimg)", conn)


                   Com1.Parameters.AddWithValue("@id_Store", frm_Conversion_store.Label10.Text)
                   Com1.Parameters.AddWithValue("@Store_Name", frm_Conversion_store.BunifuButton2.Text)
                   Com1.Parameters.AddWithValue("@Bar_code", frm_Conversion_store.FlowLayoutPanel3.Controls(i).Controls("lbl_barcode").Text)
                   Com1.Parameters.AddWithValue("@ItemName", frm_Conversion_store.FlowLayoutPanel3.Controls(i).Controls("btn").Text)
                   Com1.Parameters.AddWithValue("@GroupName", frm_Conversion_store.FlowLayoutPanel3.Controls(i).Controls("Label13").Text)
                   Com1.Parameters.AddWithValue("@UnitsName", frm_Conversion_store.FlowLayoutPanel3.Controls(i).Controls("Label14").Text)
                   Com1.Parameters.AddWithValue("@ExpirationDate", frm_Conversion_store.FlowLayoutPanel3.Controls(i).Controls("Label5").Text)
                   Com1.Parameters.AddWithValue("@PurchasePrice", frm_Conversion_store.FlowLayoutPanel3.Controls(i).Controls("Label6").Text)
                   Com1.Parameters.AddWithValue("@SalePrice", frm_Conversion_store.FlowLayoutPanel3.Controls(i).Controls("Label2").Text)
                   Com1.Parameters.AddWithValue("@SalePrice2", frm_Conversion_store.FlowLayoutPanel3.Controls(i).Controls("Label8").Text)

                   Com1.Parameters.AddWithValue("@DiscountRatio", frm_Conversion_store.FlowLayoutPanel3.Controls(i).Controls("Label9").Text)
                   Com1.Parameters.AddWithValue("@DiscountValue", frm_Conversion_store.FlowLayoutPanel3.Controls(i).Controls("Label10").Text)
                   Com1.Parameters.AddWithValue("@Profits", frm_Conversion_store.FlowLayoutPanel3.Controls(i).Controls("Label11").Text)
                   Com1.Parameters.AddWithValue("@LessAmount", frm_Conversion_store.FlowLayoutPanel3.Controls(i).Controls("Label12").Text)
                   Com1.Parameters.AddWithValue("@Quantitys", frm_Conversion_store.FlowLayoutPanel3.Controls(i).Controls("Label3").Text)
                   'com1.Parameters.AddWithValue("@Itemimg", picbyte)
                   'Com1.Transaction = trans
                   Com1.ExecuteNonQuery()
               End If

               DR.Close()

           Next
الرد
تم الشكر بواسطة:
#2
لا داعي لعمل For للدورات على الادوات والبحث فيه

عليك بالاستعلام عن رقم الباركود فقط
فاذا وجده فقم بتنفيذ كود التعديل
واذا لم يجده فقم بتنفيذ كود الاضافه
الرد
تم الشكر بواسطة: ابو انس
#3
(30-05-21, 12:59 AM)Fareed كتب : لا داعي لعمل For للدورات على الادوات والبحث فيه

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

الفكرة من المشروع التحويل بين المخازن لهذا انا استخدم  for للمقارنة بين الباركود ورقم المخزن  الان في حالة  الباركود ورقم المخزن موجودين  في الجدول يتم تعديل كمية الصنف وفي حالة غير موجودين يتم اضافة الصنف ( الباركود - ورقم المخزن - اسم الصنف - الكمية  )


ان شاء الله تمون وضحة الفكرة
الرد
تم الشكر بواسطة:
#4
الموضوع ببساطة انشئ sub خاص بالتعديل وليكن اسمه updae_ و sub خاص بالاضافة وليكن اسمه مثلا add_
ثم استعلم عن المادة في المخزن
اذا كانت موجودة يتم تنفيذ updae_ 
واذا كانت غير موجودة يتم تنفيذ add_
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 
 مجاناااااا
واتساب 00963951283515
الرد
تم الشكر بواسطة: Fareed
#5
(30-05-21, 01:57 PM)ابو انس كتب : الموضوع ببساطة انشئ sub خاص بالتعديل وليكن اسمه updae_ و sub خاص بالاضافة وليكن اسمه مثلا add_
ثم استعلم عن المادة في المخزن
اذا كانت موجودة يتم تنفيذ updae_ 
واذا كانت غير موجودة يتم تنفيذ add_

شكرا ابو انس علي المداخلة 
بس ممكن توضيح اكثر لو سمحت
الرد
تم الشكر بواسطة:
#6
اول شي اكيد انت عندك جدول خاص بالمواد
وجدول اخر خاص بالمخازن
اعمل علاقة بين الجدولين
ثم اعمل اعمل استعلام يجلب اسم المادة وفق بارامترات
بارامتر يمثل مثلا اسم المستودع وباؤامتر يمثل اسم المادة
طبعا هذا على اساس انو اسم المستودع واسم المادة لا يقبل التكرار
في حال كانت الصفوف التي جلبها عددها اكبر من صفر فهذا يعني ان هذه المادة موجودة في هذا المستودع
الاحتمال الثاني ان عدد الصفوف ليس اكبر من صفر وهذا يعني ان المادة غير موجودة
بالحالة الاولى منعمل كود تعديل
وبالحالة الثانية منعمل كود اضافة
....
في حال كان هذا الكلام غير واضح بالنسبة لك خبرني مشان اعملك مشروع صغير فيه مثال وارفعلك السورس كود
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 
 مجاناااااا
واتساب 00963951283515
الرد
تم الشكر بواسطة: Fareed
#7
(30-05-21, 03:24 PM)ابو انس كتب : اول شي اكيد انت عندك جدول خاص بالمواد
وجدول اخر خاص بالمخازن
اعمل علاقة بين الجدولين
ثم اعمل اعمل استعلام يجلب اسم المادة وفق بارامترات
بارامتر يمثل مثلا اسم المستودع وباؤامتر يمثل اسم المادة
طبعا هذا على اساس انو اسم المستودع واسم المادة لا يقبل التكرار
في حال كانت الصفوف التي جلبها عددها اكبر من صفر فهذا يعني ان هذه المادة موجودة في هذا المستودع
الاحتمال الثاني ان عدد الصفوف ليس اكبر من صفر  وهذا يعني ان المادة غير موجودة
بالحالة الاولى منعمل كود تعديل
وبالحالة الثانية منعمل كود اضافة
....
في حال كان هذا الكلام غير واضح بالنسبة لك خبرني مشان اعملك مشروع صغير فيه مثال وارفعلك السورس كود

مزال الكلام غير واضح عندي لو تكرمت ارفع ليا المشروع لو هذا ما ياخد من وقتك
الرد
تم الشكر بواسطة:
#8
في المرفقات تجد سورس كود يشرح الامر
طبعا قمت بتصميمه وبرمجته وانا مستعجل يعني مجرد مثال لتتضح الصورة لديك


الملفات المرفقة
.rar   test.rar (الحجم : 389.46 ك ب / التحميلات : 15)
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 
 مجاناااااا
واتساب 00963951283515
الرد
تم الشكر بواسطة:
#9
(30-05-21, 11:17 PM)ابو انس كتب : في المرفقات تجد سورس كود يشرح الامر
طبعا قمت بتصميمه وبرمجته وانا مستعجل يعني مجرد مثال لتتضح الصورة لديك
شكرا لك ابو انس
الرد
تم الشكر بواسطة: ابو انس


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تشغيل البرنامج علاء الكبابي 3 215 08-06-21, 03:42 PM
آخر رد: علاء الكبابي
  [VB.NET] مشكلة بالكريستال لا يريد التنصيب AhmedNagib 7 393 30-05-21, 11:39 PM
آخر رد: ابو انس
Sad مشكلة عدم دقة توقيت التايمر أسعد 14 777 27-05-21, 03:32 AM
آخر رد: معاند الحظ
  مشكلة في تحويل كود من c# الى vb.net aldery 2 278 18-05-21, 06:47 PM
آخر رد: aldery
  [VB.NET] مشكلة في برنامج vb.net aliabdullah 3 321 13-05-21, 10:19 AM
آخر رد: Fantastico
  أريد معرفة ما ان كان البرنامج موجود مسبقا علي الكمبيوتر ام لا أبو عبدالله الحلواني 9 450 06-05-21, 08:10 PM
آخر رد: أبو عبدالله الحلواني
  [VB.NET] استعلام متقدم لعرض البيانات بالداتاجريد فيو محمد اسماعيل 4 381 27-04-21, 04:26 PM
آخر رد: messry
  استعلام عن اكبر تاريخ و اكبر قيمة في الحقلين العيدروس 12 475 24-04-21, 05:37 AM
آخر رد: messry
  مشكلة عندالتعامل مع (My.Application.CommandLineArgs) عبدالله الصافي 12 922 21-04-21, 03:17 PM
آخر رد: عبدالله الصافي
  مشكلة تحديث برنامجي عن تحزيمه ببرنامج Smart Install Maker alfaiz678 2 304 18-04-21, 12:42 PM
آخر رد: alfaiz678

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم