Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Typen unverträglichkeit beim auslesen aus Access per VBA |
14.06.2015 08:55:53 |
Piecha |
|
|
|
14.06.2015 10:52:34 |
Gast30197 |
|
|
|
20.06.2015 11:48:07 |
Piecha |
|
|
Von:
Piecha |
Datum:
14.06.2015 08:55:53 |
Views:
1553 |
Rating:
|
Antwort:
|
Thema:
Typen unverträglichkeit beim auslesen aus Access per VBA |
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
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Typen unverträglichkeit beim auslesen aus Access per VBA |
14.06.2015 08:55:53 |
Piecha |
|
|
|
14.06.2015 10:52:34 |
Gast30197 |
|
|
|
20.06.2015 11:48:07 |
Piecha |
|
|