CARREGAR DADOS POR TEXTBOX

MHDSERAFS 17/09/2011 02:44:10
#384528

Galera, bom dia!

estou usando este codigo para buscar no banco a informaçao e traze-la no textbox

Try
If con.State = ConnectionState.Closed Then con.Close()
con.Open()
Dim cmd As New OleDbCommand([Ô]select * from servicos [ô][Ô], con)
Dim drdr As OleDbDataReader
drdr = cmd.ExecuteReader
drdr.Read()

If ServicoComboBox.Text = [Ô]REPOSIÇÃO DE AULA de curso teórico para 1ª habilitação[Ô] Then
TextBox3.Focus()
If TextBox3.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Informar a quantidade de aulas a repor[Ô])
Else
If TextBox3.Text = [Ô]1[Ô] Then
TextBox4.Text = drdr.Item([Ô]valor[Ô])
[ô]TextBox4.Text = [Ô]R$ 12,00[Ô]
TextBox4.Text = Format(CSng(TextBox4.Text), [Ô]R$ 0.00[Ô])
ElseIf TextBox3.Text = [Ô]2[Ô] Then
TextBox4.Text = drdr.Item([Ô]valor[Ô]) * 2
TextBox4.Text = Format(CSng(TextBox4.Text), [Ô]R$ 0.00[Ô])
[ô]TextBox4.Text = [Ô]R$ 24,00[Ô]
ElseIf TextBox3.Text = [Ô]3[Ô] Then
TextBox4.Text = drdr.Item([Ô]valor[Ô]) * 3
TextBox4.Text = Format(CSng(TextBox4.Text), [Ô]R$ 0.00[Ô])
[ô]TextBox4.Text = [Ô]R$ 36,00[Ô]
ElseIf TextBox3.Text = [Ô]4[Ô] Then
TextBox4.Text = drdr.Item([Ô]valor[Ô]) * 4
TextBox4.Text = Format(CSng(TextBox4.Text), [Ô]R$ 0.00[Ô])
[ô] TextBox4.Text = [Ô]R$ 48,00[Ô]
End If
End If
End If


cmd.Cancel()
con.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try

End Sub


até aqui legal funciona...

porem se eu tento adicionar umaoutra linha do banco , no textbox ele acaba trazendo a 1 informação

como tentei fazer :

Try
If con.State = ConnectionState.Closed Then con.Close()
con.Open()
Dim cmd As New OleDbCommand([Ô]select * from servicos [ô][Ô], con)
Dim drdr As OleDbDataReader
drdr = cmd.ExecuteReader
drdr.Read()

If ServicoComboBox.Text = [Ô]REPOSIÇÃO DE AULA de curso teórico para 1ª habilitação[Ô] Then
TextBox3.Focus()
If TextBox3.Text = [Ô][Ô] Then
MessageBox.Show([Ô]Informar a quantidade de aulas a repor[Ô])
Else
If TextBox3.Text = [Ô]1[Ô] Then
TextBox4.Text = drdr.Item([Ô]valor[Ô])
[ô]TextBox4.Text = [Ô]R$ 12,00[Ô]
TextBox4.Text = Format(CSng(TextBox4.Text), [Ô]R$ 0.00[Ô])
ElseIf TextBox3.Text = [Ô]2[Ô] Then
TextBox4.Text = drdr.Item([Ô]valor[Ô]) * 2
TextBox4.Text = Format(CSng(TextBox4.Text), [Ô]R$ 0.00[Ô])
[ô]TextBox4.Text = [Ô]R$ 24,00[Ô]
ElseIf TextBox3.Text = [Ô]3[Ô] Then
TextBox4.Text = drdr.Item([Ô]valor[Ô]) * 3
TextBox4.Text = Format(CSng(TextBox4.Text), [Ô]R$ 0.00[Ô])
[ô]TextBox4.Text = [Ô]R$ 36,00[Ô]
ElseIf TextBox3.Text = [Ô]4[Ô] Then
TextBox4.Text = drdr.Item([Ô]valor[Ô]) * 4
TextBox4.Text = Format(CSng(TextBox4.Text), [Ô]R$ 0.00[Ô])
[ô] TextBox4.Text = [Ô]R$ 48,00[Ô]
End If
End If
ElseIf ServicoComboBox.Text = [Ô]ministração de curso teórico para 1ª habilitação[Ô] Then
TextBox4.Text = drdr.Item([Ô]valor[Ô]) [ô]gostaria de buscar o valor 20
End If

cmd.Cancel()
con.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try

End Sub

como esta a tabela do banco

id_servico servico valor valor_desconto
1 REPOSIÇÃO DE AULA de curso teórico para 1ª habilitação 10 0
2 ministração de curso teórico para 1ª habilitação 20 15
3 ministração de curso teórico para RECICLAGEM EAD 30 0
4 ministração de PROVA DE RENOVAÇÃO 40 0

grato