منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] اضافة بيانات الفاتورة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اضافة بيانات الفاتورة (/showthread.php?tid=26140)

اضافة بيانات الفاتورة - عبدالرحمن بشري عمر - 17-08-18

السلام عليكم ورحمة الله ياشباب عندي مشكلفة في اضافة فاتورة المبيعات بعد استخراج القيم


        Try
            If con.State = ConnectionState.Closed Then
                con.Open()
            End If

            Dim cmd As New OleDbCommand


            cmd.Connection = con
            cmd.CommandType = CommandType.Text
            cmd.CommandText = "insert into saless (cvb,b,c,d,f,h,i) values (@cvb, @B, @c, @d, @f, @h, @i)"
            cmd.Parameters.Add(New OleDbParameter("@cvb", OleDbType.Integer)).Value = Label15.Text
            cmd.Parameters.Add(New OleDbParameter("@b", OleDbType.Date)).Value = Label16.Text
            cmd.Parameters.Add(New OleDbParameter("@c", OleDbType.Integer)).Value = Label17.Text
            cmd.Parameters.Add(New OleDbParameter("@d", OleDbType.Integer)).Value = TextBox3.Text
            cmd.Parameters.Add(New OleDbParameter("@f", OleDbType.VarChar)).Value = Label13.Text
            cmd.Parameters.Add(New OleDbParameter("@h", OleDbType.Decimal)).Value = Label10.Text
            cmd.Parameters.Add(New OleDbParameter("@i", OleDbType.Decimal)).Value = Label14.Text
            cmd.ExecuteScalar()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
بتظهر هذه الرسالة
Failed to convert Parameter value From a string to a int32
نرجو منكم المساعدة

RE: اضافية بيانات الفاتورة - حريف برمجة - 17-08-18

كود :
جرب كذا

        Try
            If con.State = ConnectionState.Closed Then
                con.Open()
            End If

            Dim cmd As New OleDbCommand


            cmd.Connection = con
            cmd.CommandType = CommandType.Text
            cmd.CommandText = "insert into saless (cvb,b,c,d,f,h,i) values (@cvb, @B, @c, @d, @f, @h, @i)"
            cmd.Parameters.Add("@cvb", Label15.Text)
            cmd.Parameters.Add("@b", Label16.Text)
            cmd.Parameters.Add("@c", Label17.Text)
            cmd.Parameters.Add("@d", TextBox3.Text)
            cmd.Parameters.Add("@f", Label13.Text)
            cmd.Parameters.Add("@h", Label10.Text)
            cmd.Parameters.Add("@i", Label14.Text)
            cmd.ExecuteScalar()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try


RE: اضافية بيانات الفاتورة - عبدالرحمن بشري عمر - 17-08-18

السلام عليكم ورحمة الله ياشباب عندي مشكلفة في اضافة فاتورة المبيعات بعد استخراج القيم


        Try
            If con.State = ConnectionState.Closed Then
                con.Open()
            End If

            Dim cmd As New OleDbCommand


            cmd.Connection = con
            cmd.CommandType = CommandType.Text
            cmd.CommandText = "insert into saless (cvb,b,c,d,f,h,i) values (@cvb, @B, @c, @d, @f, @h, @i)"
            cmd.Parameters.Add(New OleDbParameter("@cvb", OleDbType.Integer)).Value = Label15.Text
            cmd.Parameters.Add(New OleDbParameter("@b", OleDbType.Date)).Value = Label16.Text
            cmd.Parameters.Add(New OleDbParameter("@c", OleDbType.Integer)).Value = Label17.Text
            cmd.Parameters.Add(New OleDbParameter("@d", OleDbType.Integer)).Value = TextBox3.Text
            cmd.Parameters.Add(New OleDbParameter("@f", OleDbType.VarChar)).Value = Label13.Text
            cmd.Parameters.Add(New OleDbParameter("@h", OleDbType.Decimal)).Value = Label10.Text
            cmd.Parameters.Add(New OleDbParameter("@i", OleDbType.Decimal)).Value = Label14.Text
            cmd.ExecuteScalar()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
بتظهر هذه الرسالة
Failed to convert Parameter value From a string to a int32
نرجو منكم المساعدة

RE: اضافة بيانات الفاتورة - عبدالرحمن بشري عمر - 17-08-18

 If con.State = ConnectionState.Closed Then
            con.Open()
        End If

        Try




            Dim str As String = "insert into saless (cvb,b,c,d,f,h,i) values (@cvb, @B, @c, @d, @f, @h, @i)"

            cmd = New OleDb.OleDbCommand(str, con)


            cmd.Parameters.Clear()
            'cmd.Parameters.AddWithValue("@cvb", Me.Labeld.Text)
            cmd.Parameters.AddWithValue("@b", Me.Labelt.Text)
            cmd.Parameters.AddWithValue("@c", Me.Label17.Text)
            cmd.Parameters.AddWithValue("@d", Me.TextBox3.Text)
            cmd.Parameters.AddWithValue("@f", Me.Label13.Text)
            cmd.Parameters.AddWithValue("@h", Me.Label10.Text)

            cmd.Parameters.AddWithValue("@i", Me.Label14.Text)
            ' 

            cmd.ExecuteNonQuery()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try


هذا الدالة عبارة عن تفاصيل الفاتورة وهي تعمل        insrtdetsal()


RE: اضافة بيانات الفاتورة - elgokr - 17-08-18

اخى الحبيب 
عبدالرحمن بشري عمر

انا لا اعلم هل المشاركة فى السؤال هنا هى عبارة عن سبام
ام ماذا الرجاء الاطلاع لما يتم طرحه من ردود وكتابة تفاصيل ما ليدك وما يحدث

حتى لا تعرض العضوية للحظر من المنتدى

تحياتى لك
وتمنياتى لك التوفيق


RE: اضافة بيانات الفاتورة - ابراهيم ايبو - 18-08-18

اخي الكريم السلام عليكم ورحمة الله وبركاته
المشكلة تكمن بالتحديد في الحقول التي تكون انواع بياناتها هي (integer-Decimal- Double-Currency) حيث لايمكن تحويلها عند الاضافة الى string  وققد واجهت نفس المشكلة وخاصة عندما يكون لديك حقول كثيرة ومعهم حقل حفظ للصورة اما الحل فإنني لم اقم بالحل الصحيح لانني لا اعرف تماما ومعلوماتي لاتسعفني حاليا .... قمت بحل اسعافي للمشكلة وذلك بجعل انواع البياناتمن نو ع نص Text  وعندما ارغب بالعمليات الحسابية استخدم الدالة ( val)  ريما يفي هذا الحل لمشكلتك ... وان وافقك وحلت معضلتك لا تنساني من الدعاء لوالدتي واختي