Página 1 de 1

listview - Excel e Access

Enviado: Qui Fev 21, 2019 7:49 am
por Robson
Bom dia,

Sou novo com VBA + Access, Montei uma conexão do Excel para o banco do Access, no meu formulário tem um Listview, mas eu não estou conseguindo fazer a consulta, da erro.. Ele Carrega o List.. mas quando digito no Textbox, para carregar a consulta ele não Vai..

Tentei usar um dos 4 "rs.Open"... mesmo assim da erro.. alguém pode me ajudar?

Sub filtrar_List()
Dim vBusca As String
Dim LinhaListView1 As Integer
Dim item As ListItem
'ListView1.ListItems.Clear

vBusca = LstBusca

' ConectDB

' 1 - rs.Open "Select * from TBDados where Nome like'" & Replace(vBusca, "'", "''") & "%'" & _
' "or Codigo like '" & Replace(vBusca, "'", "''") & "%'" & " or Sexo like '" & Replace(vBusca, "'", "''") & "%'", db, 3,


2 - ' rs.Open "Select * from TBDados where Nome like'%" & Replace(vBusca, "'", "''") & "%'" & _
' "or Re like '" & Replace(vBusca, "'", "''") & "%' order by Re", db, 3, 3


3- 'rs.Open " select * from TBDados where Nome like'%" & vBusca & "%' order by re", db, 3, 3


4- rs.Open "select * from TBDados where Nome LIKE '" & vBusca & "%" & "'", db, 3, 3


Do Until (rs.EOF)
Set item = ListView1.ListItems.Add(, , rsNome)
item.SubItems(1) = "" & rs!Nome
item.SubItems(2) = "" & rs!CELULAR
item.SubItems(3) = "" & rs!TELEFONE
LinhaListView1 = LinhaListView1 + 1
rs.MoveNext
Loop
Set rs = Nothing
db.Close: Set db = Nothing


FechaDB

End Sub

Re: listview - Excel e Access

Enviado: Sex Fev 22, 2019 11:09 am
por Reinaldo
Pode disponibilizar seu modelo?, altere dados para ficticios se necessario

Re: listview - Excel e Access

Enviado: Qui Jul 11, 2019 10:29 am
por themusicgospel
bom dia amigo,
estou enviando o código que uso para fazer uma buscar no banco de dados e filtrar dados na listview:

Dim item As ListItem
lstCad.ListItems.Clear

ConnectBD

rs.Open "select * from Parcelas where ID like'" & txt_alunoselecionado.Text & "%'", db, 3, 3
Do Until rs.EOF
Set item = lstCad.ListItems.Add(, , rs!Codigo)
item.SubItems(1) = rs!ID
item.SubItems(2) = rs!NParcela
item.SubItems(3) = rs!DataPagamento
item.SubItems(4) = "" & Format(rs!ValorPagamento, "currency")
item.SubItems(5) = rs!NRecibo
item.SubItems(6) = rs!Atendente
item.SubItems(7) = rs!DataHoje
item.SubItems(8) = rs!Observacao
item.SubItems(9) = rs!Dias
item.SubItems(10) = "" & Format(rs!ValorMensalidade, "currency")
item.SubItems(11) = "" & Format(rs!ValorJuros, "currency")
item.SubItems(12) = "" & Format(rs!Valor_a_Pagar, "currency")
' Item.SubItems(12) = "" & Format(rs!ValorTeste, "currency")
item.SubItems(13) = rs!status
item.SubItems(14) = rs!Pagamento
item.SubItems(15) = rs!Situacao
item.SubItems(16) = "" & Format(rs!ValorTeste, "currency")



rs.MoveNext
Loop

rs.Close: Set rs = Nothing
db.Close: Set db = Nothing