COMBOBOX + LABEL
Pessoal boa tarde,
Estou desenvolvendo um pequeno aplicativo para controle de vendas, mas estou tendo problemas com o seguinte:
Tenho um form(pedidos com conexão ADO), onde tenho as informações para finalizar o pedido, porém tenho um combobox nesse form, que carrega as informações da tabela produto nesse combo, quando selecionar um item desse combo eu gostaria que o valor desse item seja mostrado em uma label!
Valeu!!!!
Estou desenvolvendo um pequeno aplicativo para controle de vendas, mas estou tendo problemas com o seguinte:
Tenho um form(pedidos com conexão ADO), onde tenho as informações para finalizar o pedido, porém tenho um combobox nesse form, que carrega as informações da tabela produto nesse combo, quando selecionar um item desse combo eu gostaria que o valor desse item seja mostrado em uma label!
Valeu!!!!
mostra tuas variaveis para de como está tua tabela produtos.
Coquito, valeu a atenção, consegui resolver o problema!
Segue a solução:
#Code
Dim rs As ADODB.Recordset
Dim conexao As New ADODB.Connection
Dim strsSQL As String
Dim strconexao As String
Set rs = New ADODB.Recordset
Set conexao = New ADODB.Connection
strconexao = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\joliveira\Desktop\Controle de Produtos\clientes.mdb;Persist Security Info=False[Ô]
strsSQL = [Ô]select preco from produto where nome=[ô][Ô] & cboitem.Text & [Ô][ô][Ô]
rs.Open strsSQL, strconexao
If Not rs.EOF Then
lblvalor.Caption = rs.Fields([Ô]preco[Ô])
End If
rs.Close
Set rs = Nothing
Segue a solução:
#Code
Dim rs As ADODB.Recordset
Dim conexao As New ADODB.Connection
Dim strsSQL As String
Dim strconexao As String
Set rs = New ADODB.Recordset
Set conexao = New ADODB.Connection
strconexao = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\joliveira\Desktop\Controle de Produtos\clientes.mdb;Persist Security Info=False[Ô]
strsSQL = [Ô]select preco from produto where nome=[ô][Ô] & cboitem.Text & [Ô][ô][Ô]
rs.Open strsSQL, strconexao
If Not rs.EOF Then
lblvalor.Caption = rs.Fields([Ô]preco[Ô])
End If
rs.Close
Set rs = Nothing
Faça seu login para responder