Microsoft Excel

Herbers Excel/VBA-Archiv

SQL Select * from mit Spaltenüberschriften


Betrifft: SQL Select * from mit Spaltenüberschriften
von: Lx177
Geschrieben am: 17.12.2018 11:17:28

Hallo Zusammen,

ich habe folgendes Problem.
Derzeit ziehe ich mittels einer ADODB.Connection Inhalte einer SQL-View in eine Excel-Datei.
mein SQL-String: sqlstr= select * from "myTable"

Das Problem ist, dass nur die Tabelleninhalte gezogen werden. Ich benötige zusätzlich noch die dazugehörigen Spaltenüberschriften.

Wie kann ich das erreichen?

Danke und viele Grüße
lx177

  

Betrifft: Greife auf die...
von: Case
Geschrieben am: 17.12.2018 11:25:40

Hallo, :-)

... "Fields-Auflistung" zu: ;-)

For intCount = 0 To objRSet.Fields.Count - 1
    .Cells(1, intCount + 1).Value = objRSet.Fields(intCount).Name
Next intCount
"objRSet" ist das RecordSet.

Servus
Case



  

Betrifft: AW: Greife auf die...
von: Lx177
Geschrieben am: 17.12.2018 14:43:37

Hi Case,

ich stehe leider irgendwie auf dem Schlauch.
Wie genau kann ich das einbinden?

Mein code sieht folgendermaßen aus:

Private Sub Download(control As IRibbonControl)
Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
Dim sqlstr As String


sqlstr = "SELECT * from myTable"
Call connectDatabase

rs.Open sqlstr, DBCONT

ThisWorkbook.Sheets(3).Range("B13").CopyFromRecordset rs
rs.Close
Call closeDatabase


MsgBox "Data was downloaded successfully."

End Sub