منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغات البرمجة الاخرى > قسم لغة vb6.0 > قسم أسئلة vb6.0 > كيف اعمل التقرير في هذه الحالة
نسخة كاملة : كيف اعمل التقرير في هذه الحالة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

abdalalim

30-10-15, 07:43 PM
لدي قاعدة بيانات sql server 2005 وشاشة مصممة بلغةvb6.0 بها كومبوبوكس خاص ب ( الجنس ) .
انا عايز لم يتم اختار القيمة "ذكر" على سبيل المثال ، تخزن في قاعدة البيانات بالقيمة "m" بدلاً من القيمة "ذكر" .

لانه اذا تم تخزين القيمة "ذكر" كما هي ستظهر مشكلة التقرير التي أعاني منها الآن ، وهي ان الخانة الخاصة بالشرط (Cirteria) لاتدعم اللغة العربية.

Ahmed_Mansoor

30-10-15, 11:34 PM
أهلا أخي الكريم , عرف متغير نصي لحمل القيمة إما m أو f  , وأعمل شرط يتحقق من قيمة الكومبو قبل عملية الحفظ , وبالنسبة للتقرير أضف حقلين للجنس واحد تحفظ فيه نوع الجنس بالعربي بشكل عادي والآخر تحفظ فيه القيمة m أو f , وأدرج أيضا الحقلين الخاصه بنوع الجنس في التقرير ولكن إجعل الحقل الثاني الذي يحمل قيمة إما m أو f  إجعله في التقرير مخفي وهو الذي سيطبق عليه الشروط في   الـ Cirteria ,

كود :
Dim zGender as String

If Trim$(Combo1.Text) = "ذكر" Then
   zGender ="m"
Else
  zGender ="f"
End IF

RS![Gender1] = Trim$(Combo1.Text)
RS![Gender2] = zGender

RS.Update

abdalalim

31-10-15, 01:31 AM
جزاك الله خيرا على هذه المساعدة القيمة يا اخي احمد وجعلها في ميزان حسناتك.
مشكوووور
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغات البرمجة الاخرى > قسم لغة vb6.0 > قسم أسئلة vb6.0 > كيف اعمل التقرير في هذه الحالة