15-07-13, 02:09 AM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
لدي نموذج بسيط، فيه داتاجريد فيو تعمل على عرض اسماء المواد مع سعر الشراء وسعر المبيع وحقل ملاحظات
تم برمجة زر الاضافة وفق الكود التالي
[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]
الكود يعمل بصورة جيدة، مع مشكلة بسيطة تتمثل في حال كان حقول سعر الشراء او سعر المبيع .....فارغة.......... فتظهر رسالة
نوع البيانات غير متطابق في تعبير المعايير
ارجو من الاخوة الافاضل تصويب الكود السابق
والف شكر
السلام عليكم ورحمة الله وبركاته
لدي نموذج بسيط، فيه داتاجريد فيو تعمل على عرض اسماء المواد مع سعر الشراء وسعر المبيع وحقل ملاحظات
تم برمجة زر الاضافة وفق الكود التالي
[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]
الكود يعمل بصورة جيدة، مع مشكلة بسيطة تتمثل في حال كان حقول سعر الشراء او سعر المبيع .....فارغة.......... فتظهر رسالة
نوع البيانات غير متطابق في تعبير المعايير
ارجو من الاخوة الافاضل تصويب الكود السابق
والف شكر