Hallo zusammen,
ich versuche mich gerade das erste mal mit diesem Thema. Da ich keine Ahnung von SQL habe, zeichnete ich ein Makro auf, welches ich nun versuche, meinen Vorstellungen anzupassen.
Leider bekomme ich bei der Integration des"Where" Befehls eine Fehlermeldung Typen unverträglichkeit:, Laufzeitfehler 13.
Woran kann es liegen?
Danke
Piecha
Hier der Code:
Dim SQLVerbindung As String
Dim SQLEinstellungen As String
Dim SQLSpalten As String
Dim SQLQuelle As String
Dim SQLAuswahl As String
Dim SQLSortierung As String
Const QuellPfad = "\\Server\Bde\"
Const QuellDatei = "test.mdb"
Const Prodplan = "`Betriebsaufträge Tabelle`"
Const BAEnd = "`Auftrag erledigt`"
Const BANr = "AuftragsNr_PW"
Sub HoleDaten()
SQLVerbindung = "ODBC;DSN=MS Access Database;DBQ=" & QuellPfad & QuellDatei & ";DefaultDir=" & QuellPfad & ";DriverId=281;F"
'SQLVerbindung = "ODBC;DSN=MS Access Database;DBQ=" & QuellPfad & QuellDatei & ";DefaultDir=" & QuellPfad & ";DriverId=281;F"
'--Einstellungen-----------------------------------------------------
SQLEinstellungen = "IL=MS Access;MaxBufferSize=2048;PageTimeout=50;"
'SQLEinstellungen = "IL=MS Access;MaxBufferSize=2048;PageTimeout=5;"
'--Spalten-----------------------------------------------------------
SQLSpalten = "SELECT " & Prodplan & "." & BANr & ", " & Prodplan & "." & BAEnd & Chr(13) & "" & Chr(10)
'SQLSpalten = "SELECT " & Prodplan & "." & BANr & ", " & Prodplan & "." & BAEnd & Chr(13) & "" & Chr(10)
'--Quelle------------------------------------------------------------
SQLQuelle = "FROM `" & QuellPfad & QuellDatei & "`." & Prodplan & " " & Prodplan & Chr(13) & "" & Chr(10)
'SQLQuelle = "FROM `" & QuellPfad & QuellDatei & "`." & Prodplan & " " & Prodplan & Chr(13) & "" & Chr(10)
'--Auswahl-----------------------------------------------------------
SQLAuswahl = "WHERE (`Betriebsaufträge Tabelle`.`Auftrag erledigt`=1)" & Chr(13) & "" & Chr(10)
'SQLAuswahl = ""
'--Sortierung--------------------------------------------------------
SQLSortierung = "ORDER BY `Betriebsaufträge Tabelle`.AuftragsNr_PW"
'SQLSortierung = ""
'--------------------------------------------------------------------
Sheets("Import_Access").Select
Cells.Select
Selection.ClearContents
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array(SQLVerbindung), Array(SQLEinstellungen)), Destination:=Range("$A$1")).QueryTable
.CommandText = Array(SQLSpalten & SQLQuelle & SQLAuswahl & SQLSortierung)
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Tabelle_Abfrage_von_MS_Access_Database"
.Refresh BackgroundQuery:=False
End With
End Sub
|