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


   Con.Close()

        DataGridView1.AllowUserToAddRows = False
        Dim cmd As New SqlCommand

        Dim sql As String
        For i As Integer = 0 To (DataGridView1.Rows.Count - 1)
            sql = "Insert Into storedetail (num , datea , mowared , itemnum , q1 , q2 , price , currencey , currenceyrate , stornum)values( @num ,  @datea ,  @mowared ,  @itemnum ,  @q1 ,  @q2 ,  @price ,  @currencey ,  @currenceyrate ,  @stornum)"
            cmd = New SqlCommand(sql, Con)
            With cmd

                .Connection = Con
                .CommandType = CommandType.Text
                .CommandText = "Insert Into storedetail (num , datea , mowared , itemnum , q1 , q2,q3,q4 , price , currencey , currenceyrate , stornum,active,acountnum,type,mostand)values( @num ,  @datea ,  @mowared ,  @itemnum ,  @q1 ,  @q2 ,@q3,@q4,  @price ,  @currencey ,  @currenceyrate ,  @stornum,@active,@acountnum ,@type,@mostand)"
                Con.Open()
                .Parameters.Clear()
                .Parameters.AddWithValue("@num", SqlDbType.Int).Value = Val(TextBox1.Text)
                .Parameters.AddWithValue("@datea", SqlDbType.Date).Value = Dtpdate.Value
                .Parameters.AddWithValue("@mowared", SqlDbType.Int).Value = Val(TextBox2.Text)
                .Parameters.AddWithValue("@itemnum", SqlDbType.Int).Value = DataGridView1(0, i).Value.ToString

                .Parameters.AddWithValue("@q1", SqlDbType.Decimal).Value = Val(DataGridView1(2, i).Value)
                .Parameters.AddWithValue("@q3", SqlDbType.Decimal).Value = Val(DataGridView1(2, i).Value.ToString)

                .Parameters.AddWithValue("@q2", SqlDbType.Decimal).Value = Val(DataGridView1(3, i).Value.ToString)

                .Parameters.AddWithValue("@q4", SqlDbType.Decimal).Value = Val(DataGridView1(3, i).Value.ToString)

                .Parameters.AddWithValue("@price", SqlDbType.Decimal).Value = DataGridView1(6, i).Value.ToString

                .Parameters.AddWithValue("@currencey", SqlDbType.Int).Value = Val(TextBox9.Text)
                .Parameters.AddWithValue("@currenceyrate", SqlDbType.Decimal).Value = Val(TextBox10.Text)
                .Parameters.AddWithValue("@stornum", SqlDbType.Int).Value = DataGridView1(4, i).Value.ToString
                .Parameters.AddWithValue("@detail", SqlDbType.Int).Value = "حركة مخازن رقم" & "-" & TextBox1.Text & Label8.Text
                .Parameters.AddWithValue("@active", SqlDbType.Int).Value = "1" 'فعال
                .Parameters.AddWithValue("@acountnum", SqlDbType.Int).Value = Val(TextBox2.Text)

                .Parameters.AddWithValue("@type", SqlDbType.Int).Value = (TextBox4.Text)
                .Parameters.AddWithValue("@mostand", SqlDbType.Int).Value = (TextBox5.Text)

            End With

            cmd.ExecuteNonQuery()

            Con.Close()
        Next
        MsgBox("ok")

        '   Catch ex As Exception

        '   End Try
    ارجو المساعده
الرد }}}
تم الشكر بواسطة:
#2
في قاعدة البيانات اعمل الغاء في
بند : وجود قيمة دائما
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد }}}
تم الشكر بواسطة:
#3
هذا الكلام معمول من اول
والقاعدة فش فيها بيانات فارغه
الرد }}}
تم الشكر بواسطة:
#4
الله يجزاك خير اخوي khodor1985 جبتها على الجرح دايم تواجهني هالمشكلة ومالقى لها حل
الرد }}}
تم الشكر بواسطة:



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


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