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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo مشكلة في تسطيب كريستال ريبورت عند العميل صالح حمادي 3 41 منذ 8 ساعة مضت
آخر رد: صالح حمادي
  مشكلة في تصدير الداتا الى PDF alshandodi 1 27 منذ 10 ساعة مضت
آخر رد: elgokr
  [VB.NET] مشكلة فى عرض محتويات DataGridView فى TextBox mr_hso 8 164 18-02-19, 10:52 PM
آخر رد: nabil.1710
  مشكلة كود استيراد ملف اكسيل يقراء لغة واحدة فقط new_programer 4 68 18-02-19, 02:04 AM
آخر رد: new_programer
  مشكلة Hassan.syria 4 102 15-02-19, 11:04 PM
آخر رد: Hassan.syria
  [سؤال] مشكلة أثناء الطباعة Jounior_P 0 39 15-02-19, 06:07 PM
آخر رد: Jounior_P
  [VB.NET] مشكلة في فتح الفورم اسامه الهرماوي 1 53 15-02-19, 04:45 AM
آخر رد: princelovelorn
  [كود] أريد حل مشكلة في إدخال الوقت و التاريخ lolo queen 17 6,145 15-02-19, 03:01 AM
آخر رد: اسامه الهرماوي
  ما هو حل مشكلة هذا ال Error The connection was not closed. The connection's current mostafa nada 3 113 12-02-19, 06:58 PM
آخر رد: asemshahen5
  مشكلة كود البحث بين تاريخين احمد129 12 307 11-02-19, 07:56 PM
آخر رد: princelovelorn

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


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