+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (https://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (https://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (https://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [ تمّ الحل ] : إعادة عرض البيانات داخل الفليكس جريد (/showthread.php?tid=21987)
[ تمّ الحل ] : إعادة عرض البيانات داخل الفليكس جريد - عبد العزيز البسكري - 05-10-17
السّلام عليكم و رحمة الله و بركاته
إخواني الأكارم لو تكرّمتم فضلا لا أمرًا النّظر بهذه الإشكالية التي أرهقتني كثيرًا
حاولت لأكثر من يوم و بعثرت كلمة Drawflex في كل مكان .. أضفت و أنقصت لكن دون فائدة رغم بساطة الإشكالية
كيف يمكن إعادة البيانات كلها على شبكة الفليكس لمّا أمسح الحروف داخل التاكسات
بهذه الصورة قمت بكتابة حرف العين .. فظهرت لي البيانات داخل الفليكس جريد
أريد لما أمسح حرف العين تظهر البيانات كلها و عددها 7 الموجودة بقاعدة البيانات على الشبكة
بمعنى أبحث .. تظهر البيانات حسب نتيجة البحث
ألغي البحث .. تظهر البيانات كلها
خالص الاحترامات
![[صورة مرفقة: p_642ji1m71.jpg]](https://a.top4top.net/p_642ji1m71.jpg)
RE: إعادة عرض البيانات داخل الفليكس جريد - Mohamad Anan - 05-10-17
و عليكم السلام و رحمة الله و بركاته
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) & "%'"
RE: إعادة عرض البيانات داخل الفليكس جريد - sendbad100 - 05-10-17
وعليكم السلام ورحمة الله وبركاته
اضافة الى مشاركة الاخ / 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 " & zSearch, DB, adOpenStatic, adLockPessimistic
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
RE: إعادة عرض البيانات داخل الفليكس جريد - عبد العزيز البسكري - 05-10-17
السّلام عليكم و رحمة الله و بركاته
بارك الله فيكما و لكما و رزقكما من حيث لا تحتسبان
Mohamad Anan
Sendbad100
جزاكما الله خير الجزاء و زادها بموازين حسناتكما و أثابكما جنّات النّعيم و حشركما بزمرة النبيّين و الأتقياء و الشهداء و الصّالحين
أحسن الله إليكما مثلما أحسنتما إليَّ بهذيْن العمليْن و الحلّيْن الرّائعين و كلاهما إشتغلا معي أحسن إشتغال و أفضل إستعمال
هذا هو المطلوب بتمامه و كماله و لله الحمد و الشّكر
أكّرر شكري و تقديري و امتناني و عرفاني لكما بالجميل عسى المولى العلي القدير أن يعوّضكما بخير منها إن شاء الله
إحتراماتي