habe bei folgendem Code Probleme:
Sub q_andon(last_data)
Worksheets("Daten").Activate
Cells.Select
Selection.ClearContents
schichtnr = Worksheets("Bericht").Cells(4, 3)
datum = Worksheets("Bericht").Cells(3, 3)
d = Day(datum)
If d < 10 Then
d = "0" & d
End If
m = Month(datum)
If m < 10 Then
m = "0" & m
End If
y = Year(datum)
datum = d & "/" & m & "/" & y
conn_string = "ODBC;DSN=xxx_DB;;UID=xxxxx;PWD=xxxxx;APP=Microsoft® Query;"
With ActiveSheet.QueryTables.Add(Connection:=conn_string, Destination:=Range("A1"))
.Sql = Array("SELECT Generation_Time, alarm_id, Generation_Date, ShiftNr, duration FROM BSREPORT.dbo.V_QA_SPS V_QA_SPS WHERE Generation_Date=" & datum & " AND ShiftNr=" & schichtnr)
.FieldNames = True
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = False
.SaveData = True
End With
End Sub
Nachdem ich das SQL angepasst habe, bekomme ich nach dem Start immer die Fehlermeldung "Laufzeitfehler 1004, allgemeiner ODBC Fehler" und wenn ich auf "Testen" klicke ist die Zeile ".Refresh BackgroundQuery:=False" gelb hinterlegt.
Wo kann denn da der Fehler liegen?
Gruss,
Jens