CONSULTA

USUARIO.EXCLUIDOS 10/06/2007 17:45:10
#220567
estou tentando fazer uma consulta só que dá um erro
banco de Dados em access, o campos é texto.

ja fiz dois tipos de consulta
1º modelo
resp = Endereço
MinhaSQL = "SELECT TBcliente.Autonumero, TBcliente.CodCliente, TBcliente.Nome, TBcliente.Endereco, TBcliente.Numero, TBcliente.Telefone, TBcliente.Dia, TBcliente.Valor, TBcliente.Setor, TBcliente.TelefoneSetor, TBcliente.obs, TBcliente.Ativo, TBcliente.Cidade, TBcliente.Notificacao, TBcliente.datainclusao, TBcliente.datapagto, * From TBcliente WHERE TBcliente.Endereco ='" & resp & "*' ORDER BY endereco"
Data1.RecordSource = MinhaSQL
Data1.Refresh
DBGrid1.Refresh


2º modelo
resp = Endereço
MinhaSQL = "SELECT TBcliente.Autonumero, TBcliente.CodCliente, TBcliente.Nome, TBcliente.Endereco, TBcliente.Numero, TBcliente.Telefone, TBcliente.Dia, TBcliente.Valor, TBcliente.Setor, TBcliente.TelefoneSetor, TBcliente.obs, TBcliente.Ativo, TBcliente.Cidade, TBcliente.Notificacao, TBcliente.datainclusao, TBcliente.datapagto, * From TBcliente WHERE TBcliente.Endereco =" & resp & "*' ORDER BY endereco"
Data1.RecordSource = MinhaSQL
Data1.Refresh
DBGrid1.Refresh

da o seguinte erro tanto uma como a outra.
ROBIU 10/06/2007 18:30:15
#220571 Resposta escolhida
Cara, os * estão errados nos dois lugares que colocou. Isso deveria ser assim:
MinhaSQL = "SELECT Autonumero, CodCliente, Nome, Endereco, Numero, Telefone, Dia, Valor, Setor, TelefoneSetor, obs, Ativo, Cidade, Notificacao, datainclusao, datapagto From TBcliente WHERE Endereco ='" & resp & "' ORDER BY endereco"

ou
MinhaSQL = "SELECT * From TBcliente WHERE Endereco ='" & resp & "' ORDER BY endereco"


Para pesquisar digitando algumas palavras é assim:
MinhaSQL = "SELECT * From TBcliente WHERE Endereco Like'" & resp & "%' ORDER BY endereco"


Observe que isto retorna todos os registros cujo endereço seja igual ao critério. Vários clientes pode ter o mesmo endereço.
Outra coisa: Não use campo autonumeração em tabelas do Access.
duvidas estou no robiu@hotmail.com
ICEMAN 10/06/2007 18:30:35
#220572
meu vc tentou assim

resp = Endereço
MinhaSQL = "SELECT * From TBcliente WHERE Endereco like'" & resp & "*' ORDER BY endereco"
Data1.RecordSource = MinhaSQL
Data1.Refresh
DBGrid1.Refresh


agora se vc tem campos especificos tira esse tbcliente poe so o nome do campo

tipo
mysql="select autonumero,codcliente,nome,....... from tbcliente where endereco like'" &resp &"*' order by endereco"
Tópico encerrado , respostas não são mais permitidas
Voltar