تقييم الموضوع :
  • 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 جبتها على الجرح دايم تواجهني هالمشكلة ومالقى لها حل
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد اظهار الجمع الموجود في داتا قريد لكل شهر يظهر في label rochdi191 9 193 , 03:10 PM
آخر رد: اسامه الهرماوي
  عكس ترتيب الصفوف في داتا جريد atefkhalf2004 4 87 26-10-20, 08:07 PM
آخر رد: atefkhalf2004
  [VB.NET] هل من الضروري اغلاق الاتصال بعد جلب البيانات من sql في جملة الاستعلام alipro 3 103 26-10-20, 03:50 AM
آخر رد: Jounior_P
  مشكلة في قيمة ابتدائية في داتاجريد فيو cordava 2 89 24-10-20, 09:33 PM
آخر رد: 8409953
  [ تمّ الحل ] : عدم القدرة على عمل أتاش لقاعدة البيانات عبد العزيز البسكري 23 867 24-10-20, 12:48 AM
آخر رد: عبد العزيز البسكري
  مشكلة عند تنصيب البرنامج للعميل تظهر الرسالة هده Alanwalker 9 249 22-10-20, 11:20 PM
آخر رد: kiki
  مساعدة في داتا جريد فيو cordava 1 90 22-10-20, 08:09 PM
آخر رد: Lathe1
  مشكلة في طباعة الفواتير ZaerAllail 17 579 19-10-20, 04:53 AM
آخر رد: ZaerAllail
  مشكلة فى كود الطباعة المباشرة khaled Mohammed 5 374 17-10-20, 08:39 AM
آخر رد: mustaf
  مشكلة الترقيم التلقائي sql moh developer 14 423 17-10-20, 04:47 AM
آخر رد: عبد العزيز البسكري

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


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