SQL-Abfrage ADO mit Zeilenüberschriften
29.01.2021 13:48:12
Sven
ich habe diesen Code geerbt. Funktioniert und ab Zeile 4 bekomme ich die Datensätze.
Wie kann ich ihn ergänzen, damit in Zeile 3 die Spaltenüberschriften stehen?
Dim objConn As ADODB.Connection
Dim objRec As ADODB.Recordset
Dim strConnectionString As String
Dim i As Integer
strConnectionString = "Provider=MSDASQL.1;Driver=SQL Server;Server=" & strServer & "; _
Database=" & strDB & ";Trusted_Connection=Yes"
Set objConn = New ADODB.Connection
objConn.ConnectionString = strConnectionString
objConn.CommandTimeout = intTimeout
objConn.Open
Set objRec = New ADODB.Recordset
objRec.Open strSQL, objConn, adOpenStatic
With ThisWorkbook.Worksheets("Abfrageergebnis").Range("A4")
.CurrentRegion.Clear
.CopyFromRecordset objRec
End With
i = objRec.RecordCount
If i = 1 Then
MsgBox "Abfrage liefert 1 Zeile.", vbInformation
Else
MsgBox "Abfrage liefert " & i & " Zeilen.", vbInformation
End If
objConn.Close
Danke und Grüße