Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Pesquisa em SQL...

Tutoriais elaborados da comunidade
Avatar do usuário
kedim43
Colaborador
Colaborador
Mensagens: 45
Registrado em: Dom Fev 05, 2012 3:12 pm
Localização: Goias
Contato:

Pesquisa em SQL...

Mensagem por kedim43 »

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.


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
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Pesquisa em SQL...

Mensagem por joseA »

Mestre Kedim,

Tem um exemplo que edifique essa pesquisa?


Avatar do usuário
kedim43
Colaborador
Colaborador
Mensagens: 45
Registrado em: Dom Fev 05, 2012 3:12 pm
Localização: Goias
Contato:

Re: Pesquisa em SQL...

Mensagem por kedim43 »

Blz...
A pesquisa em SQL é muito robusta.
Entre em contato comigo que poderia lhe enviar um modelo.


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