Ir para conteúdo
Fórum Script Brasil
  • 0

Pesquisa de Campo


ViniciusSantos

Pergunta

Boa tarde a todos. Sou iniciante em programação e dentre minhas possibilidades encontrei um determinado erro que infelizmente não consegui a solução ainda!

Estou desenvolvendo um programa simples para controle de registros de documentos
Dentre as funções do programa em um determinado momento eu preciso gerar um relatorio dos documentos que estão em determinados locais chamados de PDD

Cada PDD é uma coluna no access! 

o mesmo programa foi desenvolvido em excel e funciona perfeitamente. porem de momento surgiu tal necessidade!

 

O comando abaixo mostra o que esta sendo feito e gerando o erro!
Daria certo se eu trocasse o  ( rs.Open "Select *from Base where pdd='X'", db, 3, 3) por  rs.Open "Select *from Base where PDD_02='X' ", db, 3, 3

 

porem não é viavel tendo em vista que existem 60 pontos

Sub PesquisaPDD()
    ListView2.ListItems.Clear
    Dim pdd As Variant
    
    pdd = Form1.cmbpdd.Text
    
    Call ConectaDB
        rs.Open "Select *from Base where pdd='X'", db, 3, 3
                
            Do Until rs.EOF
                Set Item = ListView2.ListItems.Add(, , rs!Codigo)
                Item.SubItems(1) = "" & rs(2)
                Item.SubItems(2) = "" & rs(3)
                Item.SubItems(3) = "" & rs(4)
                Item.SubItems(4) = "" & rs(5)
                
                
              rs.MoveNext
            Loop
            
        Call FecharDB
End Sub

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...