منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
محتاج كود الحفظ وتعديل فى جدولين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=38361)



محتاج كود الحفظ وتعديل فى جدولين - new_programer - 28-04-21

السلام عليكم
 محتاج مثال  لحفظ تفاصيل الفاتورة وراس الفاتورة وتعديل المخزن 

وعندوث خطأ يتم التراجع عن الحفظ فى اى جدول 

برجاء محتاجة ضرورة ببحث ويحاول من فترة
ولم استطيع الوصول إلى المطلوب


RE: السلام عليكم محتاج كود الحفظ وتعديل فى جدولين - messry - 28-04-21

السلام عليكم

السؤال عايم جداً جداً
ايه الجداول اللي عندك
ايه بيانات الفاتورة
ايه التفاصيل وايه >>>>>>>>>>>>>>>>>>>>>

اعمل مثال لصور الفاتورة وقاعدة البيانات وان شاء الله الشباب ما راح يقصروا


RE: السلام عليكم محتاج كود الحفظ وتعديل فى جدولين - محمد اسماعيل - 28-04-21

(28-04-21, 02:49 AM)new_programer كتب : السلام عليكم
 محتاج مثال  لحفظ تفاصيل الفاتورة وراس الفاتورة وتعديل المخزن 

وعندوث خطأ يتم التراجع عن الحفظ فى اى جدول 

برجاء محتاجة ضرورة ببحث ويحاول من فترة
ولم استطيع الوصول إلى المطلوب

استخدم الكود الاتي بعد التحديث الاول اذا كان صحيح ويساوي 1 يعني تمت العملية للتعديل الاول اضف بداخل الشرط التعديل الثاني 

كود :
Dim com As New OleDbCommand("UPDATE STUDEN1_TB  SET  STUDENT_NAME=@STUDENT_NAME
  WHERE STUDENT_ID=@STUDENT_ID", con)

                com.Parameters.AddWithValue("@STUDENT_[size=small][font=Monaco, Consolas, Courier, monospace]STUDENT_[/font][/size][size=small][font=Monaco, Consolas, Courier, monospace]NAME[/font][/size]", OleDbType.VarChar).Value = ""
                com.Parameters.AddWithValue("@STUDENT_ID", OleDbType.VarChar).Value = 1


                con.Open()
                com.ExecuteNonQuery()
                con.Close()

If com.ExecuteNonQuery() = 0 Then


                   ' False  nothing
               Else
كود التحديث الثاني                
   ' True  updte done
               End If



RE: السلام عليكم محتاج كود الحفظ وتعديل فى جدولين - new_programer - 28-04-21

(28-04-21, 02:59 AM)messry كتب : السلام عليكم

السؤال عايم جداً جداً
ايه الجداول اللي عندك
ايه بيانات الفاتورة
ايه التفاصيل وايه >>>>>>>>>>>>>>>>>>>>>

اعمل مثال لصور الفاتورة وقاعدة البيانات وان شاء الله الشباب ما راح يقصروا
تمام. تسلم على ردك.  إن شاءالله اعمل مثال. وتوضيح المطلوب

(28-04-21, 03:05 AM)محمد اسماعيل كتب :
(28-04-21, 02:49 AM)new_programer كتب : السلام عليكم
 محتاج مثال  لحفظ تفاصيل الفاتورة وراس الفاتورة وتعديل المخزن 

وعندوث خطأ يتم التراجع عن الحفظ فى اى جدول 

برجاء محتاجة ضرورة ببحث ويحاول من فترة
ولم استطيع الوصول إلى المطلوب

استخدم الكود الاتي بعد التحديث الاول اذا كان صحيح ويساوي 1 يعني تمت العملية للتعديل الاول اضف بداخل الشرط التعديل الثاني 

كود :
Dim com As New OleDbCommand("UPDATE STUDEN1_TB  SET  STUDENT_NAME=@STUDENT_NAME
  WHERE STUDENT_ID=@STUDENT_ID", con)

                com.Parameters.AddWithValue("@STUDENT_[size=small][font=Monaco, Consolas, Courier, monospace]STUDENT_[/font][/size][size=small][font=Monaco, Consolas, Courier, monospace]NAME[/font][/size]", OleDbType.VarChar).Value = ""
                com.Parameters.AddWithValue("@STUDENT_ID", OleDbType.VarChar).Value = 1


                con.Open()
                com.ExecuteNonQuery()
                con.Close()

If com.ExecuteNonQuery() = 0 Then


                   ' False  nothing
               Else
كود التحديث الثاني                
   ' True  updte done
               End If

 هجرب الطريقة  إن شاءالله