COMBOBOX, COMO LER O CODIGO NO BD
Srs.
Estou com problema para ler o codigo no bd, em uma lista na combobox, já consegui autolistar do bd, porem quando seleciono nao le o codigo correspondente ao nome, e por consequencia nao posso ler os outros dados relacionados ao nome, tentei desta forma mas não funcionou:
Imports System.Data.OleDb
Public Class Form1
Dim strconexaoSQL As String = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\dados\cadastro.mdb[Ô]
[ô]define as variáveis objeto para conexão , dataadapter , dataset
Dim sqlconexao As New OleDbConnection(strconexaoSQL)
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô]define o comando SQL para selecionar o codigo o nome o cargo e o pais da tabela funcionarios
Dim strSQL = [Ô]SELECT codigo, empresa From empresa[Ô]
[ô]cria um novo daAdapter para a conexao
da = New OleDbDataAdapter(strSQL, sqlconexao)
[ô]preenche o dataset - ds
da.Fill(ds, [Ô]empresa[Ô])
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[ô]define uma tabela e referencia a primeira tabela que no caso é a tabela funcionarios
Dim dt As New DataTable
dt = ds.Tables([Ô]empresa[Ô])
[ô]define um objeto DataRow que representa um registro da tabela
Dim dr As DataRow
[ô] Preenche a combobox com os nomes dos funcionarios
For Each dr In dt.Rows()
ComboBox1.Items.Add(dr([Ô]empresa[Ô]))
Next
[ô]selecione o primeiro valor
ComboBox1.SelectedIndex = 0
End Sub
End Class
Aqui ainda nao carrega automaticamente a lista.
Quando fui ler o codigo correspondente nao funcionou
Alguem pode me ajudar??
Estou com problema para ler o codigo no bd, em uma lista na combobox, já consegui autolistar do bd, porem quando seleciono nao le o codigo correspondente ao nome, e por consequencia nao posso ler os outros dados relacionados ao nome, tentei desta forma mas não funcionou:
Imports System.Data.OleDb
Public Class Form1
Dim strconexaoSQL As String = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\dados\cadastro.mdb[Ô]
[ô]define as variáveis objeto para conexão , dataadapter , dataset
Dim sqlconexao As New OleDbConnection(strconexaoSQL)
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô]define o comando SQL para selecionar o codigo o nome o cargo e o pais da tabela funcionarios
Dim strSQL = [Ô]SELECT codigo, empresa From empresa[Ô]
[ô]cria um novo daAdapter para a conexao
da = New OleDbDataAdapter(strSQL, sqlconexao)
[ô]preenche o dataset - ds
da.Fill(ds, [Ô]empresa[Ô])
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[ô]define uma tabela e referencia a primeira tabela que no caso é a tabela funcionarios
Dim dt As New DataTable
dt = ds.Tables([Ô]empresa[Ô])
[ô]define um objeto DataRow que representa um registro da tabela
Dim dr As DataRow
[ô] Preenche a combobox com os nomes dos funcionarios
For Each dr In dt.Rows()
ComboBox1.Items.Add(dr([Ô]empresa[Ô]))
Next
[ô]selecione o primeiro valor
ComboBox1.SelectedIndex = 0
End Sub
End Class
Aqui ainda nao carrega automaticamente a lista.
Quando fui ler o codigo correspondente nao funcionou
Alguem pode me ajudar??
Macio se entendi vc não consegue acessar os outros Forms pelo menustrip se for isso é so colocar
form2.show()
ou
Form2.showDialog
agora em relação ao combobox o BD e sql ou access?
Você quer puxar os nomes do BD para o combobox?
form2.show()
ou
Form2.showDialog
agora em relação ao combobox o BD e sql ou access?
Você quer puxar os nomes do BD para o combobox?
Nao é isso
Assim, tenho uma tabela chamada empresa, la tenho varios dados (codigo, nome, endereço, etc)
Substitui a textbox, onde digitava o codigo para acessar os dados, pela combobox onde carrego todos os nomes da tabela empresa, ok.
Tenho a lista completa dos nomes da tabela empresa na combobox, porem quando seleciono um dos nomes listados, o programa nao esta [Ô]pegando[Ô] o codigo referente ao nome selecionado na combobox, para que possa resgatar os dados referentes ao nome.
Ou seja, em vez de digitar o codigo na textbox, quero que a combobox faca isso, selecionando na lista o nome desejado.
Assim, tenho uma tabela chamada empresa, la tenho varios dados (codigo, nome, endereço, etc)
Substitui a textbox, onde digitava o codigo para acessar os dados, pela combobox onde carrego todos os nomes da tabela empresa, ok.
Tenho a lista completa dos nomes da tabela empresa na combobox, porem quando seleciono um dos nomes listados, o programa nao esta [Ô]pegando[Ô] o codigo referente ao nome selecionado na combobox, para que possa resgatar os dados referentes ao nome.
Ou seja, em vez de digitar o codigo na textbox, quero que a combobox faca isso, selecionando na lista o nome desejado.
Tenta colocar no load do formulario
Me.SuatabelaTableAdapter.Fill(Me.SeuBancodedadosDataSet.Nomedatabela)
Me.SuatabelaTableAdapter.Fill(Me.SeuBancodedadosDataSet.Nomedatabela)
Desta forma nao funcionou.
Consegui ler o nome, porem para nomes grandes ele nao funciona, achei outra maneira, mas nao sei como fazer.
Colocar na combobox, na mesma linha o codigo e o nome, e fazer ler somente o codigo por exemplo:
1 Marcio
2 marcos
3 Rafael
onde, 1,2,3 sao codigos correspondentes aos nomes na tabela de dados
consegui colocar somente um ou outro , nao os dois juntos na mesma linha da combobox
Como fazer isso?
Meus codigos:
[ô] preenche o combo combobox
listcod.Text = [Ô][Ô]
listcod.Items.Clear()
listcod.BeginUpdate()
[ô] carrega o combo com os nomes
For Each tRow In tTbl.Rows
[Ô] Acho que aqui esta o problema, como carregar codigo e nome na mesma linha (listcod é o nome da combobox)[Ô]
listcod.Items.Add(tRow([Ô]codigo[Ô]).ToString)
[Ô]tentei:
listcod.Items.subItems.Add(tRow([Ô]codigo[Ô]).ToString)
[Ô]Mas nao funcionou[Ô]
Next
listcod.EndUpdate()
Consegui ler o nome, porem para nomes grandes ele nao funciona, achei outra maneira, mas nao sei como fazer.
Colocar na combobox, na mesma linha o codigo e o nome, e fazer ler somente o codigo por exemplo:
1 Marcio
2 marcos
3 Rafael
onde, 1,2,3 sao codigos correspondentes aos nomes na tabela de dados
consegui colocar somente um ou outro , nao os dois juntos na mesma linha da combobox
Como fazer isso?
Meus codigos:
[ô] preenche o combo combobox
listcod.Text = [Ô][Ô]
listcod.Items.Clear()
listcod.BeginUpdate()
[ô] carrega o combo com os nomes
For Each tRow In tTbl.Rows
[Ô] Acho que aqui esta o problema, como carregar codigo e nome na mesma linha (listcod é o nome da combobox)[Ô]
listcod.Items.Add(tRow([Ô]codigo[Ô]).ToString)
[Ô]tentei:
listcod.Items.subItems.Add(tRow([Ô]codigo[Ô]).ToString)
[Ô]Mas nao funcionou[Ô]
Next
listcod.EndUpdate()
NO fim das contas o que preciso é:
ler um bd access com nomes lista-los na combobox. Quando clicar no nome desejado capturar o codigo referente a este nome e coloca-lo em uma variavel.
ler um bd access com nomes lista-los na combobox. Quando clicar no nome desejado capturar o codigo referente a este nome e coloca-lo em uma variavel.
Tópico encerrado , respostas não são mais permitidas