RESULTADO DA CONSULTA NO TEXT BOX
Pessoal,
eu montei uma consulta em uma list box, mas estou com dificuldades para colocar a mesma consulta(é claro que com where) em uma textBox.
Alguém poderia me ajudar ?
Dim dr As DataRow
Dim drNovaRow As DataRow
Dim strSQL As String = [Ô]Select * From gn_pessoas[Ô]
Dim da As New OleDbDataAdapter(strSQL, oDB)
Dim ds As New DataSet
da.Fill(ds, [Ô]gn_pessoas[Ô])
Dim dt As New DataTable
dt.Columns.Add([Ô]Fantasia[Ô], GetType(System.String))
For Each Me.dr In ds.Tables([Ô]gn_pessoas[Ô]).Rows()
drNovaRow = dt.NewRow()
drNovaRow([Ô]Fantasia[Ô]) = dr([Ô]Fantasia[Ô])
dt.Rows.Add(drNovaRow)
Next
txt_cliente.DropDownStyle = ComboBoxStyle.DropDownList
With txt_cliente
.DataSource = dt
.DisplayMember = [Ô]Fantasia[Ô]
.ValueMember = [Ô]Fantasia[Ô]
.SelectedIndex = -1
End With
eu montei uma consulta em uma list box, mas estou com dificuldades para colocar a mesma consulta(é claro que com where) em uma textBox.
Alguém poderia me ajudar ?
Dim dr As DataRow
Dim drNovaRow As DataRow
Dim strSQL As String = [Ô]Select * From gn_pessoas[Ô]
Dim da As New OleDbDataAdapter(strSQL, oDB)
Dim ds As New DataSet
da.Fill(ds, [Ô]gn_pessoas[Ô])
Dim dt As New DataTable
dt.Columns.Add([Ô]Fantasia[Ô], GetType(System.String))
For Each Me.dr In ds.Tables([Ô]gn_pessoas[Ô]).Rows()
drNovaRow = dt.NewRow()
drNovaRow([Ô]Fantasia[Ô]) = dr([Ô]Fantasia[Ô])
dt.Rows.Add(drNovaRow)
Next
txt_cliente.DropDownStyle = ComboBoxStyle.DropDownList
With txt_cliente
.DataSource = dt
.DisplayMember = [Ô]Fantasia[Ô]
.ValueMember = [Ô]Fantasia[Ô]
.SelectedIndex = -1
End With
Qual a informação que deseja apresentar no TEXTBOX?
Dê um exemplo prático para que todos entendam.
Dê um exemplo prático para que todos entendam.
Vamos lá ..
ao selecionar o cliente na combobox (não list como eu havia escrito), quero que o endereço seja preenhido em uma text box.
A tabela gn_pessoas possui o campos Fantasia, e endereço.
ao selecionar o cliente na combobox (não list como eu havia escrito), quero que o endereço seja preenhido em uma text box.
A tabela gn_pessoas possui o campos Fantasia, e endereço.
Primeiro chame o método que carrega os dados no DataSet, depois carregue o Combo:
Me.cboCombo.ValueMember = [Ô]gnPessoa_ID[Ô] [ô]-------------- ID [ô]ID da tabela gnPessoa
Me.cboCombo.DisplayMember = [Ô]gnPessoa_Nome[Ô] [ô]------------- Nome da Pessoa
Me.cboCombo.DataSource = ds.Tables([Ô]gn_pessoas[Ô])
Depois no evento do Combo SelectedIndexChanged, faça:
For each dtr as datarow in ds.Tables([Ô]gnPessoas[Ô])
If dtr.Item([Ô]gnPessoa_ID[Ô]) = cboCombo.SelectedValue then
Me.txtEndereco.text = dtrItem([Ô]endereco[Ô])
end If
Next
Claro que vc deve trocar os nomes q eu coloquei no exemplo pelos nomes dos campos de sua tabela...
Faça tb os devidos tratamentos para caso nao seja encontrado o endereço...hehehe
espero ter ajudado...
abç
Thiago
Me.cboCombo.ValueMember = [Ô]gnPessoa_ID[Ô] [ô]-------------- ID [ô]ID da tabela gnPessoa
Me.cboCombo.DisplayMember = [Ô]gnPessoa_Nome[Ô] [ô]------------- Nome da Pessoa
Me.cboCombo.DataSource = ds.Tables([Ô]gn_pessoas[Ô])
Depois no evento do Combo SelectedIndexChanged, faça:
For each dtr as datarow in ds.Tables([Ô]gnPessoas[Ô])
If dtr.Item([Ô]gnPessoa_ID[Ô]) = cboCombo.SelectedValue then
Me.txtEndereco.text = dtrItem([Ô]endereco[Ô])
end If
Next
Claro que vc deve trocar os nomes q eu coloquei no exemplo pelos nomes dos campos de sua tabela...
Faça tb os devidos tratamentos para caso nao seja encontrado o endereço...hehehe
espero ter ajudado...
abç
Thiago
Tudo funcionando !!!
Valeu Pela Ajuda !
Valeu Pela Ajuda !
Citação::
Tudo funcionando !!!
Valeu Pela Ajuda !
Problema resolvido, ENCERRE o tópico.
Tópico encerrado , respostas não são mais permitidas