DUVIDA COM COMBOBOX RESOLVIDO
Pessoal
Agradeço antecipadamente quem puder ajudar.
Eu tenho um ComboBox onde eu trago o nome das cidades, quando eu seleciono um campo eu preciso carregar outra informação em um edit, ou seja uma informação que esta também na mesma tabela.
Ex: eu trago o nome e quero carregar a porcentagem que seria outro campo.
Estou fazendo isso:
Sub PreencheComboBox()
tabela = New ADODB.Recordset
tabela.Open([Ô]select distrito from cliente order by distrito[Ô], conecta)
da = New OleDbDataAdapter
ds = New DataSet
da.Fill(ds, tabela, [Ô] cliente [Ô])
frmTeste.ComboBox1.DataSource = ds.Tables([Ô]cliente [Ô])
frmTeste.ComboBox1.DisplayMember = [Ô]distrito[Ô]
frmTeste.ComboBox1.Refresh()
End Sub
Agradeço a ajuda
Agradeço antecipadamente quem puder ajudar.
Eu tenho um ComboBox onde eu trago o nome das cidades, quando eu seleciono um campo eu preciso carregar outra informação em um edit, ou seja uma informação que esta também na mesma tabela.
Ex: eu trago o nome e quero carregar a porcentagem que seria outro campo.
Estou fazendo isso:
Sub PreencheComboBox()
tabela = New ADODB.Recordset
tabela.Open([Ô]select distrito from cliente order by distrito[Ô], conecta)
da = New OleDbDataAdapter
ds = New DataSet
da.Fill(ds, tabela, [Ô] cliente [Ô])
frmTeste.ComboBox1.DataSource = ds.Tables([Ô]cliente [Ô])
frmTeste.ComboBox1.DisplayMember = [Ô]distrito[Ô]
frmTeste.ComboBox1.Refresh()
End Sub
Agradeço a ajuda
Sub PreencheComboBox()
tabela = New ADODB.Recordset
tabela.Open([Ô]select distrito, outrocampo from cliente order by distrito[Ô], conecta)
da = New OleDbDataAdapter
ds = New DataSet
da.Fill(ds, tabela, [Ô] cliente [Ô])
frmTeste.ComboBox1.DataSource = ds.Tables([Ô]cliente [Ô])
frmTeste.ComboBox1.DisplayMember = [Ô]distrito[Ô]
frmTeste.ComboBox1.ValueMember = [Ô]outrocampo[Ô]
frmTeste.ComboBox1.Refresh()
End Sub
para utilizar
frmTeste.ComboBox1.SelectedValue
tabela = New ADODB.Recordset
tabela.Open([Ô]select distrito, outrocampo from cliente order by distrito[Ô], conecta)
da = New OleDbDataAdapter
ds = New DataSet
da.Fill(ds, tabela, [Ô] cliente [Ô])
frmTeste.ComboBox1.DataSource = ds.Tables([Ô]cliente [Ô])
frmTeste.ComboBox1.DisplayMember = [Ô]distrito[Ô]
frmTeste.ComboBox1.ValueMember = [Ô]outrocampo[Ô]
frmTeste.ComboBox1.Refresh()
End Sub
para utilizar
frmTeste.ComboBox1.SelectedValue
Bom dia amigo
Fiz como falou mais não deu certo, veja se estou errando em algum coisa.
agradeço
Sub PreencheComboBox()
tabela = New ADODB.Recordset
tabela.Open([Ô]select nome, estado from Clientes order by nome[Ô], conecta)
da = New OleDbDataAdapter
ds = New DataSet
da.Fill(ds, tabela, [Ô]Clientes[Ô])
Form2.ComboBox1.DataSource = ds.Tables([Ô]Clientes[Ô])
Form2.ComboBox1.DisplayMember = [Ô]nome[Ô]
Form2.ComboBox1.ValueMember = [Ô]estado[Ô]
Form2.ComboBox1.Refresh()
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Label3.Text = ComboBox1.SelectedValue
End Sub
Fiz como falou mais não deu certo, veja se estou errando em algum coisa.
agradeço
Sub PreencheComboBox()
tabela = New ADODB.Recordset
tabela.Open([Ô]select nome, estado from Clientes order by nome[Ô], conecta)
da = New OleDbDataAdapter
ds = New DataSet
da.Fill(ds, tabela, [Ô]Clientes[Ô])
Form2.ComboBox1.DataSource = ds.Tables([Ô]Clientes[Ô])
Form2.ComboBox1.DisplayMember = [Ô]nome[Ô]
Form2.ComboBox1.ValueMember = [Ô]estado[Ô]
Form2.ComboBox1.Refresh()
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Label3.Text = ComboBox1.SelectedValue
End Sub
qual erro que deu ?
acho que pode ser aqui
Label3.Text = ComboBox1.SelectedValue
Label3.Text = ComboBox1.SelectedValue.ToString
acho que pode ser aqui
Label3.Text = ComboBox1.SelectedValue
Label3.Text = ComboBox1.SelectedValue.ToString
olha fiz este codigo aqui usa como exemplo que funciona direitinho , unica coisa e que carrego o data table manualmente
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PreencheComboBox()
TextBox1.Text = [Ô][Ô]
End Sub
Private Sub PreencheComboBox()
Dim dt As New DataTable
Dim col As New DataColumn
Dim recRow As DataRow
col.ColumnName = [Ô]nome[Ô]
col.DataType = GetType(String)
dt.Columns.Add(col)
col = New DataColumn
col.ColumnName = [Ô]estado[Ô]
col.DataType = GetType(String)
dt.Columns.Add(col)
recRow = dt.NewRow()
recRow([Ô]nome[Ô]) = [Ô]NOME1[Ô]
recRow([Ô]estado[Ô]) = [Ô]SP[Ô]
dt.Rows.Add(recRow)
recRow = dt.NewRow()
recRow([Ô]nome[Ô]) = [Ô]NOME2[Ô]
recRow([Ô]estado[Ô]) = [Ô]BA[Ô]
dt.Rows.Add(recRow)
recRow = dt.NewRow()
recRow([Ô]nome[Ô]) = [Ô]NOME1[Ô]
recRow([Ô]estado[Ô]) = [Ô]SC[Ô]
dt.Rows.Add(recRow)
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = [Ô]nome[Ô]
ComboBox1.ValueMember = [Ô]estado[Ô]
ComboBox1.Refresh()
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedIndex >= 0 Then
TextBox1.Text = ComboBox1.SelectedValue.ToString
End If
End Sub
End Class
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PreencheComboBox()
TextBox1.Text = [Ô][Ô]
End Sub
Private Sub PreencheComboBox()
Dim dt As New DataTable
Dim col As New DataColumn
Dim recRow As DataRow
col.ColumnName = [Ô]nome[Ô]
col.DataType = GetType(String)
dt.Columns.Add(col)
col = New DataColumn
col.ColumnName = [Ô]estado[Ô]
col.DataType = GetType(String)
dt.Columns.Add(col)
recRow = dt.NewRow()
recRow([Ô]nome[Ô]) = [Ô]NOME1[Ô]
recRow([Ô]estado[Ô]) = [Ô]SP[Ô]
dt.Rows.Add(recRow)
recRow = dt.NewRow()
recRow([Ô]nome[Ô]) = [Ô]NOME2[Ô]
recRow([Ô]estado[Ô]) = [Ô]BA[Ô]
dt.Rows.Add(recRow)
recRow = dt.NewRow()
recRow([Ô]nome[Ô]) = [Ô]NOME1[Ô]
recRow([Ô]estado[Ô]) = [Ô]SC[Ô]
dt.Rows.Add(recRow)
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = [Ô]nome[Ô]
ComboBox1.ValueMember = [Ô]estado[Ô]
ComboBox1.Refresh()
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedIndex >= 0 Then
TextBox1.Text = ComboBox1.SelectedValue.ToString
End If
End Sub
End Class
Amigo, agradeço sua ajuda
Mais o código que me mandou de exemplo estava incompleto, como falei estou iniciando o estudo em VB, então fui pesquisar e encontrei a resposta, o combobox já vem preenchido então neste evento eu tenho o que preciso.
Private Sub ComboBox1_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
Label3.Text = ComboBox1.SelectedValue.ToString()
End Sub
Agradeço mesmo assim o empenho em ajuda quem esta no inicio. Eu sempre ajudo como posso na linguagem que domino e procuro detalhar mais as respostas para ajudar quem quer aprender.
Mais o código que me mandou de exemplo estava incompleto, como falei estou iniciando o estudo em VB, então fui pesquisar e encontrei a resposta, o combobox já vem preenchido então neste evento eu tenho o que preciso.
Private Sub ComboBox1_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
Label3.Text = ComboBox1.SelectedValue.ToString()
End Sub
Agradeço mesmo assim o empenho em ajuda quem esta no inicio. Eu sempre ajudo como posso na linguagem que domino e procuro detalhar mais as respostas para ajudar quem quer aprender.
ITASOUZA logico que estava inclompleto pois e para você adpatar a sua realidade , porem este codigo funciona , pois fiz aqui e testei .. tanto que postei ele completo por ultimo ... como você disse e um exemplo.
Se resolveu então encerra o topico.
Se resolveu então encerra o topico.
Faça seu login para responder