Alguem Pode Me Ajudar?

[Haru-Glory]

e ai,beleza??

bom, é o seguinte.....eu tenho um form associado a um bd ado.... com um combobox para o nome e um text pra descrição....

como eu faço pra quando o programa roda, já aparecer todos os nomes na lista do combo....e como eu associo cada nome da lista para aparecer a descrição no text??

vlw........

[PiGmEu]

opa...

você pode fazer assim:

do while not tabela.eof
      combobox1.additem tabela("campo')
     tabela.movenext
loop

 

e para colocar num text

text1.text = tabela("Campo")

[Haru-Glory]

tabela q você diz é o nome da minha table? ou o nome do DATA???

[Graymalkin]

tabela q você diz é o nome da minha table? ou o nome do DATA???

Nem um, nem outro. É o nome do Recordset, que no caso de você estar usando um ADODataControl é ADODataControl.Recordset.

Abraços,

Graymalkin

[Haru-Glory]

vwl......mas axo q não ta funcionando......é q eu quero por isso no Form_Load()

[Graymalkin]

Experimentou o código sem ser no Load?

Abraços,

Graymalkin

[Haru-Glory]

sim, ,sem ser no load funciona....

e que eu queria q o form inicia-se já´com todos os nomes da tabela no combo....mas td bem....

e se liga, como eu ponho pra que um nome q esteja na lista abra um campo de tabela???

[Graymalkin]

e se liga, como eu ponho pra que um nome q esteja na lista abra um campo de tabela???

Bem, "não me liguei"... por favor, tente explicar melhor.

Abraços,

Graymalkin

[Haru-Glory]

Assim

Eu tenho um nome de produto na list do combo.....

eu quero assim

quando eu clikar nesse nome q ta na list ele exibir a descriçao do produto q ta salvo no banco de dados....

mal ae.....não expliquei direito....

vlw

[Graymalkin]

Agora entendi. Bem o que você quer pode ser feito usando o método Find() para encontrar um registro. Por exemplo:

if not (rs.eof and rs.bof) then
  rs.movefirst
endif
rs.find "nome='" & cmbProduto.list(cmbProduto.listindex) & "'"
if not rs.eof then
  txtDescrição.text = rs.fields("descricao").value
endif

Onde "rs" é o Recordset, cmbProduto é a combo com os produtos e txtDescrição é a textbox onde deve aparecer a descrição; nome é o campo na tabela que tem o nome do produto e descrição é o campo que contém a descrição do produto.

Abraços,

Graymalkin

[Haru-Glory]

mas isso se aplica a um DBcombo??ou tem de mudar algo??

[Graymalkin]

Sim, desde que a DataCombo tenha as propriedades List e ListIndex. Não uso a DataCombo, portanto fiz o código acima tendo em mente uma ComboBox normal. Aliás, uma DataCombo não deveria ser preenchida automaticamente? (Caso contrário, qual seria a diferença entre ela e a combobox normal?) E afinal, você está usando DAO ou ADO??? DBCombo é do DAO, para o ADO é DataCombo.

Abraços,

Graymalkin

[Haru-Glory]

to usando a ado......bom, vlw cara.....brigadaum