LISTAR NOME DE CAMPO NA DBCOMBO

USUARIO.EXCLUIDOS 10/03/2004 14:34:33
#14851
Como faço para listar os nomes dos campos de uma determinada tabela. Ex:
Tabela Clientes possue os seguintes campos: Nome, Endereco, Cidade, RG
pois então queria listar esses nomes (Nome,Endereco,Cidade,RG) dentro de um DBCombo.
Obrigado
USUARIO.EXCLUIDOS 10/03/2004 14:39:56
#14852 Resposta escolhida
Vc pode usar esse código: 



Private Sub CarregaCombo() 
    Set rsCombo = New ADODB.Recordset 
    rsCombo.Open "Select * from " & strTabela, CN2, adOpenKeyset, adLockOptimistic, adCmdText 
    With cmbConsulta 
        .Clear 
        For X = 0 To rsCombo.Fields.Count - 1 
            .AddItem rsCombo(X).Name, X 
        Next 
    End With 
    Set rsCombo = Nothing 
    cmbConsulta.ListIndex = 0 

    If cmbConsulta.Text = "ID" Then 
        cmbConsulta.ListIndex = 1 
    Else 
        cmbConsulta.ListIndex = 0 
    End If 
End Sub


Tópico encerrado , respostas não são mais permitidas
Voltar