(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