تقييم الموضوع :
  • 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 ك ب / التحميلات : 45)
الرد }}}
تم الشكر بواسطة:
#5
انتي تتعاملي مع اصدار اعلى من اللي عندي،
لهذا اعملي سكريبت من قاعدة البيانات وارفقيه هنا
هذه الطريقة ان لم تكوني تعرفيها


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


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

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



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


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