Hallo!
Ich möchte eine Reihe von (Oracle) SQL-Abfragen über ein VBA-Makro laufen lassen. Nun habe ich folgendes Problem: Wenn ich die SQL-Abfragen für die Variablen einlesen möchte, werden nur die ersten 255 Zeichen je Abfrage gespeichert (lt. Überwachung)....
Hier mein Anfang:
---
Sub daten()
Dim arSQL(7) As Variant 'SQL Abfragen
Dim strTemp As String 'Temp Variable für die Kalenderwoche
Dim i, n, y As Integer
Dim intCWNext As Integer 'Kalenderwoche ohne CW nur als Ganzzahl
'1 - All FR's
arSQL(0) = "SELECT count(TO_CHAR (f.DETECTION_DATE, 'IW')), TO_CHAR (f.DETECTION_DATE, 'IW') FROM tref.fekat_faults f WHERE f.TECHN_PRIORITY ='17.04.2007' group by TO_CHAR (f.DETECTION_DATE, 'IW')"
'2 - All closed FR's
arSQL(1) = "SELECT count(TO_CHAR (f.DETECTION_DATE, 'IW')), TO_CHAR (f.DETECTION_DATE, 'IW') FROM tref.fekat_faults f WHERE f.TECHN_PRIORITY ='17.04.2007' group by TO_CHAR (f.DETECTION_DATE, 'IW')"
'3 - All closed FR's "error"
arSQL(2) = "SELECT count(TO_CHAR (f.DETECTION_DATE, 'IW')), TO_CHAR (f.DETECTION_DATE, 'IW') FROM tref.fekat_faults f WHERE f.TECHN_PRIORITY ='17.04." _
& "2007' and (f.RESULT = 'A' OR exists (select TASK_ID from tref.FEKAT_TASKS t where t.TASK_TYPE='COR'and t.RESULT = ('T' )and t.frnumber=f.frnumber) ) group by TO_CHAR (f.DETECTION_DATE, 'IW')"
----
usw. ...
Die ersten beiden Abfragen liest er noch ein, aber ab der Dritten gibt's Probleme - und die nächsten 5 Abfragen sind noch länger :-(
Ich würde mich über einen Tipp sehr freuen!
Gruß
Michael