COMBOBOX E LABEL

BRUNOGOMES 16/10/2012 13:15:40
#412141
aee gente.. alguem consegue me ajudar... soh consigo usar esse codigo dentro de um button.. no evento da combobox n funciona... =/
OMAR2011 16/10/2012 13:43:29
#412145
Pegue seu formulário compacta onde tem estes códigos e adiciona no seu post para
poder verifica o que está acontecendo.

Simplesmente peguei seu código e fiz o teste e deu certo,porque o seu
não da certo.

Private Sub cmb_Servico_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_Servico.SelectedIndexChanged
Dim valorServico as string
Dim con As New MySqlConnection([Ô]server=localhost; user id=root; password=admin; database=workshopmanager[Ô])
Dim cmd As New MySqlCommand
Dim reader As MySqlDataReader
cmd = con.CreateCommand
con.Open()
With cmd
cmd.CommandType = CommandType.Text
cmd.CommandText = [Ô]select valor_Servico from servico where nome_Servico = @servico[Ô]
cmd.Parameters.Add([Ô]@servico[Ô], MySqlDbType.VarChar)
cmd.Parameters([Ô]@servico[Ô]).Value = cmb_Servico.SelectedValue
cmd.ExecuteNonQuery()
End With
reader = cmd.ExecuteReader
If (reader.Read()) Then
valorServico = reader([Ô]valor_Servico[Ô])
lbl_valortext.Text = valorServico
End If
reader.Close()
con.Close() End Sub
End Class

BRUNOGOMES 16/10/2012 14:30:26
#412151
Entao aqui o codigo.. igual o seu..
Private Sub cmb_Servico_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_Servico.SelectedIndexChanged
        Dim valorServico As String
        Dim con As New MySqlConnection([Ô]server=localhost; user id=root; password=admin; database=workshopmanager[Ô])
        Dim cmd As New MySqlCommand
        Dim reader As MySqlDataReader
        cmd = con.CreateCommand
        con.Open()
        With cmd
            cmd.CommandType = CommandType.Text
            cmd.CommandText = [Ô]SELECT valor_Servico FROM servico WHERE nome_Servico = @servico[Ô]
            cmd.Parameters.Add([Ô]@servico[Ô], MySqlDbType.VarChar)
            cmd.Parameters([Ô]@servico[Ô]).Value = cmb_Servico.SelectedValue
            cmd.ExecuteNonQuery()
        End With
        reader = cmd.ExecuteReader
        If (reader.Read()) Then
            valorServico = reader([Ô]valor_Servico[Ô])
            lbl_valortext.Text = valorServico
        End If
        reader.Close()
        con.Close()
    End Sub


e aqui para chamar para a combobox:
Dim con As New MySqlConnection([Ô]server=localhost; user id=root; password=admin; database=workshopmanager[Ô])
        Dim dados3 As New DataSet
        con.Open()
        Dim comando3 As String = [Ô]SELECT * FROM servico[Ô]
        Dim adaptador3 As New MySqlDataAdapter(comando3, con)
        adaptador3.Fill(dados3, [Ô]servico[Ô])
        With cmb_Servico
            .ValueMember = [Ô]cod_Servico[Ô]
            .DataSource = dados3.Tables(0)
            .DisplayMember = [Ô]nome_Servico[Ô]
        End With
        con.Close()


manda o seu codigo de como vc ta chamando pra combobox... vai q é isso..
OMAR2011 16/10/2012 20:56:24
#412172
Peguei código do famigerado Macoratti o seu e fiz uma salada.
Cara,deu certo aqui no meu teste.

Imports MySql.Data.MySqlClient
Public Class Form7

Private Sub Form7_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim con As New MySqlConnection([Ô]Server=localhost;Database=Bras2012; User=root;Password=12qw[Ô])
Dim dados3 As New DataSet
Dim comando3 As String = [Ô]SELECT * FROM servico[Ô]
Dim adaptador3 As New MySqlDataAdapter(comando3, con)
adaptador3.Fill(dados3, [Ô]servico[Ô])

Dim tRow As DataRow, tTbl As DataTable

dados3.AcceptChanges()
tTbl = dados3.Tables.Item(0)
dados3.Dispose()
[ô] preenche o combo combobox
cboAuto.Text = [Ô][Ô]
cboAuto.Items.Clear()
cboAuto.BeginUpdate()
cmb_Servico.Text = [Ô][Ô]
cmb_Servico.Items.Clear()
cmb_Servico.BeginUpdate()

[ô] carrega o combo com o nome dos produtos
For Each tRow In tTbl.Rows

cmb_Servico.Items.Add(tRow([Ô]Nome_servico[Ô]).ToString)
Next
cboAuto.EndUpdate()
cmb_Servico.EndUpdate()
con.Close()

End Sub

Private Sub cmb_Servico_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmb_Servico.SelectedIndexChanged
Dim valorServico As String

Dim con As New MySqlConnection([Ô]Server=localhost;Database=Bras2012; User=root;Password=12qw[Ô])
Dim cmd As New MySqlCommand
Dim reader As MySqlDataReader
cmd = con.CreateCommand
con.Open()
With cmd
cmd.CommandType = CommandType.Text
cmd.CommandText = [Ô]SELECT valor_Servico FROM servico WHERE nome_Servico = @Servico[Ô]
cmd.Parameters.Add([Ô]@servico[Ô], MySqlDbType.VarChar).Value = cmb_Servico.SelectedItem
cmd.ExecuteNonQuery()
End With
reader = cmd.ExecuteReader

If (reader.Read()) Then
valorServico = reader([Ô]valor_Servico[Ô])

lbl_valortext.Text = valorServico
End If

reader.Close()
con.Close()
End Sub
End Class

Inté
BRUNOGOMES 16/10/2012 23:00:28
#412178
Puts manoo! funcionou agora.. o valor esta aparecendo na label!!

MAS CARAA agora o INSERT nao quer funcionar -.- caramba... mexe em uma coisa.. atrapalha a outra =/

tava assim no insert:
.Parameters.Add([Ô]@codServico[Ô], MySqlDbType.VarChar)
    .Parameters([Ô]@codServico[Ô]).Value = cmb_Servico.SelectedValue

e estava dando esse erro: [Ô]Column [ô]cod_Servico[ô] cannot be null[Ô]

ai eu mudei para:
.Parameters([Ô]@codServico[Ô]).Value = cmb_Servico.SelectedItem

e da esse erro: [Ô]Incorrect integer value: [ô]Troca de Óleo[ô] for column [ô]cod_Servico[ô] at row 1[Ô]

ai mudei para:
.Parameters.Add([Ô]@codServico[Ô], MySqlDbType.Int32)

e da esse erro: [Ô]Input string was not in a correct format.[Ô]
Página 2 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar