مشكلة فى كود امر وارد الي مخزن

تقييم الموضوع :
  • 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
جاري النظر،
ونظرا لتشعب المشروع وكثرة الجداول والعلاقات بينهم فسيحتاج للتركيز ولكن الأن الوقت متأخر،
وسأضع الحل في وقت لاحق إن شاء الله.

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند اعداد الملف الى setup mostafa hasanein 6 48 14-08-18, 07:06 PM
آخر رد: elgokr
Photo عندى مشكلة واريد حلها mostafa hasanein 9 148 11-08-18, 10:05 AM
آخر رد: mostafa hasanein
  مشكلة في تصدير بيانات جريد فيو الى ملف الاكسل Marwan9990 9 84 10-08-18, 10:51 PM
آخر رد: Marwan9990
Exclamation مشكلة في البرامج التي لها علاقة ل OpenFileDialog YousefOkasha 3 49 10-08-18, 07:52 PM
آخر رد: elgokr
  مشكلة في كريستال ريبورت اللورد محمود 3 50 10-08-18, 07:49 PM
آخر رد: elgokr
Exclamation مشكلة في ربط المشروع بقاعدة بيانات YousefOkasha 3 70 10-08-18, 07:10 PM
آخر رد: elgokr
  مشكلة في تعبئة TreeView ببيانات من ثلاث جداول SQL princelovelorn 3 48 10-08-18, 10:00 AM
آخر رد: elgokr
  [VB.NET] مشكلة في الكريستال ريبورد في اضهار الريبورت 0theghost0 1 51 05-08-18, 07:34 PM
آخر رد: elgokr
  مساعدة في حل sqlite add datetime مشكلة annaba2015 9 100 04-08-18, 08:55 AM
آخر رد: elgokr
  مشكلة عند حفظ الملف الفيجول بيسك abo fars 2 56 29-07-18, 05:47 PM
آخر رد: elgokr

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


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