تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة بسيطة لانهاء كود لي
#11
Easy 4ever كتب :مثل ما قال الأخ Abu Ehab

أو إذا كنت لا تريد تغيير نوع الحقل LengthM إلى رقمي أستخدم هذا الكود بدلا من السابق
ولاكن لو غيرتها إلى رقمي بيكون أفضل لأنك تتعامل مع أرقام في هذا الحقل وتقارن قيمها

اخي كنت استخدم خانات كثيره في برنامجي Int رقمي ،،، لكن واجهتني مشاكل بسببها وهي اني انا اريد استخدام الفواصل مثل 1،5 1.5
تظهر مشاكل عند الاضافة فإذطريت الى تغييرها ،،،، والان الكود الثاني هذا

كود :
ListView5.Items.Clear()

        Conn.Open()
        Dim cmd5 As New SqlCommand("select * from Table2 where LengthM<='" & 4 & "'", Conn)
        Dim myReader5 As SqlDataReader = cmd5.ExecuteReader(CommandBehavior.CloseConnection)
        While myReader5.Read() = True
            Dim item5 As New ListViewItem()
            item5.Text = myReader5.Item("ID").ToString()
            item5.SubItems.Add(myReader5.Item("NameCloth").ToString())

            ListView5.Items.Add(item5)
        End While
        Conn.Close()

[COLOR="#FF0000"]للاسف اخي ان الكود يظهر ارقام فوق 4 بكثير فقد اظهر 30 20 5 8
ما هو الحل جزاك الله خير.[/COLOR]
الرد }}}
تم الشكر بواسطة:
#12
shado1796 كتب :
اخي كنت استخدم خانات كثيره في برنامجي Int رقمي ،،، لكن واجهتني مشاكل بسببها وهي اني انا اريد استخدام الفواصل مثل 1،5 1.5
تظهر مشاكل عند الاضافة فإذطريت الى تغييرها ،،،، والان الكود الثاني هذا

كود :
ListView5.Items.Clear()

        Conn.Open()
        Dim cmd5 As New SqlCommand("select * from Table2 where LengthM<='" & 4 & "'", Conn)
        Dim myReader5 As SqlDataReader = cmd5.ExecuteReader(CommandBehavior.CloseConnection)
        While myReader5.Read() = True
            Dim item5 As New ListViewItem()
            item5.Text = myReader5.Item("ID").ToString()
            item5.SubItems.Add(myReader5.Item("NameCloth").ToString())

            ListView5.Items.Add(item5)
        End While
        Conn.Close()

للاسف اخي ان الكود يظهر ارقام فوق 4 بكثير فقد اظهر 30 20 5 8
ما هو الحل جزاك الله خير.




دام إنك تستخدم أرقام عشريه أستخدم الكود الأول إللي حطيته لك بالمشاركه إللي هو هذا




Easy 4ever كتب :
PHP كود :
ListView5.Items.Clear()

Conn.Open()
Dim cmd5 As New SqlCommand("select * from Table2 where LengthM<=" ""Conn)
Dim myReader5 As SqlDataReader cmd5.ExecuteReader(CommandBehavior.CloseConnection)
While (
myReader5.Read() = True
)Dim item5 As New ListViewItem()
item5.Text myReader5.Item("ID").ToString()
item5.SubItems.Add(myReader5.Item("NameCloth").ToString())

ListView5.Items.Add(item5)
End While
Conn.Close() 

مع المراعاه بأن تغيير نوع الحقل LengthM إلى هذا النوع decimal(10,2)

* ملاحظة:
1- هذا النوع يعني عدد كسري رقم
10 هو عدد أعلى الخانات قبل الفاصلة إي الصحيحه 2 عدد أعلى الخانات بعد الفاصلة إي الخانات الكسرية

مثال يقبل هذا العدد ( 1234500000.02 ) قبل كحد أعلى 10 خانات قبل الفاصلة و خانتين بعد الفاصلة

2- تستطيع زيادة الخانات اليسرى ( الصحيحة ) و الخانات اليمنى ( الكسرية ) بالرقم الذي تريد

3- هذا النوع يقبل الأرقام من

(
0.00000000000000000000000000000000000001 )

حتى رقم (
10,000,000,000,000,000,000,000,000,000 )

Big Grin
<---------------------------------------------------------------->

الرد }}}
تم الشكر بواسطة:
#13
Easy 4ever كتب :دام إنك تستخدم أرقام عشريه أستخدم الكود الأول إللي حطيته لك بالمشاركه إللي هو هذا






مع المراعاه بأن تغيير نوع الحقل LengthM إلى هذا النوع decimal(10,2)

* ملاحظة:
1- هذا النوع يعني عدد كسري رقم
10 هو عدد أعلى الخانات قبل الفاصلة إي الصحيحه 2 عدد أعلى الخانات بعد الفاصلة إي الخانات الكسرية

مثال يقبل هذا العدد ( 1234500000.02 ) قبل كحد أعلى 10 خانات قبل الفاصلة و خانتين بعد الفاصلة

2- تستطيع زيادة الخانات اليسرى ( الصحيحة ) و الخانات اليمنى ( الكسرية ) بالرقم الذي تريد

3- هذا النوع يقبل الأرقام من

(
0.00000000000000000000000000000000000001 )

حتى رقم (
10,000,000,000,000,000,000,000,000,000 )

[COLOR="#FF0000"]
الحين راح اغير نوع الحقل في قاعدة البيانات واجرب ،،وارد لك خبر ،، لكن بغيت اسأل هل هو Trim ام Val رقمي ؟ ،،، اتمنى ان تكون معي ،،
الف شكر لك،،[/COLOR]
الرد }}}
تم الشكر بواسطة:
#14
كل وحده لها شغل مختلف وحده تقوم بحذف الفراغات والأخرى تقوم بتحويل البيانات

Trim
هي دالة تقوم بحذف المسافه الموجوده في الحقول النصيه من على يمينها وعلى يسارها

يعني لو عندنا نص كذا ( TTTT ) في TextBox
نلاحظ يوجد فراغ من على اليمين وعلى اليسار إذا استخدمنا
Trim يحذفها
نكتب الأمر التالي


PHP كود :
Trim(TextBox1.Text

ستصبح القيمه كتالي (TTTT)
تم حذف المسافه إللي على اليمين وعلى اليسار ودائما بالأساس تكون المسافات في الحقول النصيه .

اما Val هي دالة تقوم بتحويل الحقول النصيه إلى رقمية مثلها مثل Cint و Conversion.Int
مثال لو لدينا قيمة في الحقل الأول برقم (9) ولدينا قيمة أخرى بحقل آخر برقم (1) ووضعنا هذا الكود
PHP كود :
Lable1.Text TextBox1.text TextBox2.Text 

سيكون الناتج (91) لانه في حقل Text تعامل معه كحرف وليس رقم وضع الرقم الأول بجانب الثاني
اما لو أستخدمنا دالة
Val بهذي الطريقة

PHP كود :
Lable1.Text Val(TextBox1.text) + Val(TextBox2.Text

سيكون الناتج هو (10) لأننا حولنا ما بداخل الحقول إلى رقمي حتى يتمكن بالتعامل معه كرقم .
Big Grin
<---------------------------------------------------------------->

الرد }}}
تم الشكر بواسطة:
#15
Easy 4ever كتب :[SIZE=4][b]كل وحده لها شغل مختلف وحده تقوم بحذف الفراغات والأخرى تقوم بتحويل البيانات

Trim
هي دالة تقوم بحذف المسافه الموجوده في الحقول النصيه من على يمينها وعلى يسارها

يعني لو عندنا نص كذا ( TTTT ) في TextBox
نلاحظ يوجد فراغ من على اليمين وعلى اليسار إذا استخدمنا
Trim يحذفها
نكتب الأمر التالي


PHP كود :
Trim(TextBox1.Text

ستصبح القيمه كتالي (TTTT)
تم حذف المسافه إللي على اليمين وعلى اليسار ودائما بالأساس تكون المسافات في الحقول النصيه .

اما Val هي دالة تقوم بتحويل الحقول النصيه إلى رقمية مثلها مثل Cint و Conversion.Int مثال لو لدينا قيمة في الحقل الأول برقم (9) ولدينا قيمة أخرى بحقل آخر برقم (1) ووضعنا هذا الكود
PHP كود :
Lable1.Text TextBox1.text TextBox2.Text 

سيكون الناتج (91) لانه في حقل Text تعامل معه كحرف وليس رقم وضع الرقم الأول بجانب الثاني
اما لو أستخدمنا دالة
Val بهذي الطريقة

PHP كود :
Lable1.Text Val(TextBox1.text) + Val(TextBox2.Text

سيكون الناتج هو (10) لأننا حولنا ما بداخل الحقول إلى رقمي حتى يتمكن بالتعامل معه كرقم .







اشكرك اخي جدا على التوضيح ،، وقد قرأت عن هذا الموضوع من قبل ،،لكن ما اقصده اني عندما غيرت نوع الحقل يجب انا اغير كثير في البرنامج مثل الاضافة وهذا الكود

كود :
Dim Cmd2 As New SqlCommand("insert into Table2 (LengthM,LengthY) values ([color=#FF0000]'[/color]" & [color=#FF0000]Trim[/color](TextBox72.Text) & "[color=#FF0000]'[/color] , [color=#FF0000]'[/color]" & [color=#FF0000]Trim[/color](TextBox85.Text) & "[color=#FF0000]'[/color] )", Conn)

انا اريد اقتراحك ونصيحتك في استخدام Trim ام Val ،، مع العلم اني استخدم ارقام صحيحة وارقام عشرية فقط عند الاضافة مثل :
4
3.5
3
...

،شكرا ،،،[/SIZE][/b]
الرد }}}
تم الشكر بواسطة:
#16
shado1796 كتب :


[/COLOR]

اشكرك اخي جدا على التوضيح ،، وقد قرأت عن هذا الموضوع من قبل ،،لكن ما اقصده اني عندما غيرت نوع الحقل يجب انا اغير كثير في البرنامج مثل الاضافة وهذا الكود

كود :
Dim Cmd2 As New SqlCommand("insert into Table2 (LengthM,LengthY) values ([color=#FF0000]'[/color]" & [color=#FF0000]Trim[/color](TextBox72.Text) & "[color=#FF0000]'[/color] , [color=#FF0000]'[/color]" & [color=#FF0000]Trim[/color](TextBox85.Text) & "[color=#FF0000]'[/color] )", Conn)

انا اريد اقتراحك ونصيحتك في استخدام Trim ام Val ،، مع العلم اني استخدم ارقام صحيحة وارقام عشرية فقط عند الاضافة مثل :
4
3.5
3
...

،شكرا ،،،[/SIZE]


بالطبع استخدم Val
ولاتنسى بحذف هذي العلامه ( ' ) من الجهى اليمنى واليسرى

الكود بعد التعديل


كود :
Dim Cmd2 As New SqlCommand("insert into Table2 (LengthM,LengthY) values (" & [color=#ff0000]Val[/color](TextBox72.Text) & " , " & [color=#FF0000]Val[/color](TextBox85.Text) & ")", Conn)
Big Grin
<---------------------------------------------------------------->

الرد }}}
تم الشكر بواسطة:
#17
Easy 4ever كتب :بالطبع استخدم Val
ولاتنسى بحذف هذي العلامه ( ' ) من الجهى اليمنى واليسرى

الكود بعد التعديل


كود :
Dim Cmd2 As New SqlCommand("insert into Table2 (LengthM,LengthY) values (" & [color=#ff0000]Val[/color](TextBox72.Text) & " , " & [color=#FF0000]Val[/color](TextBox85.Text) & ")", Conn)

شكرا وجاري التجربة
الرد }}}
تم الشكر بواسطة:
#18
shado1796 كتب :شكرا وجاري التجربة

نجح الكود بشكل ممتاز ،،، جزاك الله الف خير انت والاخوان
الرد }}}
تم الشكر بواسطة:
#19
shado1796 كتب :نجح الكود بشكل ممتاز ،،، جزاك الله الف خير انت والاخوان

الله يجزيك بالمثل

بالتوفيق
Big Grin
<---------------------------------------------------------------->

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تقرير mrfenix93 1 41 24-03-24, 10:29 PM
آخر رد: mrfenix93
  مساعدة jalaltech 1 95 07-03-24, 07:38 PM
آخر رد: قناص المدينة
  [VB.NET] مساعدة فى كود فاتورة اللكترونية asdfar1977 2 194 02-03-24, 02:00 AM
آخر رد: asdfar1977
  مساعدة فى كود فاتورة الكترونية asdfar1977 0 79 29-02-24, 07:14 PM
آخر رد: asdfar1977
  مساعدة jalaltech 0 133 17-02-24, 02:15 AM
آخر رد: jalaltech
  طلب مساعدة AHMED213 3 323 06-02-24, 09:39 PM
آخر رد: AHMED213
  [VB.NET] طلب مساعدة AHMED213 0 219 31-01-24, 12:56 AM
آخر رد: AHMED213
  طلب مساعدة بخصوص كود الطباعة paveldida 2 461 19-01-24, 12:00 AM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 272 18-01-24, 05:04 PM
آخر رد: loay775
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002

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


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