تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طريقة ادخال اعداد تحتوي على فاصلة في قاعدة البيانات
#1
السلام عليكم 
انا اعمل على هدا البرنامج وشكرا للاخ [b]mohammedvego[/b]
http://vb4arb.com/vb/showthread.php?tid=25606
بخصوص
اريد ان ادخل السعر بارقام تحتوي على الفاصلة 
مثال 
13.5 درهم
وللاسف البرنامج لايقبل ارقام تحتوي على فاصلة
الرد
تم الشكر بواسطة:
#2
(09-03-19, 06:55 PM)segma كتب : السلام عليكم 
انا اعمل على هدا البرنامج وشكرا للاخ [b]mohammedvego[/b]
http://vb4arb.com/vb/showthread.php?tid=25606
بخصوص
اريد ان ادخل السعر بارقام تحتوي على الفاصلة 
مثال 
13.5 درهم
وللاسف البرنامج لايقبل ارقام تحتوي على فاصلة

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

اخي هل تقصد الحقل في جدول قاعدة البيانات لا يقبل ارقام تحتوي فاصلة ؟

انظر للصورة :

   
يا رحمن الدنيا والآخرة ورحيمهما
الرد
تم الشكر بواسطة: segma
#3
بارك الله فيك اخي على ردك 

بخصوص كما تعرف عند ادخال ارقام تحتوي على  فاصلة في خانة السعر حيت يعطي خطأ 


كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If TxTMaterialBarCode.Text = "" Then
           MsgBox("إدخل رقم البار كود")
           Exit Sub
       End If

       If TxTMaterialName.Text = "" Then
           MsgBox("إدخل اسم المادة")
           Exit Sub
       End If

       If TxTQuantityAvailable.Text = "" Then
           MsgBox("إدخل الكمية المتوفرة لديك من المادة")
           Exit Sub
       End If

       If TxTWholesalePrice.Text = "" Or TxTSellingPrice.Text = "" Then
           MsgBox("إدخل سعر البيع او سعر الجملة")
           Exit Sub
       End If

       Try

           If Conn.State = ConnectionState.Closed Then
               Conn.Open()
           End If

           Dim cmd As New OleDb.OleDbCommand
           cmd.Connection = Conn
           cmd.CommandType = CommandType.Text
           cmd.CommandText = "INSERT INTO Materials (MaterialBarCode, SANF, MaterialName, WAHDA, QuantityAvailable, WholesalePrice, SellingPrice, DataMa, Rabh,  Ml, MORD, DownPrice) VALUES (@MaterialBarCode, @SANF, @MaterialName ,@WAHDA, @QuantityAvailable, @WholesalePrice, @SellingPrice, @DataMa, @Rabh,  @Ml, @MORD, @DownPrice)"


           cmd.Parameters.AddWithValue("@MaterialBarCode", TxTMaterialBarCode.Text.Trim)
           cmd.Parameters.AddWithValue("@SANF", CSNF.Text.Trim)
           cmd.Parameters.AddWithValue("@MaterialName", TxTMaterialName.Text.Trim)
           cmd.Parameters.AddWithValue("@WAHDA", CWH.Text.Trim)
           cmd.Parameters.AddWithValue("@QuantityAvailable", TxTQuantityAvailable.Text.Trim)
           cmd.Parameters.AddWithValue("@WholesalePrice", TxTWholesalePrice.Text.Trim)
           cmd.Parameters.AddWithValue("@SellingPrice", TxTSellingPrice.Text.Trim)
           cmd.Parameters.AddWithValue("@DataMa", DataM.Text.Trim)
           cmd.Parameters.AddWithValue("@Rabh", Rabh.Text.Trim)
           cmd.Parameters.AddWithValue("@Ml", Note.Text.Trim)
           cmd.Parameters.AddWithValue("@MORD", Mwrd.Text.Trim)
           cmd.Parameters.AddWithValue("@DownPrice", TextBox1.Text.Trim)

           


           cmd.ExecuteScalar()
           Conn.Close()

           TxTMaterialBarCode.Text = ""
           TxTMaterialName.Text = ""
           TxTQuantityAvailable.Text = ""
           TxTWholesalePrice.Text = ""
           TxTSellingPrice.Text = ""
           CSNF.Text = ""
           Note.Text = ""
           CWH.Text = ""
           Mwrd.Text = ""
           TextBox1.Text = ""
           TxTMaterialBarCode.Focus()

           MsgBox("تم إضافة المادة بنجاح")

           Materials.LoadMaterials()





       Catch ex As Exception
           MsgBox(ex.Message)
           MsgBox("خطأ في الإدخال، قد تكون المادة مكررة او ان القاعدة محمية", ex.Message)
           Exit Sub
       End Try
   End Sub
الرد
تم الشكر بواسطة:
#4
هل المشكلة مازالت قائمة أو انحلت ؟
يا رحمن الدنيا والآخرة ورحيمهما
الرد
تم الشكر بواسطة:
#5
المشكلة مازال اخي الكريم


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#6
ماهو نوع الحقل في جدول قاعدة البيانات عندك ؟
يا رحمن الدنيا والآخرة ورحيمهما
الرد
تم الشكر بواسطة:
#7
الحقل من نوع Currency
الرد
تم الشكر بواسطة:
#8
(10-03-19, 03:21 AM)segma كتب : الحقل من نوع Currency

جرب اختار كما في الصورة :

   
يا رحمن الدنيا والآخرة ورحيمهما
الرد
تم الشكر بواسطة:
#9
مازال نفس المشكلة اخي الكريم 
هل ممكن تعديل الكود ليقبل الاعداد التي تحتوي على فاصلة
الرد
تم الشكر بواسطة:
#10
جرب تحفظ بدون فاصله

وعند الإستعلام وجلب القيمة اعمل لها فورمات وادخل لها الفاصلة في التكست بوكس
يا رحمن الدنيا والآخرة ورحيمهما
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  نسخ قاعدة sql الي مكان اخر atefkhalf2004 14 650 04-07-20, 08:32 PM
آخر رد: atefkhalf2004
Thumbs Up [سؤال] قاعدة بيانات اكسس منه 1 177 31-05-20, 11:27 PM
آخر رد: kiki
  [SQL] انا احتاج للنسخ1 table في قاعدة بيانات 1 الى table1 في قاعدة بيانات2 في essamprog2020 1 202 19-04-20, 02:13 AM
آخر رد: asemshahen5
  [سؤال] نقل البيانات من جدول إلى أخر SQL Server 2008 semsemalex 7 9,762 19-04-20, 12:00 AM
آخر رد: essamprog2020
  [VB.NET] مشكله عند الحفظ على قاعدة بيانات باستخدام Data Source وقاعدة بيانات اكسس2007 coderarab 9 2,855 06-04-20, 12:12 AM
آخر رد: wadyreem
  اسناد عامود في قاعدة بيانات اكسيس الى عامود من نوع كومبوبوكس بالداتا جريد فيو بالفيجو Ghassanfff 0 193 30-03-20, 09:33 PM
آخر رد: Ghassanfff
  معرفة عدد الأسماء في قاعدة البيانات sql server aldery 6 440 24-03-20, 04:21 AM
آخر رد: morkoskhalaf
  [نقاش] مشاركة قاعدة بيانات SQL على شبكه داخليه morkoskhalaf 2 300 18-03-20, 11:28 PM
آخر رد: morkoskhalaf
  [سؤال] مساعدة في تحليل قاعدة بيانات مشتريات ومبيعات maw2321 0 281 11-03-20, 03:00 AM
آخر رد: maw2321
  اريد ترقية قاعدة بيانات برنامجي فإلى ايهم تقترحوا علي alfaiz678 4 337 05-03-20, 05:58 PM
آخر رد: alfaiz678

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


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