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

rfid

Preencher combobox VB2008

4 mensagens neste tópico

Viva,

No VB6.0 faço, para preencher dados numa combobox:

do until rsServico.EOF

    cboUtilizador.Additem rsServico!Nome

    rsServico.movenext

loop

No VB2008, como é que se faz?

Deixo o que já fiz em VB2008:

Private Sub Ler_Utilizadores()

        StatusBar1.Text = ("Ligar ao servidor....")

        cmd.CommandText = "SELECT * FROM Utilizadores"

        Try

            rsServico = cmd.ExecuteReader

            rsServico.Read()

            cboUtilizadores.Items.Add(rsServico.Item("NomeUtilizador"))

            txtSenha.Text = rsServico.Item(0)

            rsServico.Close()

        Catch ex As Exception

            MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Falha na Ligação.")

        End Try

        cboUtilizadores.Focus()

    End Sub

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

1) Usa o GeSHi, se não dificultas a vida a tentar entender o código.

2) Não consigo ver onde está o problema, o código parece-me bem e a funcionar.

3) Porquê 2008? Isso ainda está em beta, não te recomendo para trabalhos finais. Apenas para testes e brincadeiras.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Private Sub Ler_Utilizadores()
        StatusBar1.Text = ("Ligar ao servidor....")
        cmd.CommandText = "SELECT * FROM Utilizadores"
        Try
            rsServico = cmd.ExecuteReader
            while rsServico.Read()
            cboUtilizadores.Items.Add(rsServico.Item("NomeUtilizador"))
            txtSenha.Text = rsServico.Item(0)
            end while
            rsServico.Close()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Falha na Ligação.")
        End Try

        cboUtilizadores.Focus()
    End Sub

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