• 0
Sign in to follow this  
Haru-Glory

Alguem Pode Me Ajudar?

Question

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........

Share this post


Link to post
Share on other sites

12 answers to this question

Recommended Posts

  • 0

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")

Share this post


Link to post
Share on other sites
  • 0
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

Share this post


Link to post
Share on other sites
  • 0

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???

Share this post


Link to post
Share on other sites
  • 0
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

Share this post


Link to post
Share on other sites
  • 0

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

Share this post


Link to post
Share on other sites
  • 0

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

Share this post


Link to post
Share on other sites
  • 0

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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this