Fórum Script Brasil > Carregar consulta em textboxs

Versão Completa: Carregar consulta em textboxs

Fórum Script Brasil > Programação & Desenvolvimento > .NET

Atanagildson

22/02/2010 - 10:40

Aê pessoal,

tô começando agora a programar em VB .Net e tô com uma dúvida beeeem básica.
Estou tentando carregar em campos textbox o resultado de uma consulta sql feita a partir do valor de um combobox.
Acontece que estou fazendo confusão com aquele monte de objetos de acesso a dados que existem no .Net - o que pra mim era simples no vb6 agora está se tornando uma tortura...
alguém poderia me mostrar um exemplo de código? Pelo menos de como carregar um dado no textbox.

Carregar no combo está funcionando

CODE

Private Sub carrega_combo()
        '
        myCommand.CommandText = "SELECT * FROM test.usuarios"
        myAdapter.SelectCommand = myCommand
        myAdapter.Fill(myData)
        dvData = New DataView(myData)
        dvData.Sort = "nome"
        '
        cmb_nomes.Items.Clear()
        cmb_nomes.DataSource = dvData
        cmb_nomes.DisplayMember = "nome"
        cmb_nomes.ValueMember = "cartao"
    End Sub

Aqui está a dúvida:

CODE

Private Sub procura()
        '
        If cmb_nomes.SelectedIndex = -1 Then Exit Sub
        myCommand.CommandText = "SELECT * FROM test.usuarios WHERE cartao = '" & cmb_nomes.SelectedValue & "'"
        '
        myAdapter.SelectCommand = myCommand
        myAdapter.Fill(myData)
        '
        'drData = myData.Rows.Item
        'txt_nome.Text = drData("nome")
    End Sub

Estou usando VB .Net 2005 Express e MySQL

Marcelo

Atanagildson

22/02/2010 - 15:38

Pelo jeito essa era tão fácil que ninguém quis responder...

Mas não tem problema, encontrei uma solução.
Pra quem interessar, segue abaixo como fica a procedure (supõe-se que a conexão já está aberta)

CODE

Private Sub procura()
        '
        If cmb_nomes.SelectedIndex = -1 Then Exit Sub
        '
        myCommand.CommandText = "SELECT * FROM test.usuarios WHERE cartao = " & cmb_nomes.SelectedValue.ToString
        '
        myReader = myCommand.ExecuteReader()
        '
        myReader.Read()
        '
        txt_nome.Text = myReader.Item("nome").ToString()
        txt_usuario.Text = myReader.Item("usuario").ToString()
        txt_nivel.Text = myReader.Item("nivel").ToString()
        txt_cartao.Text = myReader.Item("cartao").ToString()
        '
        myReader.Close()

    End Sub

Fallow

quintelab

24/02/2010 - 14:20

Atanagildson, seja bem vindo ao Fórum do ScriptBrasil, conheça nossas regras: Regras do Fórum

Você conseguiu selecionar seu problema no mesmo dia. Nem sempre terá alguém online para te responder de imediato.

Abraços...

Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.