Daten fehlen
24.02.2004 15:16:26
TG
Versuche grade von einem SQL Server aus einer Datenbank einige Daten per Query zu ziehen und diese filtern zu lassen. Leider gibt es immer den Fehler, dass die Daten noch nicht vorhanden sind, wenn ich den Filter ansetze. Allerdings funktioniert der Code, wenn ich ihn im Debug-Modus durchspiele. Besteht die Möglichkeit, dass im Debug-Modus die Zeitscheiben gewechselt werden oder woran könnte es liegen bzw. wie kann man dieses Problem umgehen?
'
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=Server_SQL" _
, Destination:=Range("A1"))
.CommandText = Array("SELECT * FROM [Server];")
.FieldNames = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.RefreshOnFileOpen = False
.SaveData = True
.Refresh BackgroundQuery = False
End With
'
Columns("A:O").Select
Selection.AutoFilter
Zum Verständnis habe ich den Quelltext mal aufgelistet...