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

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

تم برمجة زر الاضافة وفق الكود التالي
[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]

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

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

والف شكر


الملفات المرفقة صورة/صور
   

.rar   Kafi_Net.rar (الحجم : 810.49 ك ب / التحميلات : 22)
الرد }}}}
تم الشكر بواسطة:
#2
[ATTACH=CONFIG]3357[/ATTACH]

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


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#3
شوف التعديل هذا
كود :
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 & "')"
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#4
السر في وضع كلمة val قبل مربع النص الرقمي
كود :
Val(txt_Mabie_Price.Text)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#5
الف شكر اخي
سعود على اجابتك

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

والسلام عليكم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مثال +سؤال اضافة حذف عرض السجلات ahmedalans 6 161 10-05-17, 06:06 PM
آخر رد: ahmedalans
  ظهور خطا عند سحب البيانات وعرضها في الداتا كريد باستخدم الـــ Threading HATEM KAREM 0 82 06-05-17, 04:45 PM
آخر رد: HATEM KAREM
  مشكلة في تحزيم البرنامج samawi 2 79 23-04-17, 03:06 AM
آخر رد: samawi
  استفسار حول عدم تكرار البيانات المتألق9 3 145 02-04-17, 03:38 AM
آخر رد: حريف برمجة
  جلب البيانات من ملف txt djelloul 7 180 28-03-17, 03:20 PM
آخر رد: djelloul
  [سؤال] طلب صيغة عامة أو وظيفة لأضافة بيانات لقاعدة البيانات ؟ عبد الله 2 150 10-03-17, 09:36 AM
آخر رد: عبد الله
  سرعة ادخال البيانات داخل ملف اكسس atefkhalf2004 1 163 05-03-17, 04:06 AM
آخر رد: thevirus
  استعادة قاعدة البيانات من ملف النسخة الإحتياطية djelloul 2 165 28-02-17, 03:27 PM
آخر رد: djelloul
  [VB.NET] مشكلة في كود التعديل والحذف boofa2015 0 162 18-02-17, 01:58 PM
آخر رد: boofa2015
  فتح قاعدة البيانات محفوظة ب باسس ورد في جملة الاتصال ahmed_elwerfalli 2 153 13-02-17, 05:27 PM
آخر رد: ahmed_elwerfalli

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


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