SQL Select * from minkl. Spaltennamen
17.05.2019 09:57:15
Lx177
ich habe folgendes Problem.
Derzeit ziehe ich mittels einer ADODB.Connection Inhalte einer SQL-View in eine Excel-Datei.
mein code:
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
End Sub
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