Ziehen Spaltennamen in Excel aus SQL Abfrage

Ich bin mit Excel zu ziehen Daten aus einer SQL-db. Ich benutzt den code aus einem anderen, SO Frage, und es funktioniert gut. Jetzt will ich ziehen in den Spaltennamen aus einer Tabelle neben der eigentlichen Tabelle. Ich habe herausgefunden, dass ich konnte die Namen verwenden Für Jede fld-Schleife. Aber es ist immer noch die Frage, bevölkern Sie Sie horizontal in einer Zeile im Excel die Anzahl der Spalten ändern kann - also dachte ich, ich bräuchte eine weitere For-each-Schleife auch oder etwas ähnliches.

Sub GetDataFromADO()

'Declare variables'
    Set objMyConn = New ADODB.Connection
    Set objMyCmd = New ADODB.Command
    Set objMyRecordset = New ADODB.Recordset

'Open Connection'
    objMyConn.ConnectionString = "Provider=SQLOLEDB;Data Source=localhost;User ID=abc;Password=abc;"
    objMyConn.Open

'Set and Excecute SQL Command'
    Set objMyCmd.ActiveConnection = objMyConn
    objMyCmd.CommandText = "select * from myTable"
    objMyCmd.CommandType = adCmdText
    objMyCmd.Execute

'Loop Names'
    ' WHAT TO DO HERE????'

'Open Recordset'
    Set objMyRecordset.ActiveConnection = objMyConn
    objMyRecordset.Open objMyCmd

'Copy Data to Excel'
    ActiveSheet.Range("A1").CopyFromRecordset (objMyRecordset)

End Sub

Willst du nicht die Header, gefüttert mit den Daten? Die Daten beginnen in A1, aber Sie scheinen zu haben, den header-Bereich zu A4.
ja du hast Recht - schlecht kopieren und einfügen auf meinem Teil.

InformationsquelleAutor firedrawndagger | 2010-11-16

20

Meine üblichen code ist sehr ähnlich:
```
For intColIndex = 0 To objMyRecordset.Fields.Count - 1 
    Range("A4").Offset(0, intColIndex).Value = objMyRecordset.Fields(intColIndex).Name
Next
```
- Ich mag die "Kurzatmigkeit" der Lösung. Ich habe gerade erweitert es ein bisschen um die Header zu Fett.
- Ich bin ratlos das fehlen einer Lösung, die nicht resort, um eine Schleife.
InformationsquelleAutor dendarii

Ok, so habe ich es herausgefunden, nachdem 4 versuche, hier der code für die Schleife.

 'Loop'
 Dim FieldRange As Range
 Set FieldRange = Range("A4")
 Set TableColumns = Range("A4:H4")
 x = 1

 Range("A4").Select

 For Each fld in objMyRecordset.Fields
      ActiveCell.Value = fld.Name
      ActiveCell.Offset(0, x).Select
      x = x + 1 'tick iterator
 Next

 ActiveSheet.Range("A5").CopyFromRecordset objMyRecordset
 Range("A4").Select

Sie brauchen nicht zu wählen Sie die Zelle so etwas wie Range("A4").OffSet(0, x).value = fld.Name

InformationsquelleAutor firedrawndagger

Machen es super einfach, so etwas wie dies (mit Tabelle1 und recordset-r)

    For i = 0 To r.Fields.Count - 1
        Sheet1.Cells(1, i + 1) = r.Fields(i).Name
    Next i

InformationsquelleAutor protoculture

3

Können Sie einfach die "x" - variable auf 0 und dann so etwas machen:
```
x = 0

For Each Field In RS.Fields 'RS being my Recordset variable
    Range("A3").Offset(0, x).Value = Field.Name
    x = x + 1
Next Field
```
Und das macht es ein bisschen leichter zu Lesen... 🙂
- Ist dies nicht beantworten DAO statt ADO?
InformationsquelleAutor Tony Diaz

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.