تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكله عدم ارجاع قيمه
#1
شباب عندي برنامج على الفيجوال دوت نت وقاعده البيانات اسكيوال سيرفر 
بواجهه الادخال من احفظ اريده يحفظه البيانات على جدول inputt وبنفس الوقت يزيد عدد 1 في جدول الرصيد للماده المسمى amouny .totla  طبعا الاسم راح يقارن من combobox2.text   ارجو المساعده
هذا كود الحفظ ارغب بالتعديل عليه 

PHP كود :
If TextBox1.Text "" Then
            MsgBox
("الرجاء ادخال رقم المستند")
 
       ElseIf TextBox2.Text "" Then
            MsgBox
("الرجاء ادخال تاريخ المستند")
 
       ElseIf ComboBox2.Text "" Then
            MsgBox
("الرجاء ادخال نوع ")
 
       ElseIf ComboBox3.Text "" Then
            MsgBox
("الرجاء ادخال حاله ")
 
       ElseIf ComboBox1.Text "" Then
            MsgBox
("الرجاء ادخال الجهه الوارده")
 
       ElseIf TextBox3.Text "" Then
            MsgBox
("الرجاء ادخال رقم ")
 
       ElseIf TextBox4.Text "" Then
            MsgBox
("الرجاء ادخال رقم الموافقه")
 
       ElseIf TextBox6.Text "" Then
            MsgBox
("الرجاء ادخال  الملاحظات")
 
       Else
            cmd 
= New SqlCommand("insert into inputta (nomdoc, datdoc,kinwep,wepsach,jeha,selnum,mowa,notees)values(@nomdoc, @datdoc,@kinwep,@wepsach,@jeha,@selnum,@mowa,@notees )"con)
 
           With cmd.Parameters.AddWithValue("@nomdoc"TextBox1.Text)
 
               cmd.Parameters.AddWithValue("@datdoc"TextBox2.Text)
 
               cmd.Parameters.AddWithValue("@kinwep"ComboBox2.Text)
 
               cmd.Parameters.AddWithValue("@wepsach"ComboBox3.Text)
 
               cmd.Parameters.AddWithValue("@jeha"ComboBox1.Text)
 
               cmd.Parameters.AddWithValue("@selnum"TextBox3.Text)
 
               cmd.Parameters.AddWithValue("@mowa"TextBox4.Text)
 
               cmd.Parameters.AddWithValue("@notees"TextBox6.Text)
 
               MsgBox("تم حفظ المستند بنجاح")
 
               TextBox1.Text ""
 
               TextBox2.Text ""
 
               ComboBox2.Text ""
 
               ComboBox3.Text ""
 
               ComboBox1.Text ""
 
               TextBox3.Text ""
 
               TextBox4.Text ""
 
               TextBox6.Text ""
 
           End With
            con
.Open()
 
           cmd.ExecuteNonQuery()
 
           con.Close() 
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم...
إذا أردت حفظ قيمة + القيمة لهذا السجل والربط بينهم يمكنك فعل الأتي:
1: الحفظ بهذا الكود.
2: عمل كود بـif لو المسمى موجود يتم عمل Upload ولو العكس يضيف جديد للمادة الذي تم تسميتها واضافة المادة لها.
المبرمج لا يفكر في المشكلة بل في الحل!!
الرد }}}
تم الشكر بواسطة: علي بنيان , Ronald
#3
(28-03-21, 04:02 AM)اسامه الهرماوي كتب : السلام عليكم...
إذا أردت حفظ قيمة + القيمة لهذا السجل والربط بينهم يمكنك فعل الأتي:
1: الحفظ بهذا الكود.
2: عمل كود بـif لو المسمى موجود يتم عمل Upload ولو العكس يضيف جديد للمادة الذي تم تسميتها واضافة المادة لها.

اذا امكن تعدل على الكود مالتي لان مفهمت ماذا تقصد
الرد }}}
تم الشكر بواسطة:
#4
شنوت شباب معقوله محد يعرف يكتبلي الكود المبرمجين الابطال
الرد }}}
تم الشكر بواسطة:
#5
منتدى عريق وقديم ومملوى بالمبرمجين محد كدر يحل المشكله ؟؟؟؟؟؟؟ معقوله هيك صعب الطلب
الرد }}}
تم الشكر بواسطة:



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


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