VB6 combobox com ADODC

[sadjuan]

Oi galera, tou com um pequeno probleminha, eu quero que um ADODC traga os dados de um campo de Banco de dados para um COMBOBOX e tambem quero que quando seleccionar o COMBOBOX para seleccionar um dado ele traga para as outras textbox outros dados relacionados aos mesmos dado que foi seleccionado na COMBOBOX.

Agradecia desde de já galera.

[gabrieldb]

Cara eu passei pelo mesmo problema, dá uma olhada nesse tópico.

http://scriptbrasil.com.br/forum/index.php?showtopic=140479

[sadjuan]

ia, já dei uma olhada, mais eu quero com conexao atraves de um ADODC. como fazer ixo?

[kuroi]

você pode fazer a mesma coisa com o adodc.

ou se o adodc já ta carregado com todos os dados, você da um MoveFirst e depois um Find pra encontrar o codigo q você precisa.

[sadjuan]

oi amigo kuroi, eu não sei como vou fazer o combo ir ao banco de dados buscar informação atraves de um ADODC, se poderes me ajudar com algum codigo, fico grato.

Agradeço desde já

[sadjuan]

OI Amigo Kuroi, agradecia que me desses uma ajuda plzzzzzz!

[sadjuan]

Oi, mas uma vez, estou a pedir uma ajudinha. não se esquecam de mim...........

[Marco Canhoto]

Oi, eu faço dessa forma:

Para carregar os dados de um banco na combobox:

While Not ADODC.EOF

COMBOBOX.AddItem ADODC!campo_da_tabela

Wend

Para carregar dados relacionados, no evento click:

ADODC.Open "select campo_relacionado from tabela where campo_da_combobox = '" & conteudo_carregado_na_combobox & "'"

If Not ADODC.EOF Then

campo_a_ser_preenchido.Text = ADODC.Fields.Item(0).Value & ""

End If

Lembrando que (0) é a ordem do campo na tabela. Exmplo, o segundo campo da tabela será o (1), o terceiro campo será o (2), etc.... Mas você pode começar com (1) também que funciona.

o ".Value & "" é para aceitar, caso o campo esteja com valor nulo.

Eu uso conexão via código, então apenas substitui pelo adodc, espero que funcione, haha!