تقييم الموضوع :
  • 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 ك ب / التحميلات : 3)
كود :
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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يمكن الحفاظ على تسلسل ارقام حقول الجدول حتى بعد الحذف؟ gonm64 12 448 18-01-20, 12:52 AM
آخر رد: gonm64
  هل يبمكن حجز تسلسل العمود في الجدول حتى بعد حذفه gonm64 4 159 13-12-19, 01:50 AM
آخر رد: gonm64
  كيف يمكن انشاء عمود لقاعدة بيانات جاهزة اثناء التشغيل gonm64 8 266 30-11-19, 11:28 PM
آخر رد: gonm64
  هل يمكن دمج عمودين من نفسس الجدول في عمود واحد gonm64 6 209 24-11-19, 12:27 AM
آخر رد: gonm64
  هل يمكن التحكم في رفع و خفص صوت كرت الصوت المرفق مع الكمبيوتر ؟ Alhootti1 2 157 17-11-19, 06:34 AM
آخر رد: Alhootti1
  كيف يمكن اخفاء عمود في msflexgrid بشكل موقت gonm64 2 183 15-11-19, 12:40 AM
آخر رد: gonm64
Question [vb6.0] هل يمكن يظهر التاريخ المدخل يظهر في التقرير Active Report بصيغه التاليه (YYYY/MM/DD) Microformt 2 221 13-11-19, 06:40 AM
آخر رد: Microformt
  [vb6.0] التحقق من وجود نص فى التكست بوكس norhan 23 4,789 09-11-19, 03:20 AM
آخر رد: AL_BRNS
Question [vb6.0] هل يمكن استخدم كاميرة الحاسب في تصور الموظفين وحفظ الصورة بقاعدة بيانات برنامجي ؟؟ Microformt 4 820 08-11-19, 09:28 PM
آخر رد: Benmouha
  هل يمكن عمل mergcel لتقرير اكتف ريبورت gonm64 7 385 31-10-19, 02:11 AM
آخر رد: مصمم هاوي

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


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