Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Listview com duas tabelas

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

andre220
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Dom Jul 22, 2018 4:47 pm

Listview com duas tabelas

Mensagem por andre220 »

Bom dia, Família Tomás Vásquez

Preciso muito da ajuda de vocês, vamos lá...
Estou precisando fazer uma Listview usando duas tabelas porém esta dando erro.
Segue o erro "Erro em tempo de excecução '-2147467259 (80004005)': Tipo não coincidente na expressão."

Segue meu código

Código: Selecionar todos

Sub Carregar_Itens()

    numero_pedido = Me.txtPedido.Text
    
    Call Conexao

    Set Consulta = New ADODB.Recordset
    Consulta.Open "SELECT Consulta_Itens_Remessa.IdItem_R, Consulta_Itens_Remessa.IdProduto_R, Consulta_Itens_Remessa.NomeProduto, TblItensPedido.Quantidade, Consulta_Itens_Remessa.SomaDeQuantidade_R, Consulta_Itens_Remessa.ValorUnitario_R, Consulta_Itens_Remessa.SomaDeValorTotal_R, Consulta_Itens_Remessa.IdPedido_R, Consulta_Itens_Remessa.IdItemCP_P from Consulta_Itens_Remessa inner join TblItensPedido on Consulta_Itens_Remessa.IdItemCP_P = TblItensPedido.IdItemCP where Consulta_Itens_Remessa.IdPedido_R = '" & numero_pedido & "'", Cn, adOpenKeyset, adLockOptimistic, adCmdTex

    On Error Resume Next
    'Populando o Listview1
    ListView1.ListItems.Clear
    
    While Not Consulta.EOF
        Set List = ListView1.ListItems.Add(Text:=Consulta("IdItem_R"))  'Item
            List.SubItems(1) = Consulta("IdProduto_R") 'Código
            List.SubItems(2) = Consulta("NomeProduto") 'Produto
            List.SubItems(3) = Consulta("Quantidade") 'Quantidade Pedido
            List.SubItems(4) = Consulta("SomaDeQuantidade_R") 'Quantidade Remessa
            List.SubItems(5) = Consulta("ValorUnitario_R") 'Valor Unitário
            List.SubItems(6) = VBA.Format(Consulta("SomaDeValorTotal_R"), "##,##0.00") 'Total
            List.SubItems(7) = Consulta("IdPedido_R") 'Pedido
            List.SubItems(8) = Consulta("IdItemCP_P") 'IdtemCP

            Consulta.MoveNext
     Wend
     
     Call Desconecta

     
End Sub
Muito obrigado pela atenção


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
PRMPOKER
Consultor
Consultor
Mensagens: 206
Registrado em: Ter Dez 04, 2012 8:57 am

Re: Listview com duas tabelas

Mensagem por PRMPOKER »

Prezados, boa noite!

Caro andre220, dá uma olhada se os campos que você colocou na comparação do SQL são do mesmo tipo. Provavelmente, não.

Código: Selecionar todos

where Consulta_Itens_Remessa.IdPedido_R = '" & numero_pedido & "'"
É provável que o campo Consulta_Itens_Remessa.IdPedido_R e a variável numero_pedido tenham TIPOS diferentes (um deles seja STRING e ou outro, INTEGER).

Por favor, verifica isso e nos diga o que encontrou.

Um abraço!

Paulinho Monteiro.


Responder