المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
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]
المشاركات : 521
المواضيع 28
الإنتساب : Sep 2012
السمعة :
14
الشكر: 153
تم شكره 317 مرات في 108 مشاركات
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<=" & 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()
مع المراعاه بأن تغيير نوع الحقل LengthM إلى هذا النوع decimal(10,2)
* ملاحظة:
1- هذا النوع يعني عدد كسري رقم 10 هو عدد أعلى الخانات قبل الفاصلة إي الصحيحه 2 عدد أعلى الخانات بعد الفاصلة إي الخانات الكسرية
مثال يقبل هذا العدد ( 1234500000.02 ) قبل كحد أعلى 10 خانات قبل الفاصلة و خانتين بعد الفاصلة
2- تستطيع زيادة الخانات اليسرى ( الصحيحة ) و الخانات اليمنى ( الكسرية ) بالرقم الذي تريد
3- هذا النوع يقبل الأرقام من
( 0.00000000000000000000000000000000000001 )
حتى رقم ( 10,000,000,000,000,000,000,000,000,000 )
<---------------------------------------------------------------->
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 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]
المشاركات : 521
المواضيع 28
الإنتساب : Sep 2012
السمعة :
14
الشكر: 153
تم شكره 317 مرات في 108 مشاركات
كل وحده لها شغل مختلف وحده تقوم بحذف الفراغات والأخرى تقوم بتحويل البيانات
Trim هي دالة تقوم بحذف المسافه الموجوده في الحقول النصيه من على يمينها وعلى يسارها
يعني لو عندنا نص كذا ( TTTT ) في TextBox
نلاحظ يوجد فراغ من على اليمين وعلى اليسار إذا استخدمنا Trim يحذفها
نكتب الأمر التالي
ستصبح القيمه كتالي (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) لأننا حولنا ما بداخل الحقول إلى رقمي حتى يتمكن بالتعامل معه كرقم .
<---------------------------------------------------------------->
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
19-03-13, 03:42 PM
(آخر تعديل لهذه المشاركة : 19-03-13, 03:44 PM {2} بواسطة ahmed mohamed soliman.)
Easy 4ever كتب :[SIZE=4][b]كل وحده لها شغل مختلف وحده تقوم بحذف الفراغات والأخرى تقوم بتحويل البيانات
Trim هي دالة تقوم بحذف المسافه الموجوده في الحقول النصيه من على يمينها وعلى يسارها
يعني لو عندنا نص كذا ( TTTT ) في TextBox
نلاحظ يوجد فراغ من على اليمين وعلى اليسار إذا استخدمنا Trim يحذفها
نكتب الأمر التالي
ستصبح القيمه كتالي (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]
المشاركات : 521
المواضيع 28
الإنتساب : Sep 2012
السمعة :
14
الشكر: 153
تم شكره 317 مرات في 108 مشاركات
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)
<---------------------------------------------------------------->
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
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)
شكرا وجاري التجربة
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
shado1796 كتب :شكرا وجاري التجربة
نجح الكود بشكل ممتاز ،،، جزاك الله الف خير انت والاخوان
المشاركات : 521
المواضيع 28
الإنتساب : Sep 2012
السمعة :
14
الشكر: 153
تم شكره 317 مرات في 108 مشاركات
shado1796 كتب :نجح الكود بشكل ممتاز ،،، جزاك الله الف خير انت والاخوان
الله يجزيك بالمثل
بالتوفيق
<---------------------------------------------------------------->
|