المشاركات : 22
المواضيع 9
الإنتساب : Jul 2018
السمعة :
0
الشكر: 1
تم شكره 2 مرات في 2 مشاركات
17-08-18, 04:25 PM
(آخر تعديل لهذه المشاركة : 17-08-18, 07:24 PM {2} بواسطة Amir_Alzubidy.
تعديل السبب: تعديل العنوان
)
السلام عليكم ورحمة الله ياشباب عندي مشكلفة في اضافة فاتورة المبيعات بعد استخراج القيم
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
نرجو منكم المساعدة
المشاركات : 1,556
المواضيع 14
الإنتساب : Apr 2013
السمعة :
253
الشكر: 3551
تم شكره 4875 مرات في 1243 مشاركات
كود :
جرب كذا
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
المشاركات : 22
المواضيع 9
الإنتساب : Jul 2018
السمعة :
0
الشكر: 1
تم شكره 2 مرات في 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(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,469
المواضيع 2
الإنتساب : Nov 2014
السمعة :
602
الشكر: 17073
تم شكره 15267 مرات في 2998 مشاركات
(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
المشاركات : 22
المواضيع 9
الإنتساب : Jul 2018
السمعة :
0
الشكر: 1
تم شكره 2 مرات في 2 مشاركات
17-08-18, 09:22 PM
(آخر تعديل لهذه المشاركة : 17-08-18, 09:23 PM {2} بواسطة عبدالرحمن بشري عمر.)
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()
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
اخى الحبيب
عبدالرحمن بشري عمر
انا لا اعلم هل المشاركة فى السؤال هنا هى عبارة عن سبام
ام ماذا الرجاء الاطلاع لما يتم طرحه من ردود وكتابة تفاصيل ما ليدك وما يحدث
حتى لا تعرض العضوية للحظر من المنتدى
تحياتى لك
وتمنياتى لك التوفيق
المشاركات : 2,061
المواضيع 49
الإنتساب : Oct 2017
السمعة :
538
الشكر: 10647
تم شكره 5322 مرات في 2095 مشاركات
اخي الكريم السلام عليكم ورحمة الله وبركاته
المشكلة تكمن بالتحديد في الحقول التي تكون انواع بياناتها هي (integer-Decimal- Double-Currency) حيث لايمكن تحويلها عند الاضافة الى string وققد واجهت نفس المشكلة وخاصة عندما يكون لديك حقول كثيرة ومعهم حقل حفظ للصورة اما الحل فإنني لم اقم بالحل الصحيح لانني لا اعرف تماما ومعلوماتي لاتسعفني حاليا .... قمت بحل اسعافي للمشكلة وذلك بجعل انواع البياناتمن نو ع نص Text وعندما ارغب بالعمليات الحسابية استخدم الدالة ( val) ريما يفي هذا الحل لمشكلتك ... وان وافقك وحلت معضلتك لا تنساني من الدعاء لوالدتي واختي
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
|