PREENCHER COMBOBOX COM VB8

BRUNOJUL 31/08/2011 13:09:52
#382935
Olá

podem ajudar preciso preencher um combobox , preenchia desta forma no VB6 e agora preciso utilizar o VB8 .

str = [Ô]select *FROM TBL_COBRANCA ORDER BY NOME_AT[Ô]
rs.Open(str, con)

i = 1
Do While Not rs.EOF
Me.cmb_cobranca.Items(i) = rs.Fields(1)
rs.MoveNext()
i = i + 1
Loop
rs.Close()

esta apresentando um erro informando que 1 não é um parametro valido para index .

grato
ALTAIR148 31/08/2011 18:17:59
#382993
Boa noite,

Tenta assim colega:
Você carrega sua Combobox normal e depois adiciona o camando abaixo que ele vai pegar o primeiro item.

Dim i As Integer

        For i = 0 To ComboBox1.Items.Count - 1

            ComboBox1.SelectedIndex = i
            Exit For

        Next





Ah pequena correção. Acho que vc quis dizer VS 2008 e não vb8, correto?

Até mais.
ALTAIR148 31/08/2011 18:24:20
#382995 Resposta escolhida
Agora fiquei na dúvida se é isso mesmo que vc quer, caso queira apenas carregar a combobox verifique esse tópico.

http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=370704&varWorld=

Até mais.
Tópico encerrado , respostas não são mais permitidas
Voltar