Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

listview - Excel e Access

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

Moderador: joseA

Robson
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qua Fev 06, 2019 6:51 am

listview - Excel e Access

Mensagem por Robson » Qui Fev 21, 2019 7:49 am

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



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
Reinaldo
Jedi
Jedi
Mensagens: 1209
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: listview - Excel e Access

Mensagem por Reinaldo » Sex Fev 22, 2019 11:09 am

Pode disponibilizar seu modelo?, altere dados para ficticios se necessario


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

themusicgospel
Colaborador
Colaborador
Mensagens: 12
Registrado em: Ter Ago 23, 2011 11:07 pm

Re: listview - Excel e Access

Mensagem por themusicgospel » Qui Jul 11, 2019 10:29 am

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



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.


Responder