CONSULTAS SEGUIDAS
Sou iniciante em programação e estou fazendo um trabalho em Vb.net e bando de dados Mysql, é apenas um form de consulta preço
onde ele busca o valor digitado no textbox apos o coamndo Enter (que é função do leitor de codigo de barras) no bd e retorna dos valores em 2 labels.
meu codigo funciona apenas na primeira pesquisa, apos isso ele não muda os labels e nem faz uma nova busca.
queria que ele fizesse essa busca infinitamente, coisa que não ocorre, só consigo fazer uma busca rsrsrsrsr.
Queria tb ao final da pesquisa limpar o TextBox mas com o comando Clear eu não consigo digitar nada depois ele apaga sozinho.
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
Dim conexao As New MySqlConnection([Ô]server=localhost;User Id=root;password=1234;Persist Security Info=True;database=bd;Convert Zero Datetime=True[Ô])
Dim DataSet1 As New DataSet
If e.KeyCode = Keys.Enter Then
Dim sql As String = [Ô]SELECT * FROM produto where cod_barras=[ô][Ô] & TextBox1.Text & [Ô][ô][Ô]
Dim da As New MySqlDataAdapter(sql, conexao)
conexao.Open()
da.Fill(DataSet1, [Ô]mrs[Ô])
Label2.DataBindings.Clear()
Label7.DataBindings.Clear()
Label2.DataBindings.Add([Ô]text[Ô], DataSet1, [Ô]bd.nome[Ô])
Label7.DataBindings.Add([Ô]text[Ô], DataSet1, [Ô]bd.preco_venda[Ô])
TextBox1.Clear()
conexao.Close()
End If
End Sub
Dede Já Agradeço
Boa Tarde
onde ele busca o valor digitado no textbox apos o coamndo Enter (que é função do leitor de codigo de barras) no bd e retorna dos valores em 2 labels.
meu codigo funciona apenas na primeira pesquisa, apos isso ele não muda os labels e nem faz uma nova busca.
queria que ele fizesse essa busca infinitamente, coisa que não ocorre, só consigo fazer uma busca rsrsrsrsr.
Queria tb ao final da pesquisa limpar o TextBox mas com o comando Clear eu não consigo digitar nada depois ele apaga sozinho.
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
Dim conexao As New MySqlConnection([Ô]server=localhost;User Id=root;password=1234;Persist Security Info=True;database=bd;Convert Zero Datetime=True[Ô])
Dim DataSet1 As New DataSet
If e.KeyCode = Keys.Enter Then
Dim sql As String = [Ô]SELECT * FROM produto where cod_barras=[ô][Ô] & TextBox1.Text & [Ô][ô][Ô]
Dim da As New MySqlDataAdapter(sql, conexao)
conexao.Open()
da.Fill(DataSet1, [Ô]mrs[Ô])
Label2.DataBindings.Clear()
Label7.DataBindings.Clear()
Label2.DataBindings.Add([Ô]text[Ô], DataSet1, [Ô]bd.nome[Ô])
Label7.DataBindings.Add([Ô]text[Ô], DataSet1, [Ô]bd.preco_venda[Ô])
TextBox1.Clear()
conexao.Close()
End If
End Sub
Dede Já Agradeço
Boa Tarde
Dim conexao As XXXXXXConnection
Dim Sql As String
conexao = New XXXXXConnection([Ô]XXXXXXXXXX[Ô])
conexao.Open()
Sql = [Ô]Intrucao[Ô]
Dim da As New XXXXXDataAdapter(Sql, conexao)
Dim ds As New DataSet
ds = New DataSet()
da.Fill(ds)
label2.text = ds.Tables(0).Rows(0).Item([Ô]coluna[Ô]).ToString
conexão.close()
veja se entende a sequencia........
Faça seu login para responder