تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اضافة بيانات الفاتورة
#1
السلام عليكم ورحمة الله ياشباب عندي مشكلفة في اضافة فاتورة المبيعات بعد استخراج القيم


        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
نرجو منكم المساعدة
الرد
تم الشكر بواسطة:
#2
كود :
جرب كذا

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


        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
نرجو منكم المساعدة
الرد
تم الشكر بواسطة:
#4
(17-08-18, 06:24 PM)عبدالرحمن بشري عمر كتب : السلام عليكم ورحمة الله ياشباب عندي مشكلة  في اضافة فاتورة المبيعات بعد استخراج القيم
Failed to convert Parameter value From a string to a int32
نرجو منكم المساعدة

هل جربت هذا الحل ؟

(17-08-18, 04:39 PM)حريف برمجة كتب :
كود :
جرب كذا

        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
 اللهم اغفر لي و لوالديّ و للمؤمنين و المؤمنات 
و المسلمين و المسلمات الأحياء منهم و الأموات 
سبحان الله وبحمده Heart سبحان الله العظيم
الرد
تم الشكر بواسطة:
#5
 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()
الرد
تم الشكر بواسطة:
#6
اخى الحبيب 
عبدالرحمن بشري عمر

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

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اضافة الملفات محمد اسماعيل 9 560 منذ 2 ساعة مضت
آخر رد: tuscake
  [سؤال] استيراد بيانات لقاعدة البيانات وعمل مقارنة nandy2016 1 60 08-12-18, 02:22 PM
آخر رد: nandy2016
  [VB.NET] حفظ بيانات في جدولين kah1974 0 37 05-12-18, 11:44 PM
آخر رد: kah1974
  [كود] إدراج بيانات من الجريد إلى أكسس motazsaad94@gmail.com 3 72 05-12-18, 05:44 PM
آخر رد: motazsaad94@gmail.com
  الاخوة الذين يواجهون مشكلة الحفظ في قاعدة بيانات اكسسس abo ragab 0 103 04-12-18, 11:52 PM
آخر رد: abo ragab
  كيفية دمع بيانات فى تكست بوكس واحد سمير جمال 3 77 04-12-18, 04:07 PM
آخر رد: Rabeea Qbaha
  اضافة بيانات اكثر من جدول في الكرستال المتألق9 1 50 02-12-18, 04:06 PM
آخر رد: Rabeea Qbaha
  ربطت مشروع على قاعدة بيانات mysql على استضافتي لكن البرنامج بطيء جدا essawq 17 548 02-12-18, 12:13 AM
آخر رد: أبوبكر سويدان
  [VB.NET] رفع قاعدة بيانات علي جوجل دريف والاتصال بها من أكثر من جهاز محمد صلاح ابراهيم 2 175 29-11-18, 03:09 AM
آخر رد: Rabeea Qbaha
  اظهار بيانات معينه من جدول دون اظهاره فى داتاجريدفيو vb2010 8 140 26-11-18, 01:11 AM
آخر رد: Rabeea Qbaha

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


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