DIGITAR QUALQUER PARTE DO NOME E SOBRENOME

 Tópico anterior Próximo tópico Novo tópico

DIGITAR QUALQUER PARTE DO NOME E SOBRENOME

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#491607 - 29/11/2019 10:40:49

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Última edição em 29/11/2019 13:16:36 por OMAR2011

Fizeram um Mysql para voc que funcione.
Estou usando Mysql 8.0.
Este um teste simples.
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim cn As New MySqlConnection([]Server=Localhost;Database=Bras2019;Uid=root;Pwd=12qw[])
        cn.Open()
        Dim cmd As New MySqlCommand([]SELECT * FROM caixafechado WHERE tipo like []*[] & TextBox1.Text & []*[] [], cn) With {
       .Connection = cn
        }

        Dim dr As MySqlDataReader = cmd.ExecuteReader()
        While dr.Read()
            TextBox5.Text = dr([]Data[])
            TextBox6.Text = dr([]valor[])
        End While
        cn.Close()
    End Sub
Isto funciona?
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim cn As New MySqlConnection([]Server=Localhost;Database=Bras2019;Uid=root;Pwd=12qw[])
        cn.Open()
        Dim cmd As New MySqlCommand([]SELECT * FROM caixafechado WHERE tipo like []%[] & TextBox1.Text & []%[] [], cn) With {
       .Connection = cn
        }

        Dim dr As MySqlDataReader = cmd.ExecuteReader()
        While dr.Read()
            TextBox5.Text = dr([]Data[])
            TextBox6.Text = dr([]valor[])
        End While
        cn.Close()
    End Sub
Agora sim,este funciona.




#491610 - 29/11/2019 14:20:13

FOXMAN
BARRETOS
Cadast. em:Janeiro/2001


Membro da equipe
Citação:
:
Fizeram um Mysql para voc que funcione.
Estou usando Mysql 8.0.
Este um teste simples.
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim cn As New MySqlConnection([]Server=Localhost;Database=Bras2019;Uid=root;Pwd=12qw[])
        cn.Open()
        Dim cmd As New MySqlCommand([]SELECT * FROM caixafechado WHERE tipo like []*[] & TextBox1.Text & []*[] [], cn) With {
       .Connection = cn
        }

        Dim dr As MySqlDataReader = cmd.ExecuteReader()
        While dr.Read()
            TextBox5.Text = dr([]Data[])
            TextBox6.Text = dr([]valor[])
        End While
        cn.Close()
    End Sub
Isto funciona?
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim cn As New MySqlConnection([]Server=Localhost;Database=Bras2019;Uid=root;Pwd=12qw[])
        cn.Open()
        Dim cmd As New MySqlCommand([]SELECT * FROM caixafechado WHERE tipo like []%[] & TextBox1.Text & []%[] [], cn) With {
       .Connection = cn
        }

        Dim dr As MySqlDataReader = cmd.ExecuteReader()
        While dr.Read()
            TextBox5.Text = dr([]Data[])
            TextBox6.Text = dr([]valor[])
        End While
        cn.Close()
    End Sub
Agora sim,este funciona.


Veja , e reveja o meu post. Pois o que estou me referindo sobre o * JUNTO A PALAVRA FROM, e no a utilizao do * na clausula where.
Se observar o usuario juntou o * com FROM(SELECT *FROM BLABLABLA). E sobre isso que estou me referindo.
O banco dele eu no sei, provavelmente deve ser access...





Grupo DotNet.Br no FaceBook

Grupo WhatsDev



#491611 - 29/11/2019 16:35:27

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Última edição em 29/11/2019 17:01:52 por OMAR2011

Cara sinceramente eu NO SEI QUAL O SEU PROBLEMA ????
No seria mais FCIL, vc apontar o erro, informando para o USUARIO que ele colocou a P@#@#$ DO * JUNTO  com o FROM ??????
Quando falo que vc polui o forum , voc no acredita....

Observa l em cima, e veja a minha resposta para o cara....
Veja se o meu select traz o * junto com o FROM ????
Ai analise o meu comentrio.....

E me responda....
O que a sua resposta CONTRIBUIU para o tpico ??????

Quem est criando polemica?Voc j veio com vrias bombas amarrada no corpo para detonar.Sabem bem porque das Bombas.
Quem est com Verdadeiro problema de identidade voc.
Meu post foi direcionado ao JABA.
Olha minha postagem.
Jaba, qual Banco atende este tipo de Consulta Sql.
rs.Open []SELECT *from TBCadastroAlunoEBD WHERE NOME Like []*[] & cbxBuscar.TEXT & []*[] Order by Nome[], db, 3, 3
Sinceramente eu no lembro disto.
E sim, tabela.find

Isto muito interessante para quem est comeando.

O que a sua resposta CONTRIBUIU para o tpico ??????
Agora minha vez de escrever.
E sua critica o que CONTRIBUIU PARA O TPICO.
Nem leu direito meu post.






#491619 - 29/11/2019 19:37:45

FOXMAN
BARRETOS
Cadast. em:Janeiro/2001


Membro da equipe
Citação:
  Jaba, qual Banco atende este tipo de Consulta Sql.
rs.Open []SELECT *from TBCadastroAlunoEBD WHERE NOME Like []*[] & cbxBuscar.TEXT & []*[] Order by Nome[], db, 3, 3
Sinceramente eu no lembro disto.
E sim, tabela.find


Citação:
  E sua critica o que CONTRIBUIU PARA O TPICO.
Nem leu direito meu post.

A minha critica foi endereada a voc e no teve peso de contribuio.
PORM, a minha contribuio est na minha primeira resposta.
Bem diferente da sua primeira resposta.
Que vem com um ar de deboche.
Se vc no sabe que tipo de banco atende a SQL em questo....
sugiro a voc estudar um pouco mais, que certamente irs saber qual banco de dados ir atender a SQL em questo.

Qualquer coisa, de uma olhada nessa minha contribuio para voc :
qual Banco atende este tipo de Consulta Sql


Grupo DotNet.Br no FaceBook

Grupo WhatsDev



#491620 - 29/11/2019 19:57:24

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


Eu adoro o frum do vb mania j estou aqui a alguns anos mas esse ano bem top mesmo bem intenso 😂😂😂



#491621 - 29/11/2019 20:26:01

JABA
CABO FRIO
Cadast. em:Agosto/2005


Jaba, qual Banco atende este tipo de Consulta Sql.
Citação:
rs.Open []SELECT *from TBCadastroAlunoEBD WHERE NOME Like []*[] & cbxBuscar.TEXT & []*[] Order by Nome[], db, 3, 3
Sinceramente eu no lembro disto.
E sim, tabela.find


OMAR2011, eu havia colocado um link para isso. Reveja a postagem.

_______________________________________________________________________________________________

Se a alma ou esprito so imateriais, como eles fazem para se localizar quando o corpo est em movimento?



#491622 - 29/11/2019 20:37:58

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Última edição em 29/11/2019 20:38:26 por OMAR2011

Jaba eu vi e acessei.
Cara eu no lembro de usar * em consulta Sql usando o Vb6 ou net.
Eu testei usando o Vb6 e Vbnet,ambas no obtive resposta adequada
para consulta.Ai que eu pensei,ser que j tinha visto e tinha esquecido.
Eu no Lembro,mesmo.No mais, no estou querendo criar polemica.




#491623 - 30/11/2019 04:55:44

JABA
CABO FRIO
Cadast. em:Agosto/2005


Citação:
:
Jaba eu vi e acessei.
Cara eu no lembro de usar * em consulta Sql usando o Vb6 ou net.
Eu testei usando o Vb6 e Vbnet,ambas no obtive resposta adequada
para consulta.Ai que eu pensei,ser que j tinha visto e tinha esquecido.
Eu no Lembro,mesmo.No mais, no estou querendo criar polemica.


OMAR2011, isso no tem nada a ver com VB6 e VB.Net, isso coisa de banco de dados. Cada um deles tem uma maneira diferente de se implementar certas coisas, algumas outras so iguais. A consulta apenas uma string que ser interpretada pelo banco.  Eu j havia dito sobre isso na prpria postagem retrazida por ti, como se v abaixo:

Citação:
O simbolo que para colocar depois do operador LIKE vai depender do banco de dados. Cada banco tem um tipo de simbolo. Se for ACCESS, s ver qual deles atende o seu caso no link abaixo.


_______________________________________________________________________________________________

Se a alma ou esprito so imateriais, como eles fazem para se localizar quando o corpo est em movimento?



#491624 - 30/11/2019 09:30:39

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Agora eu entendo.Foi minha arrogncia e ignorncia quanto ao VBA.
Anos atrs perdi meus dados usando VBA,ai onde fiquei bravo soltando
cobras,lagartos e mais.Nunca mais usei isto.
Vou verificar fazendo alguns testes aqui com o Access.
No mais, int.



#491627 - 30/11/2019 16:25:55

FOXMAN
BARRETOS
Cadast. em:Janeiro/2001


Membro da equipe
Seria algo assim que vc queria ????



Grupo DotNet.Br no FaceBook

Grupo WhatsDev



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por RICARDOPIBU em 08/01/2020 19:21:04