[sendbad100]

وعليكم السلام ورحمة الله وبركاته

امين ولك مثل ما دعيت لي


ضع هذا الكود في حدث Chang للتكست 6 

PHP كود :

Private Sub Text6_Change()


Set rs = New ADODB.Recordset

If rs.State = adStateOpen Then rs.Close

 rs.Open "SELECT  *   FROM tablette1  WHERE  [الاسم] like  '" & Trim(Text6.Text) & "%'   union all  SELECT *  FROM tablette2  WHERE [الاسم] LIKE   '" & Trim(Text6.Text) & "%'", DB, adOpenStatic, adLockOptimistic

Set MSHFlexGrid1.DataSource = rs

 End Sub 


والكود التالي يوضف في كوماند3  
للبحث عن الاسم المطابق تماما فقط 

PHP كود :

Private Sub Command3_Click()

sql = "SELECT  *   FROM tablette1  WHERE  [الاسم] = '" & Trim(Text6.Text) & " '  UNION all SELECT *  FROM tablette2  WHERE [الاسم]=   '" & Trim(Text6.Text) & "'"

Set rs = New ADODB.Recordset

If rs.State = adStateOpen Then rs.Close

 rs.Open sql, DB, adOpenStatic, adLockOptimistic

Set MSHFlexGrid1.DataSource = rs

 End Sub 


والله الموفق

---

وهذا المثال بعد تطبيق الكودين اوالاجرائين