Carregar consulta em textboxs

[Atanagildson]

Aê pessoal,

estou começando agora a programar em VB .Net e estou 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

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:

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]

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)

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]

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