Ú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.

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

Cara sinceramente eu NÃO SEI QUAL É O SEU PROBLEMA ????
Não seria mais FÁCIL, 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ê não 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 comentário.....

E me responda....
O que a sua resposta CONTRIBUIU para o tópico ??????

Quem está criando polemica?Você já veio com várias 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 não lembro disto.
E sim, tabela.find

Isto é muito interessante para quem está começando.

O que a sua resposta CONTRIBUIU para o tópico ??????
Agora é minha vez de escrever.
E sua critica o que CONTRIBUIU PARA O TÓPICO.
Nem leu direito meu post.

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

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

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

Agora eu entendo.Foi minha arrogância e ignorância quanto ao VBA.
Anos atrás 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é.