LISTAR OS NOMES DOS CAMPOS DE UMA TABELA

USUARIO.EXCLUIDOS 09/03/2004 14:00:13
#14691
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 09/03/2004 15:06:41
#14710 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