ADODB.Connection
02.11.2021 17:47:31
Dom
in meinem Code führe ich zwei Subs hintereinander aus Sub: CS und Sub: CP.
Für die Connection.Open habe ich eine Public Const DB deklariert.
Meine Frage: Kann ich eine Public Konstante für die Query = "SELECT * FROM [HIER eine Konstante ?] deklarieren ?
und
Kann ich die beiden Subs zusammenfassen ?
''Varibale für den Pfad (hier Pfad ändern)
Public Const DB As String = "C:\Users\d01\OneDrive-T\Cfile\Datenbank.xlsm"
Sub CS()
'Zuerst unter Extras\Verweise\MS ActiveX Data Objects 6.1 Libary aktivieren
'Variablen deklarieren
Dim Connection As New ADODB.Connection
Dim Query As String
Dim rs As New ADODB.Recordset
Dim arr As Variant
'Connection herstellen
Connection.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ= " & DB & " ;HDR=Yes';"
''Query definieren und ausführen SQL Anweisung
Query = "SELECT * FROM [Tabelle2$] WHERE Process = 'CS'" Wichtig !!! From[Name des Worksheets der Datenbank Mappe]
rs.Open Query, Connection
'Daten ins Tabellenblatt laden
Worksheets("Auszug").Select
Range("A" & LetzteZeileAdvanced(1) + 1).CopyFromRecordset rs
Cells.EntireColumn.AutoFit
Connection.Close
End Sub
Sub CP()
'Variablen deklarieren
Dim Connection As New ADODB.Connection
Dim Query As String
Dim rs As New ADODB.Recordset
Dim arr As Variant
'Connection herstellen
Connection.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & DB & ";HDR=Yes';"
'Query definieren und ausführen
Query = "SELECT * FROM [Tabelle2$] WHERE Process = 'CP'"
rs.Open Query, Connection
'Daten ins Tabellenblatt laden
Worksheets("Auszug").Select
Range("A" & LetzteZeileAdvanced(1) + 1).value = ("Manage (CP)")
Range("A" & LetzteZeileAdvanced(1) + 1).CopyFromRecordset rs
Cells.EntireColumn.AutoFit
Connection.Close
End Sub