تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مشكلة
#1
السلام عليكم

 حاليا استخدم فيجوال بيسك دوت نت 2008 مع SQL

المشكلة : اريد ان اظهر (ارقام/احرف/ارقام )... لكن دائما يغير الى (ارقام/ارقام/احرف) ... اتصور المشكلة في Setting لان في DB لاتوجد مشكلة يخزن
( ارقام/احرف/ارقام ) لكنه يعرض (ارقام/ارقام/احرف)
الرد
تم الشكر بواسطة:
#2
هذة المشكلة بسبب العلامة "/" بالتحديد مع الحروف العربية

مثال : المتوقع  (    أ هـ س/1234/م ع     )
         الحقيقة (   أ هـ س/م ع/1234      )



لو إستخدمة العلامة المعكوسة "\" لن تجد مشكلة

الحل :
إما أن تضع مسافة قبل وبعد العلامة  "/" 
لتصبح هكذا : (    أ هـ س / 1234 / م ع     )


أو أن تستخدم ( sample ) مختلف من نافذة :
   
وعند الضغط على لوحة المفاتيح قم بإستبدال العلامة الأصلية بالعلامة التي إخترتها من النافذة, وستظهر في مربع النص بشكل عادي ,
الرد
تم الشكر بواسطة: elgokr , ليل الصيف
#3
وعليكم اسلام ورحمة الله وبركاته

مرحباً اخى ليل الصيف
فى البداية الرجاء الانتباه الى اسم عنوان الموضوع
بحيث ان يكون عنوان الموضوع هو وصف المشكلة تجنباً لعدم حذف الموضوع للمخالفة

بخصوص المشكلة التى لديك
هو لم يوم بتحويل ليعرض ارقام/ارقام/ نص
ولكن بسبب ان النص عربي فاصبح الرؤية للشكل عبارة عن ارقام/ارقام/نص

لتوضح الصورة اكثر انظر الى هذا الكود يمكنك تطبيقه فى اى زر 
كود :
       Dim dd As String = "123/اوك/654"
       Dim kk As String = "123/ok/987"
       MsgBox(dd)
       MsgBox(kk)

ستلاحظ من وضع وشكل الكود انه يعرض كما انت تقول كا مشكلة
ولكن فى الحقيقة اذا قمت بنسخ النص وقمت بلصقها فى اى مكان وليكن Notepad
ستجد انه ايضاً رقم/نص/رقم

طيب الان كيف يتم حل المشكلة حتى يعرض الناتج بالصورة الطبيعية وهوو رقم/نص/رقم
كل ما عليك فعله هو التالى 
ضع هذا الـ Function
كود :
   Function Right_Left(ByRef Tools As Control, ByVal Text As String) As String
       Dim ArabicKey As String = "ذدجحخهعغفقثصضطكمنتالبيسشظزوةىرؤءئّ؛إًٌَُ،ـأٍِ؟آْ"
       For ii As Integer = 0 To ArabicKey.Length - 1
           If Text.Contains(ArabicKey(ii)) Then
               Tools.RightToLeft = RightToLeft.Yes
               Exit For
           Else
               Tools.RightToLeft = RightToLeft.No
           End If
       Next
       Tools.Text = Text
       Return Tools.Focus
   End Function

ثم تعال نعيد امر الكود الذى كان بالاعلى بطريقة ايجابية الصورة ولاحظ ان اليمة لم تتغير بعد
كود :
       Dim ar = "123\اوك\456"
       Dim en = "123\ok\456"

       Right_Left(TextBox1, ar)
       MsgBox(en)

ستلاحظ ان عند احتواء القيمة الى نص عربي سيقوم بتوجيه الـ TextBox من اليمين الى اليسار
وبكده تكون حليت مشكلة قراءة الشكل من رقم/رقم/نص ليصبح بطبيعته وهو رقم/نص/رقم

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] مشكلة عدم قبول النصوص الطويل في قاعدة البيانات على برنامج فيجوال بيسك 2010 الرائد 12 292 14-06-19, 03:03 PM
آخر رد: elgokr
  مشكلة فى جلب كامل الصفحة ابو روضة 11 292 07-06-19, 03:51 AM
آخر رد: ابو روضة
  مشكلة في Decryptor Mohamed20 1 73 05-06-19, 11:27 PM
آخر رد: elgokr
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 8 156 05-06-19, 03:40 AM
آخر رد: heshamelkomy71
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 11 317 04-06-19, 03:12 PM
آخر رد: elgokr
  مشكلة في الاتصال بقاعدة البيانات والسيرفر sqlserver nooralcown 1 265 03-06-19, 12:33 PM
آخر رد: سعود
  مشكلة في التاريخ مع التقرير nooralcown 1 65 30-05-19, 01:52 PM
آخر رد: اسامه الهرماوي
  [VB.NET] مشكلة في الكريستال ريبورت abu.hanen4u 2 105 27-05-19, 04:48 AM
آخر رد: abu.hanen4u
  [VB.NET] مشكلة حدثت مع sql اسامه الهرماوي 2 90 23-05-19, 08:19 PM
آخر رد: اسامه الهرماوي
  [VB.NET] بخصوص مشكلة بتنفيذ كود sdk البصمة ssayed111 4 860 22-05-19, 08:34 AM
آخر رد: محمد محمود أحمد الغرياني

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


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