Sélectionnez les données de la requête, sans les noms de colonnes

Je suis à l'aide de SQL en VBA pour remplir une feuille de calcul, mais quand je fais cela je reçois les données, y compris les en-têtes de colonne. Je suis en train d'essayer de trouver l'écart de tirer juste l'information et de noms de colonne.

Par exemple,

id name job
0  Tom  Repair
1  Bob  Tech

au lieu de cela, je veux,

0  Tom  Repair
1  Bob  Tech
Comment êtes-vous à l'aide de SQL/exécution de la requête?
+1 sur Alex à la question: il y a peut-être une demi-douzaine de façons que vous pourriez faire cela...
Un autre +1, par exemple, la Excel de commande CopyFromRecordset ne retourne pas de colonne (champ) les noms.

OriginalL'auteur JJRhythm | 2011-06-15

  1. 2

    Je ne suis pas sûr que vous ne pourrez pas en-têtes de colonne... Note: ceci est mysql, pas sûr au sujet de votre sgbd, mais c'est le plus proche que j'ai obtenu: 

    SELECT id as "", name as "", job as "" FROM table

    L'OP n'est pas l'utilisation de MySQL, et vous ne pouvez pas le faire en VBA. Aussi, ne pas fournir de vide de la colonne des noms? Il n'a pas vraiment se débarrasser d'eux...je ne vois pas en quoi c'est une réponse pertinente.

    OriginalL'auteur AllisonC

  2. 9

    Vous pouvez exécuter le client mysql avec l'option --skip-colonne-noms

    OriginalL'auteur nassao

  3. 1

    Comprendre que vous n'avez pas indiqué de MySQL, à mon travail, nous utilisons les suivantes (MySQL) requête à l'aide de la ADODB de référence dans excel. Je suis le poster que vous pouvez être en mesure de l'adapter à votre usage:

    Sub AdaptMeToYourUse()
  ' Connection variables
      Dim conn As ADODB.Connection
      Dim server_name As String
      Dim database_name As String
      Dim user_id As String
      Dim password As String
      Dim port_number As String

  ' Establish connection to the database
      server_name = "myserverName" ' 127.0.0.1 if running from a locally
      database_name = "myDBname" ' Enter your database name here
      user_id = "LoginName" ' enter your user ID here
      password = "PWforLoginName" ' Enter your password here
      port_number = "1234"

      Set conn = New ADODB.Connection
      conn.Open "DRIVER={MySQL ODBC 3.51 Driver}" _
        & ";SERVER=" & server_name _
        & ";PORT=" & port_number _
        & ";DATABASE=" & database_name _
        & ";UID=" & user_id _
        & ";PWD=" & password _
        & ";OPTION=16427" ' Option 16427 = Convert LongLong to Int

      Set rs = New ADODB.Recordset

      sqlstr = "SELECT  count(" & SomeField & ") FROM " _
             & SomeTable & " WHERE " & SomeField & " = '" & var2Compare2SomeField & "' "
      rs.Open sqlstr, conn, adOpenStatic, adLockReadOnly, adCmdText 'set appropriate options for you

      Worksheets("SomeWB").Range(SomeRNG).CopyFromRecordset rs

End Sub

    OriginalL'auteur Hari Seldon