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


الملفات المرفقة
.rar   البحث.rar (الحجم : 15.99 ك ب / التحميلات : 47)
الرد
تم الشكر بواسطة: 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



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


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