USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  ComboBox com BD em Access!
Bruno
não registrado
Postada em 25/07/2007 15:49 hs   
Boa Tarde Galera,

Como fazer para carregar uma Tabela em um COMBOBOX "EX: Fornecedores"

Obrigado!!!
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 25/07/2007 20:22 hs            
Boa noite Bruno, blz?
 
Caso não seja cadastrado, por favor cadastra-se, é rápido e não tem custo nenhum falows ? :)
 
Em relação à sua pergunta temos 2 dicas do site:
 
 
Ou vc pode inserir um Activex. Vá no menu "Project...Components" e marque o item "Microsoft DataList Controls 6.0 OLEDB". Depois vá no menu "Project...References" e marque o item  "Microsoft ActiveX Data Objects X.X Library" onde X.X é a versão e pode ser qualquer uma.
 
Insira o datacombo e no código coloque assim:
 
'SENDO DBC um controle datacombo
 
Dim CNN As ADODB.Connection
Dim RS As ADODB.Recordset
Private Sub Form_Load()
Set CNN = New ADODB.Connection
Set RS = New ADODB.Recordset
 
CNN.CursorLocation = adUseClient
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:     este.mdb"
RS.Open "tabela", CNN
 
Set DBC.RowSource = RS
DBC.ListField = "campo"
End Sub
     
Cardoso G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 26/07/2007 07:39 hs            
ghost nao consegui preenche um combo desse jeito ai nao, primeiro que nao achei a propriedade listfield, ai coloquei na datafield, ai nao da erro nenhum, mas tb ele nao preenche nada e o rs esta com 5 registros, estranho né? sabe me falar pq nao preenche o rs ?
   
Michel Morgado
SAO PAULO
SP - BRASIL
Postada em 26/07/2007 09:29 hs            
Cara eu faço assim - E funciona muito bem.
 
Dim rsCarrega as new adodb.recordset
 
sql = " select * from fornecedores "
 
rscarrega.open sql, (nomedaconexãocomoaccess)
 
If rscarrega.eof > 0 Then
moveMin
   Do while
      rscarrega.eof = false
      combo1.additem rscarrega!(nomedocampoquequisercarregar)
      rscarrega.movenext
   Loop
End if
 
    Set rscarrega = nothing ( Pra tirar o recordset da memória)
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 26/07/2007 14:09 hs            
Cardoso G, vc está usando um DataCombo? O exemplo que passei é para DataCombo? Se está qual a versão?
     
Bruno
não registrado
Postada em 26/07/2007 15:22 hs   
Vc deve estar com um combobox....vc deve colocar um DataCombo!
 
Ou vc pode inserir um Activex. Vá no menu "Project...Components" e marque o item "Microsoft DataList Controls 6.0 OLEDB". Depois vá no menu "Project...References" e marque o item  "Microsoft ActiveX Data Objects X.X Library" onde X.X é a versão e pode ser qualquer uma.
 
Obrigado a todos pela ajuda!!!!!
Abraço""""
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página