منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

السلام عليكم

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

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

(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

(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

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