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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : مشكلة في اضافة البيانات ..... (/showthread.php?tid=9611)

مشكلة في اضافة البيانات ..... - kafi - 15-07-13

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

لدي نموذج بسيط، فيه داتاجريد فيو تعمل على عرض اسماء المواد مع سعر الشراء وسعر المبيع وحقل ملاحظات

تم برمجة زر الاضافة وفق الكود التالي
[HTML]
' one way it work well
Dim cmd As New OleDb.OleDbCommand
Try
DataConnection()
cmd.Connection = Conn

cmd.CommandText = "INSERT INTO [Beda]" & "([Beda_Name],[Shra_Price],[Mabie_Price],[Beda_Note]) VALUES" &
"('" & txt_beda_Name.Text & "','" & txt_Shra_Price.Text & "','" & txt_Mabie_Price.Text & "','" & txt_Beda_Note.Text & "')"


cmd.ExecuteNonQuery()
Conn.Close()
MsgBox("1 Record has been saved correctly")

txt_beda_Name.Text = Nothing
txt_Mabie_Price.Text = Nothing
txt_Shra_Price.Text = Nothing
txt_Beda_Note.Text = Nothing

txt_beda_Name.Focus()

'اصطياد الاخطاء
Catch ex As Exception
'عرض الخطا فى رساله
MsgBox(ex.Message, 16, "خطأ")

End Try[/HTML]

الكود يعمل بصورة جيدة، مع مشكلة بسيطة تتمثل في حال كان حقول سعر الشراء او سعر المبيع .....فارغة.......... فتظهر رسالة
نوع البيانات غير متطابق في تعبير المعايير

ارجو من الاخوة الافاضل تصويب الكود السابق

والف شكر

مشكلة في اضافة البيانات ..... - kafi - 15-07-13

[ATTACH=CONFIG]3357[/ATTACH]

صورة اوضح لرسالة الخطأ

مشكلة في اضافة البيانات ..... - سعود - 15-07-13

شوف التعديل هذا
كود :
cmd.CommandText = "INSERT INTO [Beda]" & "([Beda_Name],[Shra_Price],[Mabie_Price],[Beda_Note]) VALUES" &  "('" & txt_beda_Name.Text & "','" & Val(txt_Shra_Price.Text) & "','" & Val(txt_Mabie_Price.Text) & "','" & txt_Beda_Note.Text & "')"


مشكلة في اضافة البيانات ..... - سعود - 15-07-13

السر في وضع كلمة val قبل مربع النص الرقمي
كود :
Val(txt_Mabie_Price.Text)


مشكلة في اضافة البيانات ..... - kafi - 16-07-13

الف شكر اخي
سعود على اجابتك

بارك الله فيك وبامثالك

والسلام عليكم