Filtro Mysql

Moderador: Avelino Sampaio

marcelo3092
Mensagens: 89
Registrado em: 23 Jun 2016, 14:21

Filtro Mysql

Mensagempor marcelo3092 » 10 Fev 2019, 20:49

Ola pessoal boa tarde gostaria de pedir uma ajudinha aqui,
Estou tentando fazer uma consulta porem com base de dados online e desvinculada, o fato e que tenho um campo listbox que carrega normalmente os dados da tabela cliente porem eu tenho um textbox que eu queria que ao ir digitando ele fosse filtrando a listbox, seria possivel uma ajuda desde ja agradeço.

Tentei adaptar isso ai mais não deu o metodo que estou utilizando e do jeferson da kartofel para conectão e carregamento da listbox


Public Sub Lista_Load(csql, ForMy)

Call Conexao_Open(csql)

Dim FormAberto As Form 'Recebe o nome do formulário atual
Set FormAberto = Forms(ForMy)

FormAberto.Lista = Null 'Limpa seleção do registro
FormAberto.Lista.RowSource = "" 'Limpa os dados da caixa de listagem
FormAberto.Lista.Requery 'atualiza dados da caixa de listagem

While (Not rs.EOF)

FormAberto.Lista.AddItem rs.Fields(0).Value & ";" & rs.Fields(1).Value & ";" & rs.Fields(3).Value
rs.MoveNext 'vai para o proximo registro

Wend

rs.Close 'fecha o recorset
cn.Close 'fecha o banco de dados


Tentando adaptar esse codigo

Private Sub Texto5_KeyPress(KeyAscii As Integer)
Dim MySQL As String
Dim valor_pesq As String
Dim comando_SQL As String
Dim linhalistbox As Integer
Dim Consulta
Dim Conexao

valor_pesq = Texto5.Text

Call Conexao_Open(MySQL)

'on error resume next

Set Consulta = New ADODB.Recordset
comando_SQL = "select * from tblcliente where like Cod_Cliente '%" & valor_pesq * "%' or Razao_Social like '%" & valor_pesq & "%'"
Consulta.Open comando_SQL, Conexao

Me.Lista.AddItem


While Not Consulta.EOF

With Me.Lista
.AddItem
.List(Lista, 0) = Consulta(0)
.List(Lista, 1) = Consulta(1)
.List(Lista, 2) = Consulta(3)

linhalistbox = linhalistbox + 1

Consulta.MoveNext
Wend


End Sub

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Damasceno Jr.
Mensagens: 482
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: Filtro Mysql

Mensagempor Damasceno Jr. » 11 Fev 2019, 00:47

o código exibido mostra que está populando a listbox diretamente. Sugiro usar o recordset aberto com a base mysql para primeiro popular uma tabela local e usar a listbox vinculada a tabela local para assim filtrar a medida que digita.
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.


Voltar para “Módulos VBA”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 3 visitantes