+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=25385)
طلب كود التعديل علي قاعدة بيانات اكسس - hatem555 - 15-06-18
برنامج علي وشك الانتهاء بمساعدتكم ان شاء الله
عملت برنامج مبيعات وخلصت كود اضافة العناصر للداتا جريد فيو
وبعدين من الداتا جريد فيو للداتا بيز مرة واحدة
بالكود ده
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) & "'"
RE: طلب كود التعديل علي قاعدة بيانات اكسس - elgokr - 15-06-18
الامر بسيط جداً
لنقول ان قيمة المود الذى تريد التحقق من القيمة به
بحيث اذا كان موجود يعمل تعديل واذا كان غير ذلك
يقوم بعمل كود الاضافة لنقول ان العمود رقم 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
تحياتى لك
وتمنياتى لك التوفيق
RE: طلب كود التعديل علي قاعدة بيانات اكسس - hatem555 - 15-06-18
(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) & "'"
RE: طلب كود التعديل علي قاعدة بيانات اكسس - elgokr - 15-06-18
الكود لا يوجد به مشكلة
لكن قد يكون المشكلة فى المسميات
او قيمة مكان قيمة مثلاً
PHP كود :
(dgv_bill.Rows(xx).Cells(6).Value)
بدلاً من
كود :
(dgv_bill.Rows(xx).Cells(2).Value)او مسميات الاعدمة بقاعدة البيانات ينقص او يختلف حرف بها
لذلك يحدث معك هذا الـ خصص
وايضاً وهام لانها لا تظهر بالصورة هل قيمة For لـ ii يبداء بـ 0 ام لا
لانه يجب ان يبداء بـ 0 فى بداية التنفيذ
تحياتى لك
وتمنياتى لك التوفيق