Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

j.mendes24

Preencher Combo [Resolvido]

Mensagens Recomendadas

j.mendes24

bem pessoal tenho aqui uma duvida.

Como é que preencho uma combobox com os valores de uma tabela de uma base de dados criada em mysql.

:wallbash:

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
j.mendes24

eu tenho este codigo.

Dim mysql As String = "SELECT ModeloCodMar FROM tabmodelos"
        Dim connection As New MySqlConnection(myconnectionstring)
        Dim command As New MySqlCommand(mysql, connection)

        connection.Open()

        Dim reader As MySqlDataReader = command.ExecuteReader

        While reader.Read()
            ModeloCodMar = reader.GetString(0)
            cbModMarca.Items.Add(ModeloCodMar)
        End While

mas este codigo não dá. alguma sugestão?  😡

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
j.mendes24

ja consegui.

Dim myCommand As New MySqlCommand
        Dim myAdapter As New MySqlDataAdapter
        Dim myData As New DataTable
        Dim mySQL As String = "SELECT * FROM tabmarcas"
        Dim conn As MySqlConnection
        conn = New MySqlConnection
        conn.ConnectionString = (myconnectionstring)


        Try
            conn.Open()
            Try
                myCommand.Connection = conn
                myCommand.CommandText = mySQL
                myAdapter.SelectCommand = myCommand
                myAdapter.Fill(myData)

                With cbModMarca
                    .DataSource = myData
                    .DisplayMember = "Marca"
                    .ValueMember = "Marca"
                    .SelectedIndex = 0
                End With

            Catch myerro As MySqlException
                MsgBox("Erro de leitura na Base de dados : " & myerro.Message)
            End Try
            conn.Close()
        Catch myerro As MySqlException
            MessageBox.Show("Erro ao conectar com a Base de dados : " & myerro.Message)
        Finally
            conn.Dispose()
        End Try

Partilhar esta mensagem


Ligação 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

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.