CARREGAR RESULTADO DA CONSULTA EM UM TEXTBOX
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...
Alguem poderia me mostrar um exemplo de código? Pelo menos de como carregar um dado no textbox.
Carregar no combo está funcionando
Citação:
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:
Citação:
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
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)
Citação:
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