تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[ تمّ الحل ] : إعادة عرض البيانات داخل الفليكس جريد
#1
السّلام عليكم و رحمة الله و بركاته
إخواني الأكارم لو تكرّمتم فضلا لا أمرًا النّظر بهذه الإشكالية التي أرهقتني كثيرًا
حاولت لأكثر من يوم و بعثرت كلمة Drawflex في كل مكان .. أضفت و أنقصت لكن دون فائدة رغم بساطة الإشكالية
كيف يمكن إعادة البيانات كلها على شبكة الفليكس لمّا أمسح الحروف داخل التاكسات
بهذه الصورة قمت بكتابة حرف العين .. فظهرت لي البيانات داخل الفليكس جريد 
أريد لما أمسح حرف العين تظهر البيانات كلها و عددها 7 الموجودة بقاعدة البيانات على الشبكة 
بمعنى أبحث .. تظهر البيانات حسب نتيجة البحث
ألغي البحث .. تظهر البيانات كلها 
خالص الاحترامات


الملفات المرفقة
.rar   البحث.rar (الحجم : 15.99 ك ب / التحميلات : 46)
الرد
تم الشكر بواسطة: sendbad100 , sendbad100
#2
و عليكم السلام و رحمة الله و بركاته

PHP كود :
If Trim$(Text1.Text) <> "" Then
    zSearch 
"[Prenom] LIKE '" Trim$(Text1.Text) & "%'"
Else
 
   zSearch "[Prenom] LIKE '%'"
End If 
أو نلغي الشرط:
PHP كود :
zSearch "[Prenom] LIKE '" Trim$(Text1.Text) & "%'" 
الرد
#3
وعليكم السلام ورحمة الله وبركاته

اضافة  الى مشاركة الاخ /  Mohamad Anan     مشكورا


PHP كود :
Private Sub Command1_Click()

Dim zSearch As String


If Trim(Text1.Text) = "" Then GoTo sendbad101:

If 
Trim$(Text1.Text) <> "" Then zSearch "[Prenom] LIKE '" Trim$(Text1.Text) & "%'"
 
If Trim$(Text2.Text) <> "" Then
If Trim$(zSearch) <> "" Then
zSearch 
zSearch " And [Mere] LIKE '" Trim$(Text2.Text) & "%'"
Else
zSearch "[Mere] LIKE '" Trim$(Text2.Text) & "%'"
End If
End If

If 
Trim$(Text3.Text) <> "" Then
If Trim$(zSearch) <> "" Then
zSearch 
zSearch " And [Groupage] LIKE '" Trim$(Text3.Text) & "%'"
Else
zSearch "[Groupage] LIKE '" Trim$(Text3.Text) & "%'"
End If
End If

If 
Trim$(Text4.Text) <> "" Then
If Trim$(zSearch) <> "" Then
zSearch 
zSearch " And [Rhesis] LIKE '" Trim$(Text4.Text) & "%'"
Else
zSearch "[Rhesis] LIKE '" Trim$(Text4.Text) & "%'"
End If
End If

If 
Trim$(Text5.Text) <> "" Then
If Trim$(zSearch) <> "" Then
zSearch 
zSearch " And [Grandpere] LIKE '" Trim$(Text5.Text) & "%'"
Else
zSearch "[Grandpere] LIKE '" Trim$(Text5.Text) & "%'"
End If
End If

If 
Trim$(zSearch) = "" Then Set MSHFlexGrid1.DataSource Nothing: Exit Sub
If RS.State 1 Then RS.Close
RS
.CursorLocation adUseClient
RS
.Open "Select * From TB1 Where " zSearchDBadOpenStaticadLockPessimistic
If RS.RecordCount 0 Then
Set MSHFlexGrid1
.DataSource RS.Clone
Else
Set MSHFlexGrid1.DataSource Nothing
End 
If

DrawFlex

Exit Sub


sendbad101
:

If 
RS.State 1 Then RS.Close
RS
.CursorLocation adUseClient
'RS.Open "Select * From TB1 Where " & zSearch, DB, adOpenStatic, adLockPessimistic
RS.Open "Select * From TB1 Order By [Code] ASC", DB, adOpenStatic, adLockPessimistic
If RS.RecordCount > 0 Then
Set MSHFlexGrid1.DataSource = RS.Clone
Else
Set MSHFlexGrid1.DataSource = Nothing
End If

DrawFlex

End Sub 
الرد
#4
السّلام عليكم و رحمة الله و بركاته
بارك الله فيكما و لكما و رزقكما من حيث لا تحتسبان
Mohamad Anan
Sendbad100
جزاكما الله خير الجزاء و زادها بموازين حسناتكما و أثابكما جنّات النّعيم و حشركما بزمرة النبيّين و الأتقياء و الشهداء و الصّالحين
أحسن الله إليكما مثلما أحسنتما إليَّ بهذيْن العمليْن و الحلّيْن الرّائعين و كلاهما إشتغلا معي أحسن إشتغال و أفضل إستعمال
هذا هو المطلوب بتمامه و كماله و لله الحمد و الشّكر
أكّرر شكري و تقديري و امتناني و عرفاني لكما بالجميل عسى المولى العلي القدير أن يعوّضكما بخير منها إن شاء الله
إحتراماتي
الرد
تم الشكر بواسطة: sendbad100 , Mohamad Anan , Amir_Alzubidy , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في قاعدة البيانات dr.mostashar 2 156 28-04-19, 02:44 PM
آخر رد: sendbad100
  [كود] بحث في الفليكس Abdellah 2 226 04-03-19, 12:40 AM
آخر رد: Abdellah
  [vb6.0] كود لخزن اسماء داخل كومبو بوكس من تيكست بوكس وادي العوضي 8 311 18-02-19, 12:09 AM
آخر رد: وادي العوضي
  طريقة كتابة المسار داخل قيمة في الريجيستري الرجل الرمادي 3 244 10-02-19, 08:05 PM
آخر رد: Amir_Alzubidy
  الحدف من الفليكس كريد WAFY 1 268 25-01-19, 05:36 AM
آخر رد: عبدالله الصافي
  عرض عدد الحقول المملوؤه في عمود MSHFLEXGRID داخل مربع نص دهشوش1 1 304 25-01-19, 05:20 AM
آخر رد: عبدالله الصافي
  سؤال بخصوص النقط والفواصل العشرية وغيرها في قاعدة البيانات hannileo 3 279 24-01-19, 01:58 PM
آخر رد: عبدالله الصافي
  كيفية عمل ازرار مأخوذة او مربوطة مع قاعدة البيانات hannileo 6 462 14-01-19, 10:07 AM
آخر رد: hannileo
  ترتيب البيانات tighrmte 2 229 12-01-19, 11:45 PM
آخر رد: tighrmte
  عرض التاريخ داخل MSHFLEXGRID دهشوش1 4 378 13-12-18, 05:05 AM
آخر رد: Ahmed_Mansoor

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


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