Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim DT As New DataTable
Dim DA As New OleDbDataAdapter
DA = New OleDbDataAdapter("SELECT * FROM OMAR WHERE ohda_combany LIKE '%" & TextBox1.Text & "%' AND bolesa.company_name LIKE '%" & TextBox1.Text & "%' AND TASFEA_OHAD.company_name LIKE '%" & TextBox1.Text & "%' AND TASFEA_HORA.company_namE LIKE '%" & TextBox1.Text & "%' ", con)
DA.Fill(DT)
DataGridView1.DataSource = DT
End Sub
الجداول bolesa - TASFEA_HORA - TASFEA_OHAD لم تقم بادراجها بعد كلمة from
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim DT As New DataTable
Dim DA As New OleDbDataAdapter
DA = New OleDbDataAdapter("SELECT * FROM OMAR,bolesa,TASFEA_HORA,TASFEA_HORA WHERE ohda_combany LIKE '%" & TextBox1.Text & "%' AND bolesa.company_name LIKE '%" & TextBox1.Text & "%' AND TASFEA_OHAD.company_name LIKE '%" & TextBox1.Text & "%' AND TASFEA_HORA.company_namE LIKE '%" & TextBox1.Text & "%' ", con)
DA.Fill(DT)
DataGridView1.DataSource = DT
End Subتمنياتي لك وللجميع التوفيق
