تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة فى كود امر وارد الي مخزن
#1
Photo 
السلام عليكم 
قمت بعمل كود لامر وارد الى مخزن او صرف منه وهذا هو كود اضافة امر توريد وهذا الكود يعمل بكفاءة في الاضافة الى قاعدة البيانات ولكن هناك مشكلتين 

كود :
Private Sub insert()

       ConnectDb()
       '========================================
       ds = New DataSet
       da = New SqlDataAdapter("SELECT * FROM income", con)
       da.Fill(ds, "income")
       cmd = New SqlCommand("INSERT INTO income (income_id, Suppiler_id_income, date_of_income) VALUES ( @income_id, @Suppiler_id_income, @date_of_income)", con)
       With cmd.Parameters
           .AddWithValue("@income_id", txtofnumorder.Text).DbType = DbType.Int32
           .AddWithValue("@Suppiler_id_income", cmbSuppliers.SelectedValue).DbType = DbType.Int32
           .AddWithValue("@date_of_income", dateoforder.Value).DbType = DbType.Date
       End With
       cmd.ExecuteNonQuery()
       '========================================================
       ds.Clear()
       ds = New DataSet
       da = New SqlDataAdapter("SELECT * FROM IncomeDetail", con)
       da.Fill(ds, "IncomeDetail")
       Dim i As Integer
       Try
           For i = 0 To DataGridView1.RowCount - 1
               Dim itemo As Integer = CInt(DataGridView1.Rows(i).Cells(0).Value)
               Dim Quantity1 As Integer = CInt(DataGridView1.Rows(i).Cells(1).Value)
               '=============================================================

               cmd = New SqlCommand("INSERT INTO IncomeDetail (income_id_det, Product_ID_income, Quantity) VALUES ( @income_id_det, @Product_ID, @Quantity)", con)
               With cmd.Parameters
                   .AddWithValue("@income_id_det", txtofnumorder.Text).DbType = DbType.Int32
                   .AddWithValue("@Product_ID", itemo).DbType = DbType.Int32
                   .AddWithValue("@Quantity", Quantity1).DbType = DbType.Int32
               End With
               cmd.ExecuteNonQuery()
               '===============================================
               cmd = New SqlCommand("UPDATE Product Set Quanty = Quanty+" & Quantity1 & " WHERE Product_ID = '" & itemo & "'", con)
               cmd.ExecuteNonQuery()
           Next
           MessageBox.Show("تم الحفظ بنجاح", AppError, MessageBoxButtons.OK, MessageBoxIcon.Information)
           DisconnectDb()
           FillData()

       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try

   End Sub

المشكلة الاولي رسالة لا اعرف سببها وهذا نصها  




اما المشكلة الثانية اني من المفترض عند الضغط علي زر حفظ يتم تفريغ الداتا جريد كيف يتم تفريغها 


وجزاكم الله خيرا
الرد
تم الشكر بواسطة:
#2
دة حل المشكله الثانية
DataGridView1.Rows.Clear()
DataGridView1.DataSource = Nothing
الرد
تم الشكر بواسطة:
#3
السلام عليكم

المشكلة الأولى فأنت تحفظ في جدول لديه عمود مرتبط وهو العمود ProductID .

ضع المشروع لإيجاد الكود المناسب للمشكلتين.
الرد
تم الشكر بواسطة:
#4
جزاكم الله الف خير بالنسبة لمشكلة تفريغ الداتا جريد استخدمت هذا الكود ونجح الحمد لله
كود :
       Me.DataGridView1.Rows.Clear()

بالنسبة للرسالة حتي الان لم اجد حل لها وقمت بارفاق المشروع


الملفات المرفقة
.zip   WindowsApplication1.zip (الحجم : 81.63 ك ب / التحميلات : 36)
الرد
تم الشكر بواسطة:
#5
انتي تتعاملي مع اصدار اعلى من اللي عندي،
لهذا اعملي سكريبت من قاعدة البيانات وارفقيه هنا
هذه الطريقة ان لم تكوني تعرفيها


لا أدري هل أنتظرك الآن أم أذهب.
الرد
تم الشكر بواسطة:
#6
تفضل هذه قاعدة البيانات


الملفات المرفقة
.zip   skript.zip (الحجم : 2.12 ك ب / التحميلات : 33)
الرد
تم الشكر بواسطة:
#7
جاري النظر،
ونظرا لتشعب المشروع وكثرة الجداول والعلاقات بينهم فسيحتاج للتركيز ولكن الأن الوقت متأخر،
وسأضع الحل في وقت لاحق إن شاء الله.

كنت أتمنى لو أن السكريبت يحتوي بعض البيانات للتجربة،
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى التعديل salah mansour 7 100 أمس, 02:39 PM
آخر رد: فراس محي
  [VB.NET] مشكلة في استخراج روابط هذه الصفحة بال HtmlAgilityPack mervandzz 2 46 13-10-18, 03:53 PM
آخر رد: mervandzz
  مشكلة فى اختفاء فورم salah mansour 0 37 12-10-18, 01:47 AM
آخر رد: salah mansour
  [VB.NET] مشكلة بكود التحديث لقاعدة البيانات محمد اسماعيل 4 92 11-10-18, 06:45 AM
آخر رد: محمد اسماعيل
  مشكلة فى تشغيل قارئ من بين جميع القراء ابو روضة 10 222 10-10-18, 12:00 AM
آخر رد: AymanRamadanSaad
  [VB.NET] مشكلة في كود تغيير لغة البرنامج ay.alhaj 13 203 09-10-18, 08:52 PM
آخر رد: ay.alhaj
  [سؤال] مشكلة في إرسال بيانات من الفيجوال الى الوورد سعود الشامان 7 352 08-10-18, 01:56 AM
آخر رد: عبد العزيز البسكري
  مشكلة الكرستال ريبورت DOX.1 1 45 07-10-18, 07:43 PM
آخر رد: rnmr
Photo [VB.NET] مشكلة فى قراءة ملف اكسيل كما فى الصورة المرفقة monm 5 134 05-10-18, 12:26 PM
آخر رد: asemshahen5
  مشكلة شاشة التوقف المتألق9 3 86 30-09-18, 02:16 PM
آخر رد: المتألق9

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


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