ODBC-Import stürzt immer ab
18.02.2019 19:08:32
Dominik
ich versuche mit eine ODBC-Verbindung, Daten in Excel zu laden. Es funktioniert auch soweit super bis auf eine Sache. Ich lade momentan damit Aufträge von unseren Server. Die Aufträge haben einen Termin und dieses Datenfeld kann ich nicht abfragen. Hier bringt er immer allgemeinen ODBC-Fehler. Wenn ich aber Select * eingebe, läd er das Feld ohne Probleme.
Hat jemand eine Ahnung?
Mein ODBC-Code
With wksSheet.QueryTables.Add(Connection:=Array(Array("ODBC;DSN=AR System ODBC Data Source;" & _
"ARServer=" & strServer & ";ARServerPort=" & strPort & ";UID=" & strUser & ";PWD=" & strPW & ";ARAuthentication=;"), _
Array("ARDiaryDescend=1;ARUseUnderscores=1;ARNameReplace=1;SERVER=NotTheServer")), Destination:=rngRange)
.FieldNames = True 'SQL Feldbezeichnungen als Spaltenüberschriften
.CommandText = strSQL 'SQL Query
.Name = "Data_Import" 'SQL Query Name
.RowNumbers = False 'Zeilennummern hinzufügen
.FillAdjacentFormulas = False 'Formeln rechts der Abfragetabelle aktualisieren
.PreserveFormatting = True 'Formatierung der ersten fünf Zeilen für neue Datenzeilen übernehmen
.RefreshOnFileOpen = False 'Aktualisierung beim öffnen
.BackgroundQuery = False 'Abfrage im Hintergrund
.RefreshStyle = xlInsertEntireRows 'Art der Zeileneinfügung (xlOverwriteCells=überschreiben, xlInsertEntireRows=einfügen)
.SavePassword = True 'Passwort mit der Abfrage speichern
.SaveData = True 'Daten mit der Arbeitsmappe speichern
.AdjustColumnWidth = False 'Spaltenbreite automatisch anpassen
.RefreshPeriod = 0 'Minuten zwischen automatischen Aktualisierungen
.PreserveColumnInfo = True 'Sortier-, Filter- und Layoutinformationen einer Spalte bleiben erhalten
.Refresh BackgroundQuery:=False 'Steuerung nach Verbindungsaufbau an die Prozedur zurückgeben
End With
Grüße
Domi