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
                    
                




