pessoal no meu banco de dados eu tenho um campo chamado situacao. Que defini como tipo Sim/Não.

porque?

no sistema tem uma tela que quando eu digito o código de pedido aparece em um listbox todos os códigos de produto. Esse listbox é com  chekbox.

Só que no banco existem alguns registros no campo situacao que está com seus checkbox selecionados (ticados).

E que eu quero, quando eu digitar o código de pedido e clicar em consultar deve trazer no listbox todos os códigos de produto que estão selecionados (ticados) assim como está no banco.

como faço isso?

select * from tabela where camposimnao=1

 

eu ja estou fazendo a sql e mesmo assim ele não traz.

 

veja código que estou fazendo para trazer selecionado:

 

 Do While rs.EOF = False
            'lstcodigopedido.AddItem rs!situacao
            lstcodigopedido.AddItem rs!codigo_produto
            lstdesc.AddItem rs!descontoi
            lstqtdepedido.AddItem rs!qtdei
            lstpreco.AddItem rs!VALOR
            lstvlrbruto.AddItem rs!valor_bruto_i
            lstvlrdesctotal.AddItem rs!valor_desconto_total_i
            lstvlrliq.AddItem rs!valor_liquido_i
            rs.MoveNext
        Loop

 

antes eu estava percorrendo e mesmo assim não está trazendo.

estou fazendo assim:

 

ficando assim:
sql = "SELECT pedido.codigo_pedido, "
sql = sql & "pedido.cancelado, "
sql = sql & "Pedido.cod_pedido_vendedor , "
sql = sql & "Pedido.cod_cliente_dist, "
sql = sql & "cadastrodistribuidor.cnpj_distribuidor, "
sql = sql & "cadastrodistribuidor.razao_social as nome_distribuidor, "
sql = sql & "cadastrofarmacia.cnpj_farmacia, "
sql = sql & "cadastrofarmacia.razao_social, "
sql = sql & "cadastrofarmacia.eqz, "
sql = sql & "Brick.eqz, cadastrovendedor.nome, "
sql = sql & "cadastrofarmacia.eqz, "
sql = sql & "Pedido.apontador, Pedido.prazo, "
sql = sql & "Pedido.tipo_cd, "
sql = sql & "Pedido.eqz as eqz2, "
sql = sql & "Pedido.cliente, "
sql = sql & "Pedido.aprovacao, Pedido.obs, "
sql = sql & "Pedido.qtde, Pedido.valor_total, "
sql = sql & "Pedido.valor_bruto, "
sql = sql & "Pedido.valor_desconto_total, "
sql = sql & "Pedido.valor_liquido, "
sql = sql & "Pedido.obs2, "
sql = sql & "Pedido.Data2, itens_pedido2.codigo_produto, "
sql = sql & "itens_pedido2.desconto as descontoi, "
sql = sql & "itens_pedido2.qtde as qtdei, "
sql = sql & "itens_pedido2.Valor, "
'sql = sql & "itens_pedido2.situacao, "
sql = sql & "itens_pedido2.valor_bruto_i, "
sql = sql & "itens_pedido2.valor_desconto_total_i, "
sql = sql & "itens_pedido2.valor_liquido_i "
sql = sql & "FROM (cadastrovendedor "
sql = sql & "INNER JOIN (cadastrodistribuidor "
sql = sql & "INNER JOIN ((brick "
sql = sql & "INNER JOIN cadastrofarmacia "
sql = sql & "ON brick.eqz = cadastrofarmacia.eqz) "
sql = sql & "INNER JOIN pedido "
sql = sql & "ON (cadastrofarmacia.codigo_farmacia = pedido.codigo_farmacia) "
sql = sql & "AND (brick.eqz = pedido.eqz)) "
sql = sql & "ON cadastrodistribuidor.codigo_distribuidor = pedido.codigo_distribuidor) "
sql = sql & "ON (cadastrovendedor.codigo_vendedor = pedido.codigo_vendedor) "
sql = sql & "AND (cadastrovendedor.codigo_vendedor = brick.codigo_vendedor)) "
sql = sql & "INNER JOIN itens_pedido2 "
sql = sql & "ON pedido.codigo_pedido = itens_pedido2.codigo_pedido "
sql = sql & "WHERE (((pedido.codigo_pedido)= " & txtcodigo.Text & "))"
sql = sql & "AND ((Tabela.situacao)=True))"
      
Set rs = db.OpenRecordset(sql)


Do While rs.EOF = False
            'lstcodigopedido.AddItem rs!situacao
            lstcodigopedido.AddItem rs!codigo_produto
            lstdesc.AddItem rs!descontoi
            lstqtdepedido.AddItem rs!qtdei
            lstpreco.AddItem rs!VALOR
            lstvlrbruto.AddItem rs!valor_bruto_i
            lstvlrdesctotal.AddItem rs!valor_desconto_total_i
            lstvlrliq.AddItem rs!valor_liquido_i
            rs.MoveNext
Loop

está trazendo os itens que estão selecionado no banco. porém, não está trazendo selecionado (ticado).

 

o que pode ser?

Vc tem q fazer algo assim:

 

if recordset!campo_situacao then 'se o campo_situacao = True

List1.Selected(0) = True

else

endif

 

espero q ajude em algo

 

t+

 

Veja nesse post: http://www.vbweb.com.br/forum_resp.asp?Codigo=180595

 

Caso seja algo parecido com o q vc quer...

 

sem mais,