INNER JOIN
Pessoal, o que tem de errado na consulta abaixo, o vb retorna um erro informando que tem um operador faltando.
consultaOrcamento = [Ô]select orcamento.cod_cliente, orcamento.cod_produto,orcamento.qtd,orcamento.data_orcamento, clientes.nome from orcamento inner join clientes on orcamento.cod_cliente = clientes.cod_cliente inner join produtos on orcamento.cod_produto = produtos.cod_produto where nome like [ô][Ô] & txtConsultaOrcamento.Text & [Ô]%[ô] order by nome[Ô]
Set rs = con.Execute(consultaOrcamento)
consultaOrcamento = [Ô]select orcamento.cod_cliente, orcamento.cod_produto,orcamento.qtd,orcamento.data_orcamento, clientes.nome from orcamento inner join clientes on orcamento.cod_cliente = clientes.cod_cliente inner join produtos on orcamento.cod_produto = produtos.cod_produto where nome like [ô][Ô] & txtConsultaOrcamento.Text & [Ô]%[ô] order by nome[Ô]
Set rs = con.Execute(consultaOrcamento)
Coloca Assim:
Faltou informar qual a tabela está o campo nome
consultaOrcamento = [Ô]select orcamento.cod_cliente, orcamento.cod_produto,orcamento.qtd,orcamento.data_orcamento, clientes.nome from orcamento inner join clientes on orcamento.cod_cliente = clientes.cod_cliente inner join produtos on orcamento.cod_produto = produtos.cod_produto where Clientes.nome like [ô][Ô] & txtConsultaOrcamento.Text & [Ô]%[ô] order by Clientes.nome[Ô]
Set rs = con.Execute(consultaOrcamento)
Faltou informar qual a tabela está o campo nome
consultaOrcamento = [Ô]select orcamento.cod_cliente, orcamento.cod_produto,orcamento.qtd,orcamento.data_orcamento, clientes.nome from orcamento inner join clientes on orcamento.cod_cliente = clientes.cod_cliente inner join produtos on orcamento.cod_produto = produtos.cod_produto where Clientes.nome like [ô][Ô] & txtConsultaOrcamento.Text & [Ô]%[ô] order by Clientes.nome[Ô]
Set rs = con.Execute(consultaOrcamento)
continua erro de sintaxe operador faltando na expressão consulta...
agora se eu utilizar apenas um join funciona.
agora se eu utilizar apenas um join funciona.
verifique o tipo de dados das tabelas que fazem relacionamento pois tem que ser o mesmo.
os campos estão no mesmo formato
utilizei o assistente de consulta do access e copiei o código, ficou assim:
consultaOrcamento = [Ô]SELECT orcamento.cod_cliente AS orcamento_cod_cliente, orcamento.cod_produto AS orcamento_cod_produto, orcamento.qtd, orcamento.data_orcamento, Produtos.cod_produto AS Produtos_cod_produto, Produtos.Descricao, Produtos.Preco_Venda, Clientes.Cod_cliente AS Clientes_Cod_cliente, Clientes.Nome FROM (Clientes INNER JOIN orcamento ON Clientes.[Cod_cliente] = orcamento.[cod_cliente]) INNER JOIN Produtos ON orcamento.[cod_produto] = Produtos.[cod_produto] where Clientes.nome like [ô][Ô] & txtConsultaOrcamento.Text & [Ô]%[ô] order by Clientes.nome[Ô]
Set rs = con.Execute(consultaOrcamento)
consultaOrcamento = [Ô]SELECT orcamento.cod_cliente AS orcamento_cod_cliente, orcamento.cod_produto AS orcamento_cod_produto, orcamento.qtd, orcamento.data_orcamento, Produtos.cod_produto AS Produtos_cod_produto, Produtos.Descricao, Produtos.Preco_Venda, Clientes.Cod_cliente AS Clientes_Cod_cliente, Clientes.Nome FROM (Clientes INNER JOIN orcamento ON Clientes.[Cod_cliente] = orcamento.[cod_cliente]) INNER JOIN Produtos ON orcamento.[cod_produto] = Produtos.[cod_produto] where Clientes.nome like [ô][Ô] & txtConsultaOrcamento.Text & [Ô]%[ô] order by Clientes.nome[Ô]
Set rs = con.Execute(consultaOrcamento)
Tenta usar * invez de % no like.
Tópico encerrado , respostas não são mais permitidas