Salve Galera.
Iremos agora dar continuidade ao Post anterior, Cadastro com SQL.
Hoje vamos realizar a programação da busca, retornar os dados para os textboxs.
Vamos trabalhar um pouco com comandos mais especificos.
Areas de buscas centradas.
E o melhor de tudo, comentado para que voces entendam e processem tudo com seu Processadores locais.
Mão a Obra Galera.
Necessitamos de um Listbox e um Textbox
Aqui vamos nós.
Segura moçada!
Aqui são nossas variaveis de ação
Dim banco As Database
Dim tabela As Recordset
Aqui o bicho pega.
Nosso listbox esta aqui.
Private Sub List_LISTA_Click()
Onde buscar os dados aqui
Set banco = OpenDatabase(ThisWorkbook.Path & "\" & ThisWorkbook.Name, False, False, "Excel 8.0")
Agora o tipo de busca
Dim busca As String
Onde retornamos a busca
busca = Me.List_LISTA.List(Me.List_LISTA.ListIndex, 0)
SEt - aqui é onde direccionamos a busca
Select - O que selecionar
From - Onde selecionar
Like - este é especifico, é o curinga da busca a Estrela da festa.
Set tabela = banco.OpenRecordset("Select * from [cadastro$] where codigo like '" & busca & "*'")
Aqui limpamos nossos textbox, para que seja retornado a busca precisa
Mude para seus textboxs.
Form_sistema.Text_codigo.Text = ""
Form_sistema.Text_setor.Text = ""
Form_sistema.Text_datentrega.Text = ""
Form_sistema.Text_colaborador.Text = ""
Form_sistema.Text_calca.Text = ""
Form_sistema.Text_tamcalca.Text = ""
Form_sistema.Text_qtdcalca.Text = ""
Form_sistema.Text_jaqueta.Text = ""
Form_sistema.Text_tamjaqueta.Text = ""
Form_sistema.Text_qtdjaqueta.Text = ""
Form_sistema.Text_camisa.Text = ""
Form_sistema.Text_tamcamisa.Text = ""
Form_sistema.Text_qtdcamisa.Text = ""
Form_sistema.Text_calcado.Text = ""
Form_sistema.Text_tamcalcado.Text = ""
Form_sistema.Text_qtdcalcado.Text = ""
Agora olhe este comando
Se nossa tabela for diferente teremos uma ação aqui
If tabela.EOF And tabela.BOF Then
Else
Aqui o resultado de tudo e onde retornamos a nossa busca
If tabela("codigo") <> "" Then
Form_sistema.Text_codigo = tabela("codigo")
End If
If tabela("colaborador") <> "" Then
Form_sistema.Text_colaborador = tabela("colaborador")
End If
If tabela("setor") <> "" Then
Form_sistema.Text_setor = tabela("setor")
End If
If tabela("calca") <> "" Then
Form_sistema.Text_calca = tabela("calca")
End If
If tabela("tamcalca") <> "" Then
Form_sistema.Text_calca = tabela("tamcalca")
End If
If tabela("qtdcalca") <> "" Then
Form_sistema.Text_qtdcalca = tabela("qtdcalca")
End If
If tabela("jaqueta") <> "" Then
Form_sistema.Text_jaqueta = tabela("jaqueta")
End If
If tabela("tamjaqueta") <> "" Then
Form_sistema.Text_tamjaqueta = tabela("tamjaqueta")
End If
If tabela("qtdjaqueta") <> "" Then
Form_sistema.Text_qtdjaqueta = tabela("qtdjaqueta")
End If
If tabela("camisa") <> "" Then
Form_sistema.Text_camisa = tabela("camisa")
End If
If tabela("tamcamisa") <> "" Then
Form_sistema.Text_tamcamisa = tabela("tamcamisa")
End If
If tabela("qtdcamisa") <> "" Then
Form_sistema.Text_qtdcamisa = tabela("qtdcamisa")
End If
If tabela("calcado") <> "" Then
Form_sistema.Text_calcado = tabela("calcado")
End If
If tabela("tamcalcado") <> "" Then
Form_sistema.Text_tamcalcado = tabela("tamcalcado")
End If
If tabela("qtdcalcado") <> "" Then
Form_sistema.Text_qtdcalcado = tabela("qtdcalcado")
End If
If tabela("dataentrega") <> "" Then
Form_sistema.Text_datentrega = tabela("dataentrega")
End If
Unload Me
End If
End Sub
Agora vamos programar o textbox que será usado para pesquisa
Note os codigos de busca e onde buscar
Private Sub Text_pesquisanome_Change()
Veja que o Set sempre está presente mostrando a direção de nossa busca
Set banco = OpenDatabase(ThisWorkbook.Path & "\" & ThisWorkbook.Name, False, False, "Excel 8.0")
Set tabela = banco.OpenRecordset("Select * from [cadastro$] where colaborador like '" & Me.Text_pesquisanome & "*'")
Dim i As Integer
i = 0
Me.List_LISTA.Clear
Aqui é nossa busca pelo que digitammos
A busca pode ter qualquer parametro desde que lhe atenda
Do Until tabela.EOF
If tabela("codigo") <> "" Then
Me.List_LISTA.AddItem tabela("codigo")
End If
If tabela("colaborador") <> "" Then
Me.List_LISTA.List(i, 1) = tabela("colaborador")
End If
i = i + 1
tabela.MoveNext
Loop
End Sub
Private Sub UserForm_Click()
End Sub
Bom galera.
Termino por aqui.
Espero qye seja de grande valia a todos e que tudo possa ser processado por todos.
Valeu galera.
Te mais.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Pesquisa em SQL...
- kedim43
- Colaborador
- Mensagens: 45
- Registrado em: Dom Fev 05, 2012 3:12 pm
- Localização: Goias
- Contato:
Re: Pesquisa em SQL...
Blz...
A pesquisa em SQL é muito robusta.
Entre em contato comigo que poderia lhe enviar um modelo.
A pesquisa em SQL é muito robusta.
Entre em contato comigo que poderia lhe enviar um modelo.