18-10-17, 03:39 AM
(آخر تعديل لهذه المشاركة : 18-10-17, 03:47 AM {2} بواسطة sendbad100.)
وعليكم السلام ورحمة الله وبركاته
امين ولك مثل ما دعيت لي
ضع هذا الكود في حدث Chang للتكست 6
والكود التالي يوضف في كوماند3
للبحث عن الاسم المطابق تماما فقط
والله الموفق
وهذا المثال بعد تطبيق الكودين اوالاجرائين
امين ولك مثل ما دعيت لي
ضع هذا الكود في حدث 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
والله الموفق
وهذا المثال بعد تطبيق الكودين اوالاجرائين


