تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هل يمكن اسناد جملة في حال وجود حقل في الجدول او عدمه
#1
السلام عليكم
عندي جدول   table1
فيه عدة حقول       t1    ,  t2 ,  t3
 اريد اسند جملة كالتالي
  في حال وجود   t3    اجعل   " العنوان"  =  MSFlexGrid1.TextMatrix(0, 3)   
وفي حال عدم وجوده         " "  =  MSFlexGrid1.TextMatrix(0, 3)          
 

مع الشكر والتقدير
الرد }}}
تم الشكر بواسطة: asemshahen5
#2
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , إذا كانت قاعدة البيانات أكسس وتريد من خلال جملة الإستعلام فحص ما إذا كان حقل موجود في الجدول أم لا فعلى حد علمي أعتقد لايمكن ذلك لكن تستطيع بالكود أن تفحص وجود الحقل من عدمه وعلى النتيجة تنشئ جملة الإستعلام التي تناسب وجود الحقل أو عدمه , مثلا تعمل دالة تفحص وجود الحقل في الجدول وترجع لك قيمة True إن كان موجود و False إن لم يكن موجود , مثال :

PHP كود :
Dim SQL As String

If CheckField("t3") = True Then
    SQL 
"Select t1,t2,t3 From table1"
    
MSFlexGrid1.TextMatrix(03) = "العنوان"
Else
    
SQL "Select t1,t2,'' From table1"
    
MSFlexGrid1.TextMatrix(03) = ""
End If 
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
#3
(08-12-19, 02:24 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , إذا كانت قاعدة البيانات أكسس وتريد من خلال جملة الإستعلام فحص ما إذا كان حقل موجود في الجدول أم لا فعلى حد علمي أعتقد لايمكن ذلك لكن تستطيع بالكود أن تفحص وجود الحقل من عدمه وعلى النتيجة تنشئ جملة الإستعلام التي تناسب وجود الحقل أو عدمه , مثلا تعمل دالة تفحص وجود الحقل في الجدول وترجع لك قيمة True إن كان موجود و False إن لم يكن موجود , مثال :

PHP كود :
Dim SQL As String

If CheckField("t3") = True Then
    SQL 
"Select t1,t2,t3 From table1"
 
   MSFlexGrid1.TextMatrix(03) = "العنوان"
Else
 
   SQL "Select t1,t2,'' From table1"
 
   MSFlexGrid1.TextMatrix(03) = ""
End If 

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


الملفات المرفقة
.rar   فحص وجود الحقل.rar (الحجم : 4.71 ك ب / التحميلات : 9)
الرد }}}
تم الشكر بواسطة: asemshahen5 , Ahmed_Mansoor , Amir_Alzubidy , Amir_Alzubidy
#4
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , تم تعديل المثال , بالتوفيق .


الملفات المرفقة
.rar   فحص وجود الحقل_1.rar (الحجم : 4.55 ك ب / التحميلات : 4)
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
#5
احسنت اخي واشتاذنا الطيب احمد
جزاك الله خيرا اسال الله لك التوفيق وقضاء الحوائج
الشكر والتقدير لك ببيان لا ينقطع عطره وذكرك الطيب
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , asemshahen5 , Ahmed_Mansoor , Ahmed_Mansoor
#6
السلام عليكم اخي احمد
اريد اسند هذه الدالة الى تكست بوكس للكشف عن اسم الحقل الثالث
Text1.Text = Data2.Recordset.Fields(3).Name
لكن المشكلة انه في حال عدم وجود الحقل ( محذوف من الجدول ) فانه يعطي رساله خطا
المطلوب :
اذا كان موجود يعرض الاسم في التكست ولكن في حال عدم وجوده يكون
Text1.Text = ""
الرد }}}
تم الشكر بواسطة: asemshahen5 , Ahmed_Mansoor
#7
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , إستخدم الطريقة التالية :

PHP كود :
If Data2.Recordset.Fields.Count >= 3 Then
   Text1
.Text Data2.Recordset.Fields(3).Name
Else
   
Text1.Text ""
End If 

بالتوفيق .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
تم الشكر بواسطة: asemshahen5 , Microformt
#8
شكرا لك اخي احمد على اهتمامك ورعايتك الكريمة ومتابعتك لنا جميعا
انا استخدمت سابقا عدة جمل يمكن ان يستخرج منها اسم الحقل ولكن المشكلة تكمن في ان الحقل يفترض موجود بالفعل حتى يمكن اسناد الجملة له
وما اريده هو
استخراج الاسم في حال الحقل موجود او لم يكن موجودا بحيث يصفر التكست بلا اي رسالة خطا
ففي هذا المثال
Text1.Text = Data2.Recordset.Fields(3).Name
لو كان الحقل 3 محذوفا لا يمكن تشغيل هذه الجملة وتعطي رسالة خطا
تحياتي لك
الرد }}}
تم الشكر بواسطة: asemshahen5 , Ahmed_Mansoor
#9
أهلا بك أخي الكريم , أخي لاحظ الكود التالي :

PHP كود :
Data2.DatabaseName App.Path "\sari.mdb"
Data2.RecordSource "Select Top 1 * From table1" 
Data2.Refresh

If Data2.Recordset.Fields.Count >= 3 Then
   Text1
.Text Data2.Recordset.Fields(3).Name
Else
   
Text1.Text ""
End If 

في هذا الجزء من الكود :

PHP كود :
Data2.DatabaseName App.Path "\sari.mdb"
Data2.RecordSource "Select Top 1 * From table1" 
Data2.Refresh 

نقوم بفتح الجدول بجميع الحقول الموجودة فيه , وفي هذا الجزء من الكود :

PHP كود :
If Data2.Recordset.Fields.Count >= 3 Then
   Text1
.Text Data2.Recordset.Fields(3).Name
Else
   
Text1.Text ""
End If 

نقوم بفحص ما إذا كان عدد الحقول أكبر من أو يساوي رقم الحقل الذي تريد معرفة إسمه فإذا كان عدد الحقول أكبر أو يساويه فمعناته أن الحقل بهذا الرقم موجود في الجدول أما إذا كان عدد الحقول الموجودة في الجدول أصغر فمعناته أن الحقل بهذا الرقم غير موجود ولايمكن جلب إسمه , بالتوفيق .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
تم الشكر بواسطة: gonm64 , asemshahen5 , Microformt
#10
احسنت اخي واستاذي الطيب احمد منصور
اجدد الشكر والتقدير لك واسال الله تعالى ان يوفقك ويقضي حوائجك للدنياوالاخرة وييسر امورك كلها ويرحم والديك في الدنيا والاخرة
تحياتي لك
انا عملت سابقا فكرة مشابهة لما تفضلت به ولكن ماتجود به انت من الكرم هو اجود وافضل ماعندنا طريقتك في الوصول الى المطلوب احترافي ودقيق
الله يوفقك
الرد }}}
تم الشكر بواسطة: asemshahen5 , Ahmed_Mansoor , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف يمكن برمجة عدد السجلات واستعراض السجلات بشرط رقم الموظف ؟ Microformt 3 198 09-01-24, 01:05 AM
آخر رد: Taha Okla
Question [vb6.0] كيف يمكن استدعاء اسم البرنامج من النافدة هذه وضعة في textbox ؟ Microformt 1 161 02-01-24, 10:06 PM
آخر رد: Taha Okla
Question [vb6.0] كيف يمكن استدعاء هذه الدالة وضعها تحت زر الامر ؟ Microformt 1 169 31-12-23, 11:52 PM
آخر رد: Taha Okla
  [vb6.0] كيف يمكن إخفاء عمود رقم الصنف و إظهاره برمجياً نامل المساعدة في المثال التالي ؟ Microformt 2 387 19-11-23, 10:49 PM
آخر رد: Microformt
  ريد عند النقر على الصف من الجدول المجود على الفورم يظهر رقم الصنف في Text ؟ Microformt 1 327 04-11-23, 10:34 PM
آخر رد: Amir_Alzubidy
Question [vb6.0] هل هناك ادوات جديده يمكن استخدمها في تصميم برنامجي بدل ادوات فجوال البيسك ؟ Microformt 0 220 21-10-23, 07:34 PM
آخر رد: Microformt
  كيف يمكن تشغيل برنامجي على اكثر من جهاز بنفس الوقت princeofislam 1 291 14-10-23, 08:18 PM
آخر رد: princeofislam
  نقل بيانات الجدول الى جدول اخر بعد تجميع البيانات haithamelareny 1 359 10-08-23, 11:54 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] اريد إذا كان قيمة المحول صفر يظهر لي رسالة هل يمكن ذلك ؟ Microformt 0 371 20-03-23, 08:33 PM
آخر رد: Microformt
Question كيف يمكن تصفير الرسم البياني عند تشغيل البرنامج ؟؟ Microformt 0 702 06-08-22, 05:13 PM
آخر رد: Microformt

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


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