COMBO COM BANCO DE DADOS DANDO PROBLEMA

USUARIO.EXCLUIDOS 14/07/2005 17:03:26
#94164
Olá para todos. Seguinte, estou tendo problemas para carregar a minha lista de codigos dentro de um combo. O que estou fazendo de errado?

Código.

Set mgc_valores = New ADODB.Recordset
mgc_valores.CursorLocation = adUseClient
mgc_valores.CursorType = adOpenStatic
mgc_valores.LockType = adLockBatchOptimistic
mgc_valores.Open "SELECT id as 'ID', codigo FROM mgc_valores ORDER BY codigo", conexao.conexao
    Do While Not mgc_valores.EOF
        Combo10(11).AddItem mgc_valores.Fields("codigo")
        mgc_valores.MoveNext
        Loop
        Combo10(11).Text = Combo10(11).List(0)


Obrigado
USUARIO.EXCLUIDOS 14/07/2005 17:28:10
#94166
Eu só coloquei uma parte do código. Os indíces estão assim pois ocrroe modificações, inclusões, etc.
USUARIO.EXCLUIDOS 14/07/2005 17:29:06
#94167
O erro acontece na linha

Combo10(11).AddItem mgc_valores.Fields("codigo")
JEAN.JEDSON 14/07/2005 17:56:55
#94172 Resposta escolhida
o código abaixo irá adicionar o valor do campo código ao combo10.

Set mgc_valores = New ADODB.Recordset
mgc_valores.CursorLocation = adUseClient
mgc_valores.CursorType = adOpenStatic
mgc_valores.LockType = adLockBatchOptimistic
mgc_valores.Open "SELECT id as 'ID', codigo FROM mgc_valores ORDER BY codigo", conexao.conexao
combo10.clear
Do While Not mgc_valores.EOF
Combo10.AddItem mgc_valores.Fields("codigo")
mgc_valores.MoveNext
Loop
Combo10.listindex=0
USUARIO.EXCLUIDOS 14/07/2005 18:32:21
#94185
vlw JEAN.
Tópico encerrado , respostas não são mais permitidas
Voltar