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

Chamuanza

Erro ao preencher combobox

3 mensagens neste tópico

Oi pessoal

Lá dizia o meu pai "Quem não sabe é como quem não vê"  :hmm: e eu pouco sei de VB, por isso peço ajuda.

Voltei ao principio e tento preencher uma combobox mas dá-me um erro

Tenho uma combobox que é preenchida via tabela (funciona bem), quando saio dessa combobox estou a utilizar este código para preencher outra combobox que vai funcionar como subcategoria da primeira

Private Sub EncherSubCategoriaCombobox()

        Dim dAdapter As SqlDataAdapter
        Dim dvm As DataViewManager
        Dim dset As DataSet
        Dim conn As SqlConnection = Nothing


        Dim str As String = Trim(CategoriasComboBox.Text)
        Dim str1 As String = "."
        Dim strTotal As String = str & str1 & str



        Try
            'abre a conexão com o banco de dados
            conn = New SqlConnection(criaStringConexao)
            conn.Open()
       


            'Dim sqlStr As String = "SELECT * FROM Diversos"
            Dim sqlStr As String = "SELECT * FROM " & CategoriasComboBox.Text & ";"
            'Instancia um DataAdapter passando a instrucao SQL e a conexão
            dAdapter = New SqlDataAdapter(sqlStr, conn)

            'Instancia o dataset
            dset = New DataSet()

            'Obtem a Coleção que fornece o mapeamento mestre
            ' entre a tabela fonte e o datatable
            dAdapter.TableMappings.Add("Table", Convert.ToString(str))
            'dAdapter.TableMappings.Add("Table", "Diversos")



            'Usa um data adapter para preencher o dataset ou datable com
            ' os dados retornados da instrução
            dAdapter.Fill(dset)
            'Quando vinculamos um DataSet, a plataforma .NET automaticamente usa o
            'DataViewManager correspondente fornecido atraves da propriedade DataSet.DefaultViewManager
            dvm = dset.DefaultViewManager


            ComboBox2.DataSource = dvm
            'exibe a "tabela no ComboBox
            Me.ComboBox2.DisplayMember = strTotal
            Me.ComboBox2.ValueMember = strTotal  

[quote]Aqui dá o erro  "Cannot bind to the new display member. Parameter name: newDisplayMember" [/quote]


        Catch ex As SqlException
            MessageBox.Show(("Erro na conexão ..." + ex.Message))
        End Try

        ' fecha a conexão com o banco de dados
        conn.Close()



    End Sub

Tenho uma tabela com as Categorias, depois tenho varias tabelas com as subcategorias, cada registo de categoria corresponde a uma tabela de subactegoria.

Penso que o raciocinio está certo, mas poderá outra maneira mais simples de fazer isto

Alguemme dá uma ajuda?

Obrigado desde já

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Oi,

Será que não podes mostrar o código reescrito? Iria ajudar outros que têm o mesmo problema...

Obrigado

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