ERRO EM CONSULTA - BD ACESS
- Os campos cod_tabela e En estão como campos texto.
Danikull:
- Testei sua correção, mas está dando dados incompatÃveis (Run-time error [ô]3464[ô] tipo incompatÃvel na expressão de critério.)
Ricart:
Set rec = bco.OpenRecordset([Ô]select * from tblprodu where En = [ô]true[ô] and cod_tabela =[ô][Ô] & cod_conv.Text & [Ô][ô][Ô])
não retorna nada, apesar de haver dados no BD
Daverson
- apenas testei 1 e -1 para true, mas nada...
Danikull:
- Testei sua correção, mas está dando dados incompatÃveis (Run-time error [ô]3464[ô] tipo incompatÃvel na expressão de critério.)
Ricart:
Set rec = bco.OpenRecordset([Ô]select * from tblprodu where En = [ô]true[ô] and cod_tabela =[ô][Ô] & cod_conv.Text & [Ô][ô][Ô])
não retorna nada, apesar de haver dados no BD
Daverson
- apenas testei 1 e -1 para true, mas nada...
Dá um PRINT dos registros no banco pra gente analisar.
Citação:Danikull:
- Testei sua correção, mas está dando dados incompatÃveis (Run-time error [ô]3464[ô] tipo incompatÃvel na expressão de critério.)
Boa noite....
Então é o seguinte, na consulta eu achava que o campo cod_tabela fosse numérico. Como você está dizendo que texto faça a cpntula da seguinte forma
Set rec = bco.OpenRecordset([Ô]select * from tblprodu where En = true and cod_tabela =[ô][Ô] & cod_conv.Text & [Ô][ô][Ô])
Desta vez retirei o conversor de texto para número e acrescentei as aspas simples antes da variável.
ok???
Tecla:
O link da imagem: http://img15.imageshack.us/img15/2677/figura1efo.jpg
Danikull:
Concordo contigo, mas o registro está retornando vazio agora
Obrigado
O link da imagem: http://img15.imageshack.us/img15/2677/figura1efo.jpg
Danikull:
Concordo contigo, mas o registro está retornando vazio agora
Obrigado
Citação::
Tecla:
O link da imagem: http://img15.imageshack.us/img15/2677/figura1efo.jpg
Danikull:
Concordo contigo, mas o registro está retornando vazio agora
Obrigado
Bom dia.
Se EN está gravado com BIT 0 ou 1 usando TRUE ou FALSE sempre vai retornar vazio para você. Então qual valor para você vai representar o TRUE, se for 1 faça como abaixo:
Set rec = bco.OpenRecordset([Ô]select * from tblprodu where En = 1 and cod_tabela =[ô][Ô] & cod_conv.Text & [Ô][ô][Ô])
Se for ao contrario basta colocar 0 no lugar de 1. Faça assim que vai funcionar ok???
como vc diz que sao ambos texto
Set rec = bco.OpenRecordset([Ô]select * from tblprodu where En =[Ô] true[Ô] and cod_tabela =[ô][Ô] & cod_conv.Text & [Ô][ô][Ô])
lembrando que o conteudo do campo EN na tabela deve estar com a palavra [Ô]TRUE[Ô]
Set rec = bco.OpenRecordset([Ô]select * from tblprodu where En =[Ô] true[Ô] and cod_tabela =[ô][Ô] & cod_conv.Text & [Ô][ô][Ô])
lembrando que o conteudo do campo EN na tabela deve estar com a palavra [Ô]TRUE[Ô]
Vou deixar a imagem no tópico para facilitar pro pessoal.
Pelo alinhamento nas tabelas, vejo que os seus campos estão todos com texto.
Só vai funcionar se vc passar os parâmetros como texto e da forma que os dados estão gravados:
Set rec = bco.OpenRecordset([Ô]select * from tblprodu where En = [ô]1[ô] and cod_tabela =[ô][Ô] & cod_conv.Text & [Ô][ô][Ô])
Set rec = bco.OpenRecordset([Ô]select * from tblprodu where En = [ô]0[ô] and cod_tabela =[ô][Ô] & cod_conv.Text & [Ô][ô][Ô])
Procure ler um pouco sobre bancos de dados e verá que isso fará a diferença para que vc possa fazer suas consultas com mais segurança e agilidade.
Só vai funcionar se vc passar os parâmetros como texto e da forma que os dados estão gravados:
Set rec = bco.OpenRecordset([Ô]select * from tblprodu where En = [ô]1[ô] and cod_tabela =[ô][Ô] & cod_conv.Text & [Ô][ô][Ô])
Set rec = bco.OpenRecordset([Ô]select * from tblprodu where En = [ô]0[ô] and cod_tabela =[ô][Ô] & cod_conv.Text & [Ô][ô][Ô])
Procure ler um pouco sobre bancos de dados e verá que isso fará a diferença para que vc possa fazer suas consultas com mais segurança e agilidade.
Oi
Tenta usar [Ô][txt-color=#0000f0]Like[/txt-color][Ô]:
[txt-color=#0000f0]Set[/txt-color] rec = bco.OpenRecordset([Ô]select * from tblprodu where En = true and cod_tabela like [ô][Ô] & cod_conv.Text & [Ô][ô][Ô])
valeu
Tenta usar [Ô][txt-color=#0000f0]Like[/txt-color][Ô]:
[txt-color=#0000f0]Set[/txt-color] rec = bco.OpenRecordset([Ô]select * from tblprodu where En = true and cod_tabela like [ô][Ô] & cod_conv.Text & [Ô][ô][Ô])
valeu
Pessoal,
Concordo com os últimos posts de Danikull e Pegudo, o código está sendo lido, tem passado para as demais funções, mas não está mais carregando o listview.
Quando utilizava apenas Set rec = bco.OpenRecordset([Ô]select * from tblprodu where En = true [Ô]) o list era carregado.
Se for possÃvel alguma outra sugestão, agradeço.
Obrigado a todos que ajudaram até aqui.
Gardel
Concordo com os últimos posts de Danikull e Pegudo, o código está sendo lido, tem passado para as demais funções, mas não está mais carregando o listview.
Quando utilizava apenas Set rec = bco.OpenRecordset([Ô]select * from tblprodu where En = true [Ô]) o list era carregado.
Se for possÃvel alguma outra sugestão, agradeço.
Obrigado a todos que ajudaram até aqui.
Gardel
Tópico encerrado , respostas não são mais permitidas