Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Patuti

Problema com ComboBox

Recommended Posts

Eu tenho uma ComboBox que lista um campo de todos os registros de uma tabela.

 

O bloco de comandos que faz isso eh carregado no Form_Load da seguinte forma:

	Dim sql As String	Dim i As Integer		sql = "SELECT * FROM Rede"	Set rs2 = bd.OpenRecordset(sql)	For i = 0 To rs2.RecordCount - 1		cmbRede.AddItem rs2.Fields("Nome")		rs2.MoveNext	Next

A tabela Rede tem mais ou menos uns 4 ou 5 registros, todos com o campo "Nome" preenchidos corretamente.

 

Mas quando eu carrego o formulario ele soh mostra na ComboBox o primeiro nome do primeiro registro da tabela, pq ele nao mostra os outros?

Compartilhar este post


Link para o post
Compartilhar em outros sites

faltou incrementar o valor da variável "i" dentro do For:

For i = 0 To rs2.RecordCount - 1 cmbRede.AddItem rs2.Fields("Nome") rs2.MoveNext i=i+1 Next

ou você pode utilizar o While:

While rs2.eof=false cmbRede.AddItem rs2.Fields("Nome") rs2.MoveNextWend

Compartilhar este post


Link para o post
Compartilhar em outros sites

faltou incrementar o valor da variável "i" dentro do For:

Só pro cara ñ se confundir.Na estrutura de repetição for a variavel descrita nele já se 'auto-incrementa' segundo marcado no parametro step, se ele ñ for posto o default é 1.
for x=1 to 10 step 3next x
E a melhor opção e do while.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Na estrutura de repetição for a variavel descrita nele já se 'auto-incrementa' segundo marcado no parametro step, se ele ñ for posto o default é 1

everonada v essa minha resposta ae, desconsidere sobre o For.vlw

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bem lembrado, precisa do parametro Step, mas no caso do nosso amigo ele não colocou, por isso que ele precisa incremetar a variável:

[/code]

For i = 0 To rs2.RecordCount - 1

cmbRede.AddItem rs2.Fields("Nome")

rs2.MoveNext

Next

Tem duas formas:

i=i+1
ou

Next i

Compartilhar este post


Link para o post
Compartilhar em outros sites

Desconsidere o post anterior.

 

Bem lembrado, precisa do parametro Step, mas no caso do nosso amigo ele não colocou, por isso que ele precisa incremetar a variável:

For i = 0 To rs2.RecordCount - 1		cmbRede.AddItem rs2.Fields("Nome")		rs2.MoveNext	Next
Tem duas formas:

i=i+1
ou

Next i

Compartilhar este post


Link para o post
Compartilhar em outros sites

Não é necessário colocar i=i+1 mesmo que o paramêtro step esteja oculto o default é 1, mesmo que coloque somente next no fim ele auto-incrementa.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.