منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم لقد قمت بكتابت الكود البيع وهو يعمل لكين عند اضافة مجموعة من المنتجات تظهر هذه الرسالة

السلام عليكم شباب نرجو منكم حل هذه المشكلة لناء ولكم شاكرين

وعليكم السلام ورحمة الله وبركاته

حتى يسهل على الأخوة تحديد مكان الخطأ

ويتم تقديم الاجابة الصحيحة لك

إذا سمحت وتفضلت أن ترفع مثال بسيط للمشروع الذي به المشكلة

او على الاقل اكتب الكود المستخدم في العملية

تمنياتي لك بالتوفيق والنجاح

If con.State = ConnectionState.Closed Then

con.Open()

End If

Dim cm As New OleDb.OleDbCommand

cm.Connection = con

cm.CommandType = CommandType.Text

cm.CommandText = "INSERT INTO saless (cvb,b,c,d,f,h,i) values ( @cvb, @b, @c, @d, @f, @h, @i)"

cm.Parameters.AddWithValue("@cvb", Labeld.Text.Trim)

cm.Parameters.AddWithValue("@b", Labelt.Text.Trim)

cm.Parameters.AddWithValue("@c", Label17.Text.Trim)

cm.Parameters.AddWithValue("@d", TextBox3.Text.Trim)

cm.Parameters.AddWithValue("@f", Label13.Text.Trim)

cm.Parameters.AddWithValue("@h", Label10.Text.Trim)

cm.Parameters.AddWithValue("@i", Label14.Text.Trim)

cm.ExecuteNonQuery()

con.Close()

'Catch ex As Exception

' MessageBox.Show(ex.Message)

'End Try

Form20.TopMost = True

Form20.Show()

هذه هو الكود الذي استخدمة هو يعمل ولكن عند ما تكون القيمة كبيرة مثلا(1021584)يظهر هذه الخطا ومعه الرسالة المرفقة

ارجو المساعدة يا اخوان

وعليكم السلام ورحمة الله وبركاته

لتفادى المشكلة دون اجراء تعديلات كثيرة

بابسط ما يمكنك ان تفعل تغيير نوع العمود الخاص بالرقم

والذى قد يحتوى على ارقام تتجاوز عدد 9 ارقام كل ما عليك فعله هو

تغيير نوع العمود من رقم الى نص

وستجد ان الامور تعمل معاك بدون مشكلة

تحياتى لك

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

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