Consulta

[Alex Mauricio]

Boa noite.

Estou desenvolvendo uma aplicação, onde vou digitar um valor em um text, e o mesmo deverá buscar no BD.

Criei o seguinte select:

Set Table_Cadastro = BancoDeDados.OpenRecordset("SELECT * FROM TbSituacao INNER JOIN (TbFonte INNER JOIN TbCadastro ON TbFonte.codigoFonte = TbCadastro.fonte) ON TbSituacao.codigoSituacao = TbCadastro.situacaoCliente Order by TbCadastro.codigoCliente")

porem, preciso ter um where fonte like '*" & val(txtpesquisa.text) & "*'

mas não está funcionando.... obrigado a todos.

[raphael_suporte]

qual seu BD?

troque o * por %

where fonte like '%" & val(txtpesquisa.text) & "%'

[Alex Mauricio]

funciona com *

é o banco access

mas não sei onde colocar o where...

coloco no final da instrução e não funciona

[raphael_suporte]

então tenta coloca-lo antes do Order By, se continuar o erro, coloque aqui o código com where

[Alex Mauricio]

continua sem funcionar.

Set Table_Cadastro = BancoDeDados.OpenRecordset("SELECT * FROM TbSituacao INNER JOIN (TbFonte INNER JOIN TbCadastro ON TbFonte.codigoFonte = TbCadastro.fonte) ON TbSituacao.codigoSituacao = TbCadastro.situacaoCliente where situacaoCliente like '*" & Val(txtPesquisar.Text) & "*' Order by TbCadastro.codigoCliente")

ele não esta dando mais erro mas tb não retorna nada...

outro exemplo

Set Table_Cadastro = BancoDeDados.OpenRecordset("SELECT * FROM TbSituacao INNER JOIN (TbFonte INNER JOIN TbCadastro ON TbFonte.codigoFonte = TbCadastro.fonte) ON TbSituacao.codigoSituacao = TbCadastro.situacaoCliente where codigoCliente = " & Val(txtPesquisar.Text))

neste segundo exemplo, ele retorna o valor, porém o inner join "não funciona"... ele mostra a tabela relacionada com o valor numérico e não com o texto que deveria aparecer.

[kuroi]

o q acontece se você tirar o where?? ele ta mostrando todos os dados certinho??