Jump to content
Fórum Script Brasil
  • 0

Método Additem


Guest --nelsonmgj --
 Share

Question

Guest --nelsonmgj --
explica melhor. o metodo AddItem do combo não serve pra você??

Amigo,

A bem pouco tempo, tive de assimilar a demanda de idealizar um sistema de controle aqui na empresa onde trabalho.

Enxerguei que poderia estar fazendo algo em VB mas, apesar de conhecer um pouco de VBA, me falta conhecimento em VB.

Como poderia estar utilizando o AddItem, pois eu gostaria de estar somente visualizando os dados de uma coluna de um banco de dados construído via Visual Data Manager numa combo, e em outra combo, além de visualizar eu gostaria de estar adicionando dados também.

As apostilas que aparecem na Net são muito superficiais em relação a trabalhar com banco de dados.

Desde já agradeço,

Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0

Amigos,

Como poderia estar utilizando o AddItem, para visualizar os dados de uma coluna de um banco de dados construído via Visual Data Manager numa combo, e em outra combo, além de visualizar eu gostaria de estar adicionando dados também. Pois estou fazendo algo semelhante a isso:

Set Banc = OpenDatabase("I:\Projetos\Projeto DRZ\DRZ_VB\Ábaco.mdb")

Set Tabel1 = Banc.OpenRecordset("Con_Trab", dbOpenSnapshot)

Set Tabel2 = Banc.OpenRecordset("EPI", dbOpenSnapshot)

Combo1.AddItem Tabel1!Condi

Combo2.AddItem Tabel2!EPI

Nos dois casos a combo só exibe uma única linha, mas foram inseridos vários itens no banco de dados.

As apostilas que aparecem na Net são muito superficiais em relação a trabalhar com banco de dados.

Desde já agradeço,

Link to comment
Share on other sites

  • 0

faca um while e leia linha por linha

Set Banc = OpenDatabase("I:\Projetos\Projeto DRZ\DRZ_VB\Ábaco.mdb")
Set Tabel1 = Banc.OpenRecordset("Con_Trab", dbOpenSnapshot)
Set Tabel2 = Banc.OpenRecordset("EPI", dbOpenSnapshot)
Do While Not Tabel1.EOF
    Combo1.AddItem Tabel1!Condi
    Tabel1.MoveNext
Loop
Do While Not Tabel2.EOF
    Combo2.AddItem Tabel2!EPI
    Tabel2.MoveNext
Loop[/code]

Link to comment
Share on other sites

  • 0
faca um while e leia linha por linha

Set Banc = OpenDatabase("I:\Projetos\Projeto DRZ\DRZ_VB\Ábaco.mdb")
Set Tabel1 = Banc.OpenRecordset("Con_Trab", dbOpenSnapshot)
Set Tabel2 = Banc.OpenRecordset("EPI", dbOpenSnapshot)
Do While Not Tabel1.EOF
    Combo1.AddItem Tabel1!Condi
    Tabel1.MoveNext
Loop
Do While Not Tabel2.EOF
    Combo2.AddItem Tabel2!EPI
    Tabel2.MoveNext
Loop

Obrigado!!!

Link to comment
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.

 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.5k
×
×
  • Create New...