21-01-18, 09:35 PM
(آخر تعديل لهذه المشاركة : 21-01-18, 09:36 PM {2} بواسطة محمد اسماعيل.)
(21-01-18, 07:21 PM)محمود صالح كتب : اتفضل اخي ضع كل شرط امام جداوله
كود كامل بعد التعديلPHP كود :
Dim DataAdapter As New OleDbDataAdapter("SELECT tb1_type ,tb1_price FROM tb1 WHERE tb1_type LIKE '%" & Trim$(TextBox1.Text) & "%' UNION SELECT tb2_type,tb2_price FROM tb2 WHERE tb2_type like '%" & Trim$(TextBox1.Text) & "%' UNION SELECT tb3_name,tb3_price FROM tb3", con)
PHP كود :
On Error Resume Next
If IsNumeric(TextBox1.Text) = False Then
Dim DataAdapter As New OleDbDataAdapter("SELECT tb1_type ,tb1_price FROM tb1 WHERE tb1_type LIKE '%" & Trim$(TextBox1.Text) & "%' UNION SELECT tb2_type,tb2_price FROM tb2 WHERE tb2_type like '%" & Trim$(TextBox1.Text) & "%' UNION SELECT tb3_name,tb3_price FROM tb3", con)
con.Open()
DataSet1.Clear()
DataAdapter.Fill(DataSet1, "tb1,tb2,tb3")
If Me.BindingContext(DataSet1, "tb1,tb2,tb3").Count = 0 Then
DataSet1.Clear()
DataAdapter1.Fill(DataSet1, "tb1,tb2,tb3")
con.Close()
count()
MsgBox("لم يتم العثور على شيء", 48 + MsgBoxStyle.MsgBoxRight, "البحث") : Exit Sub
Else
DataSet1.Clear()
DataAdapter.Fill(DataSet1, "tb1,tb2,tb3")
con.Close()
count()
Exit Sub
End If
End If
يعجز لساني عن الشكر ومجهودك الرائع
جزالك اللّة عني وعن غيري خير
تم الحل