تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود التعديل علي قاعدة بيانات اكسس
#1
برنامج علي وشك الانتهاء بمساعدتكم ان شاء الله
عملت برنامج مبيعات وخلصت كود اضافة العناصر للداتا جريد فيو
وبعدين من الداتا جريد فيو للداتا بيز مرة واحدة
بالكود ده
PHP كود :
 For x As Integer 0 To dgv_bill.Rows.Count 1
            Using con 
As New OleDbConnection(CnString5)
 
               Using cmd As New OleDbCommand("insert into items (item_code,item_name,item_barcode,item_sort,price_cost,price_salles,quantity,discount,item_low,notes) values(@column2,@column4,@column3,@column13,@column6,@column7,@column5,@column10,@column8,@column9)"con)

 
                   cmd.Parameters.AddWithValue("@column2", (dgv_bill.Rows(x).Cells(1).Value))
 
                  
محتاج كود التعديل
يعني لو في صف متشابه فيه الاسم يبقي مش يضيف صف جديد في الداتا بيز
انما يعدل علي الموجود بس
مع العلم اني باضيف جميع الصفوف للداتا جريد فيو
وبعدين في كود للحفظ للداتا بيز من الجريد فيو
مع العلم اني استخدمت الكود ده ومش ظبط معايا
PHP كود :
SavInto.CommandText "UPDATE items SET price_cost = '" & (dgv_bill.Rows(xx).Cells(6).Value) & "' ,price_salles = '" & (dgv_bill.Rows(xx).Cells(7).Value) & "', quantity =  '" & (dgv_bill.Rows(xx).Cells(5).Value) & "' ,discount = '" & (dgv_bill.Rows(xx).Cells(10).Value) & "',item_low = '" & (dgv_bill.Rows(xx).Cells(8).Value) & "',notes = '" & (dgv_bill.Rows(xx).Cells(9).Value) & "'  WHERE item_code ='" & (dgv_bill.Rows(xx).Cells(1).Value) & "'" 
الرد
تم الشكر بواسطة:
#2
الامر بسيط جداً
لنقول ان قيمة المود الذى تريد التحقق من القيمة به
بحيث اذا كان موجود يعمل تعديل واذا كان غير ذلك
يقوم بعمل كود الاضافة لنقول ان العمود رقم 1 اى انه رقم 2 بالظاهر لديك

سيكون الكود بهذا الشكل
كود :
       For x As Integer = 0 To dgv_bill.Rows.Count - 1
           Using con As New OleDbConnection(CnString5)
               If dgv_bill.Rows(x).Cells(1).Value = "القيمة التحقق" Then  ' مثلاً قيمة التحقق هنا وليكن textbox1.txt
                   Using cmd As New OleDbCommand("update ....... ", con)
                       Else
                       Using cmd As New OleDbCommand("insert ....... ", con)
               End If

يارب الفكرة من الكود واضحة
فقط ضع كود التعديل فى منطقة الـ UPDATE 
وفقط ضع كود الاضافة فى منطقة الـ INSERT

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
#3
(15-06-18, 04:39 AM)elgokr كتب :
الامر بسيط جداً
لنقول ان قيمة المود الذى تريد التحقق من القيمة به
بحيث اذا كان موجود يعمل تعديل واذا كان غير ذلك
يقوم بعمل كود الاضافة لنقول ان العمود رقم 1 اى انه رقم 2 بالظاهر لديك

سيكون الكود بهذا الشكل
كود :
       For x As Integer = 0 To dgv_bill.Rows.Count - 1
           Using con As New OleDbConnection(CnString5)
               If dgv_bill.Rows(x).Cells(1).Value = "القيمة التحقق" Then  ' مثلاً قيمة التحقق هنا وليكن textbox1.txt
                   Using cmd As New OleDbCommand("update ....... ", con)
                       Else
                       Using cmd As New OleDbCommand("insert ....... ", con)
               End If

يارب الفكرة من الكود واضحة
فقط ضع كود التعديل فى منطقة الـ UPDATE 
وفقط ضع كود الاضافة فى منطقة الـ INSERT

تحياتى لك
وتمنياتى لك التوفيق


شكرا علي الاهتمام اخي الجوكر
انا عايز اعرف صيغة الكود ده صح والا غلط عشان كل ماجي اشغله يعطيني خطا
PHP كود :
SavInto.CommandText "UPDATE items SET price_cost = '" & (dgv_bill.Rows(xx).Cells(6).Value) & "' ,price_salles = '" & (dgv_bill.Rows(xx).Cells(7).Value) & "', quantity =  '" & (dgv_bill.Rows(xx).Cells(5).Value) & "' ,discount = '" & (dgv_bill.Rows(xx).Cells(10).Value) & "',item_low = '" & (dgv_bill.Rows(xx).Cells(8).Value) & "',notes = '" & (dgv_bill.Rows(xx).Cells(9).Value) & "'  WHERE item_code ='" & (dgv_bill.Rows(xx).Cells(1).Value) & "'" 


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#4
الكود لا يوجد به مشكلة
لكن قد يكون المشكلة فى المسميات

او قيمة مكان قيمة مثلاً
PHP كود :
(dgv_bill.Rows(xx).Cells(6).Value

بدلاً من 
كود :
(dgv_bill.Rows(xx).Cells(2).Value)

او مسميات الاعدمة  بقاعدة البيانات ينقص او يختلف حرف بها
لذلك يحدث معك هذا الـ خصص
وايضاً وهام لانها لا تظهر بالصورة هل قيمة For لـ ii يبداء بـ 0 ام لا
لانه يجب ان يبداء بـ 0 فى بداية التنفيذ

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اعادة ترقيم خلية معينة بقاعدة بيانات thevest_knight 3 42 منذ 8 ساعة مضت
آخر رد: حريف برمجة
  مطلوب عرض تفاصيل بيانات داخل Texbox عن طريق ListView ... احتاج كود استعلام mohamedgadain61 4 93 19-01-19, 06:15 PM
آخر رد: حريف برمجة
  [VB.NET] محتاج التعديل على الكود dubai.eig 1 122 17-01-19, 09:50 AM
آخر رد: dubai.eig
  اجمالى الفواتير فى قاعدة البيانات atef_020 9 162 16-01-19, 11:14 PM
آخر رد: atef_020
  [VB.NET] ;سؤال كيفية تعديل المدخلات في (الداتا قريد فيو ) قبل الحفظ في قاعدة البيانات EYADISMAIL 4 187 16-01-19, 01:26 AM
آخر رد: EYADISMAIL
  إضافة حقول DateTimePicker الى قاعدة البيانات Hamoody 0 69 12-01-19, 02:21 AM
آخر رد: Hamoody
  سؤال بخصوص تحديث بيانات DataGridView abdullhadi999 14 332 09-01-19, 10:56 PM
آخر رد: abdullhadi999
  [سؤال] اريد كود يختار سجل من جدول في قاعدة البيانات عشوائيا ويعرض في النموذج abdalla89 7 935 07-01-19, 04:31 PM
آخر رد: elgokr
  [سؤال] نص اتصال قاعدة sqlite بكلمة المرور princelovelorn 4 116 07-01-19, 02:09 PM
آخر رد: elgokr
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 5 1,788 07-01-19, 01:49 AM
آخر رد: EYADISMAIL

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


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