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

debliu

[Resolvido] Mostrar campos numa combobox [ACCESS]

7 mensagens neste tópico

oi pessoal

é assim, tenho uma base de dados em Access chamada "escola", dentro dessa base de dados tenho uma tabela chamada "10A" e essa tabela tem um campo que se chama "nome"...

queria mostrar o nome de todos os alunos na combobox, acham que me podem ajudar? já isso feito em SqlServer no blog do Jpaulino mas nao consegui traduzir...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Olá,

Mas o exemplo que tenho no blog é em Access e não em SQL !!!

http://vbtuga.blogspot.com/2008/10/vbnet-utilizando-o-controlo-combobox.html

Mostra lá as tuas dúvidas e diz o que não está a fazer.

agora as duvidas que tenho são adaptar a tua base de dados à minha...

porque tens lá cenas que nao percebo...

será que podes substituir com os dados que dei lá em cima e postar aqui? se faz favor

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

agora as duvidas que tenho são adaptar a tua base de dados à minha...

porque tens lá cenas que nao percebo...

será que podes substituir com os dados que dei lá em cima e postar aqui? se faz favor

Se dizeres o que não percebes, talvés seja mais fácil eu explicar.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

da.SelectCommand.Parameters.Add("activo", OleDbType.Boolean).Value = True

da.SelectCommand.Parameters.Add("vendedor", OleDbType.VarChar).Value = "Jorge Paulino"

nao percebo isto...

como adapto???

______________________________________

With  Me.ComboBox1

                    .DisplayMember = "vendedor"

                    .ValueMember = "id"

                    .DataSource = ds.Tables(0).DefaultView

                    ' Definições para autocomplete

                    .DropDownStyle = ComboBoxStyle.DropDown

                    .AutoCompleteMode = AutoCompleteMode.Suggest

                    .AutoCompleteSource = AutoCompleteSource.ListItems

                End With

daqui nao percebo a parte a negrito

________________________________________

  Dim dr As DataRow

                dr = ds.Tables(0).NewRow

                dr.Item("id") = 0

                dr.Item("vendedor") = "Lista Vendedores"

                ds.Tables(0).Rows.InsertAt(dr, 0)

  tambem nao sei como adapto isto...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

da.SelectCommand.Parameters.Add("activo", OleDbType.Boolean).Value = True

da.SelectCommand.Parameters.Add("vendedor", OleDbType.VarChar).Value = "Jorge Paulino"

nao percebo isto...

como adapto???

Isto é a definição de parâmetros, ou seja, no comando que é executado à base de dados são definidos dois parâmetros através do pontos de interrogação:

Dim SQL As String = "SELECT * FROM Vendedores WHERE activo = ? AND vendedor <> ?"

Depois cá em baixo dizes que esses parâmetros são True e o Nome. O resultado ficaria:

Dim SQL As String = "SELECT * FROM Vendedores WHERE activo = True AND vendedor <> 'Jorge Paulino'"

Mas existem várias vantagens na utilização de parametros e se leres bem no blog encontras algumas referências.

With  Me.ComboBox1

                    .DisplayMember = "vendedor"

                    .ValueMember = "id"

                    .DataSource = ds.Tables(0).DefaultView

                    ' Definições para autocomplete

                    .DropDownStyle = ComboBoxStyle.DropDown

                    .AutoCompleteMode = AutoCompleteMode.Suggest

                    .AutoCompleteSource = AutoCompleteSource.ListItems

                End With

daqui nao percebo a parte a negrito

Numa combobox, ou numa listbox, podes definir um campo visível e um campo com um valor. Ou seja, tu podes ter uma tabela com os campos "ID" e "Nome" e dizes que na combobox vês o campo "Nome" e guardas no valor o "ID". Assim, sempre que seleccionas um nome, podes saber o ID desse utilizados.

  Dim dr As DataRow

                dr = ds.Tables(0).NewRow

                dr.Item("id") = 0

                dr.Item("vendedor") = "Lista Vendedores"

                ds.Tables(0).Rows.InsertAt(dr, 0)

  tambem nao sei como adapto isto...

Isto é para inserir um campo, no inicio da combobox, com a informação "Lista de Vendedores". Depois em baixo tens os vendedores para seleccionar.

No teu caso pode nem ser preciso ... defines Me.ComboBox1.SelectedIndex = -1 e aparece a combo sem selecção.

Se não expliquei alguma coisa bem ou ainda tens dúvidas diz!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

hm, ja consegui, obrigado,

agora necessito de apagar o valor escolhido na combobox... como posso fazer isso???  :hmm:

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