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)
Pergunta
ViniciusSantos
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.