Amigos Saudações

 

Precido de ajuda para preencher um dbcombo com informaçoes de uma tabela via codigo, TENHO UM BANCO DE DADOS (BDADOS.mdb) UMA TABELA (UF) como faço para preencher o DBCOMBO  com o conteudo da tabela uf - via codigo.

 

Ate Mais

 

Veja esta função:

 

Public Sub PreencherLista(ByRef pLista As Control, pTabela As String, pCampoChave As String, pCampoTexto As String)
' Declaração do RecordSet e Instanciamento
Dim plRecordset As ADODB.Recordset
Set plRecordset = New ADODB.Recordset

On Error GoTo errLista

gSQL = "Select " & pCampoChave & ", " & pCampoTexto & " from " & pTabela & " order by " & pCampoTexto

plRecordset.Open gSQL, Conexão1, adOpenForwardOnly, adLockReadyOnly

   With pLista
      .Clear
      Do While Not plRecordset.EOF
         .AddItem plRecordset(1).Value
         .ItemData(.NewIndex) = plRecordset(0).Value
         plRecordset.MoveNext
      Loop
   End With

'Fechamento e Destruição do RecordSet
plRecordset.Close
Set plRecordset = Nothing
Exit Sub

errLista:
   Erro "preenchimento da lista"
   Exit Sub
End Sub

 

Falow...

faça o seguinte coloque eu um modulo esta função

 

Sub Carrega_uf(FORMU As Form)
axsql = "SELECT Campo AS A FROM Tabela"
Set MSS = New ADODB.Recordset
MSS.Open axsql, conexao
While Not MSS.EOF
FORMU.combo1.AddItem MSS("A")
MSS.MoveNext
Wend
End Sub

 

depos no seu form coloque no load

carraga_uf form1

 

falow um abraço

DBCombo??

Hummm... no caso acho melhor usar o DataCombo... q é uma versão mais recente do DBCombo

Adicione em seu projeto o Microsoft DataList Controls 6.0

Por código fica assim:

 

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Teste.mdb"
rs.CursorLocation = adUseClient
rs.Open "Select * from T", cnn, adOpenForwardOnly, adLockReadOnly

Set DataCombo1.RowSource = rs
DataCombo1.ListField = rs(0).Name

qq coisa é só postar

 

t+

nossa confundi db com cb..combobox  mals ai

Amigo

 

Usando DAO, eu adiciono um DataControl para fazer a conexão com o banco e uso o seguinte código:

 

do while data1.recordset.eof=false

       combo1.additem data1.recordset("uf")

       data1.recordset.movenext

loop