locked
SQL Contar Campos RRS feed

  • Pergunta

  • Olá Pessoal alguém sabe o código de contar quantos campos uma tabela possui? Não são os registros mais sim os Campos,

     

    Abraços,


    Baldini Fabio
    sexta-feira, 23 de julho de 2010 02:24

Respostas

  • Olá Baldini,

     

    se estiver no Excel, você pode usar algo assim:

    Sub ContaCampos(strTabela As String)
    Dim cnn As ADODB.Connection
    Dim strConn As String
    Dim cat As Object 'ADOX.Catalog
    
    On Error GoTo ErrHandler
    
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
    ThisWorkbook.Path & "\NWind.mdb"
    Set cnn = New ADODB.Connection
    cnn.Open strConn
    
    'Define o catálogo
    Set cat = CreateObject("ADOX.Catalog")
    cat.ActiveConnection = cnn
    
    MsgBox "Número de campos da tabela " & strTabela & ": " & cat.Tables(strTabela).Columns.Count
    
    ExitHere:
    Exit Sub
    
    ErrHandler:
    MsgBox Err.Description & vbCrLf & Err.Number & vbCrLf & Err.Source, vbCritical, "ContaCampos"
    Resume ExitHere
    
    End Sub
    
    

     

    No Access, pode ser simplesmente

    CurrentDB.TableDefs("TuaTabela").Fields.Count


    Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br
    • Marcado como Resposta Baldini terça-feira, 27 de julho de 2010 04:14
    sexta-feira, 23 de julho de 2010 13:35
    Moderador