Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1660to1664
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SQL Select * from mit Spaltenüberschriften

SQL Select * from mit Spaltenüberschriften
17.12.2018 11:17:28
Lx177
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Greife auf die...
17.12.2018 11:25:40
Case
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
AW: Greife auf die...
17.12.2018 14:43:37
Lx177
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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige