• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

esquima

[.Net] Combobox com datareader

10 mensagens neste tópico

combobox com datareader vb.net!??!?!

--------------------------------------------------------------------------------

Boa tarde sou iniciante em vb.net, tou a carregar um combobox com um datareader e dentro da minha base de dados tenho 2 campos com designaçao e id.. consigo apanhar a descriçao mas nao o id

Dim sSql AsString
Dim oDRproj As OleDbDataReader
sSql = "SELECT designacao,cod_projecto FROM Projecto"
oDRproj = abreConexao(sSql)
oDRproj.Read()
ComboBox1.Items.Add(oDRproj("descricao"))
oDRproj.close()

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Vou ser simpatico. ;)

 
   Dim SQLA1 As New SqlClient.SqlDataAdapter("select * from familias", SQL)

        Dim dataset1 As New DataSet
        Dim table1 As New DataTable
        Dim colum1 As New DataColumn
        Dim rows1 As DataRow
        SQLA1.Fill(dataset1, "familias")


        For Each table1 In dataset1.Tables
            For Each rows1 In table1.Rows
                fam_Add_art_cmbbox.Items.Add(rows1("descrição"))
                id_fam_Add_art_cmbbox.Items.Add(rows1("id_familia"))
            Next
        Next

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Talvez assim

Dim sSql AsString
Dim oDRproj As OleDbDataReader
sSql = "SELECT designacao,cod_projecto FROM Projecto"
oDRproj = abreConexao(sSql)

While oDRproj.Read()
ComboBox1.Items.Add(oDRproj("descricao"))
End While
oDRproj.close()

Edit: o Gooden foi mais rápido e talvez esteja mais correcto eu apenas te dei Guidelies

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

gooden...mas antes tens de criar a ligaçao a bd certo??

Vou ser simpatico. ;)

 
  Dim SQLA1 As New SqlClient.SqlDataAdapter("select * from familias", SQL)

        Dim dataset1 As New DataSet
        Dim table1 As New DataTable
        Dim colum1 As New DataColumn
        Dim rows1 As DataRow
        SQLA1.Fill(dataset1, "familias")


        For Each table1 In dataset1.Tables
            For Each rows1 In table1.Rows
                fam_Add_art_cmbbox.Items.Add(rows1("descrição"))
                id_fam_Add_art_cmbbox.Items.Add(rows1("id_familia"))
            Next
        Next

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

sim ;)

ta aqui um exmplo:

dim connStr = "server=127.0.0.1\SQLEXPRESS;database=abcd;Uid=user;pwd=pass"                
Public SQL As New SqlClient.SqlConnection()
SQL.ConnectionString = connStr
  Dim SQLA As New SqlClient.SqlDataAdapter("select * from marcas", SQL)

        Dim dataset As New DataSet
        Dim table As New DataTable
        Dim colum As New DataColumn
        Dim rows As DataRow

        SQLA.Fill(dataset, "marcas")


        For Each table In dataset.Tables
            For Each rows In table.Rows
                marca_Add_art_cmbbox.Items.Add(rows("descricao"))
            Next
        Next

mais algo? :(

connections strings em :

www.connectionstrings.com

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

gooden ja conseguiii obrigado...diz me so uma coisa

tou a listar os campos da tabela projectos em textbox e consigo....

tenho uma tabela com os estados dos projectos que ta associado a tabela do projecto

listo tb numa text box a descricao do estado do projecto...

queria saber se era possivel utilizar a combobox como textbox e aparecer so aquela descricao de estado referente a esse projecto..

depois qdo carrega-se no botao para inserir novos projectos, ou o botaor para alterar descricao de estados para esse projecto, a combobox ficava disponivel com todos as descriçoes de estados...

eu tenho isto a funcionar...mas e com uma text box, e com uma combo separados...

sim ;)

ta aqui um exmplo:

dim connStr = "server=127.0.0.1\SQLEXPRESS;database=abcd;Uid=user;pwd=pass"                
Public SQL As New SqlClient.SqlConnection()
SQL.ConnectionString = connStr
  Dim SQLA As New SqlClient.SqlDataAdapter("select * from marcas", SQL)

        Dim dataset As New DataSet
        Dim table As New DataTable
        Dim colum As New DataColumn
        Dim rows As DataRow

        SQLA.Fill(dataset, "marcas")


        For Each table In dataset.Tables
            For Each rows In table.Rows
                marca_Add_art_cmbbox.Items.Add(rows("descricao"))
            Next
        Next

mais algo? :(

connections strings em :

www.connectionstrings.com

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Eu percebi ele é que se explicou um bocadinho mal, ele quer que na Combobox onde vai aparecer o "Estado" fique tipo disabled, e só fique enabled quando se quiser modificar o estado +/- isto que ele pretende

Acho que com isto lhe respondi, Combobox1.Enable = True ou False conforme a situação....

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

lolol..desculpem se me expliquei mal....so queria saber se uma combobox da para fazer o papel de uma textbox...

sSql = "SELECT * FROM projecto,estado  WHERE projecto.cod_estado=estado.cod_estado and cod_projecto=" & sSelectedProject

        oDRproj = abreConexao(sSql)

        oDRproj.Read()

        TextProj1.Text = oDRproj.Item("designacao")

        TextProj2.Text = oDRproj.Item("responsavel_proj")

        TextProj3.Text = oDRproj.Item("datainicio")

        TextProj4.Text = oDRproj.Item("datafim")

        textProj5.text= oDR.proj.item("estado")

o que eu queria e que em vez da text5 ..queria uma combo que me fizesse exactamente o que ta a fazer a textbox..depois qdo carregar nos botoes inserir ou alterar..que ela limpe o que ta la e que fique disponiveis os estados todos para alterar ou inserir

Espero que me percebam agora...so começei a aprender isto a 5 dias talvez o que peça n se pode fazer lolol

mto obrigado pela vossa atençao

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora