Löschen

[C.A]

sieht ganz gut aus, aber im Hintergrund wird eine Unmenge an SQL-Traffic generiert, darum die Langsamkeit.

Das mit der Traffic habe ich mir auch gedacht aber sicher war ich mir nicht.

habt ihr eine Idee???

Du bindest doch vermutlich den Recordset an ein SQL-Statement. Du kannst doch mit einer "SQL-Execute"-Methode ein trockenes DELETE in Auftrag geben. Du musst halt nur Deinen Recordset und die Datenbasis ein wenig verstehen.

BTW - wie lautet das SQL-Statement zum Fuellen des Recordsets?

Das zum erstellen

SELECT *
FROM VIEW_EXCHANGE
WHERE (FADeaktiv = 'FF'
AND FDatumEdit > '"&s(0)&"'
OR ADatumEdit > '"&s(0)&"'
OR MDatumEdit > '"&s(0)&"'
OR FDatumNeu > '"&s(0)&"'
OR ADatumNeu > '"&s(0)&"'"

s(0) = ist die Variable wo drinnen steht wann das Skript zu letzten mal gestarrte wurde! Alles was drüber ist wird hochbeladen ist eine Monat vergangen wir ein Vollupdate gefahren

das ist zumm löschen
If Monat <> Month(Loeschen) Then
 'Volllöschung 20.12.2004
 sSQL="select * from """&strURL_Full&""""
 sSQL=sSQL & " WHERE "
 sSQL=sSQL & "(""http://schemas.microsoft.com/exchange/outlookmessageclass"" != 'IPM.Microsoft.FolderDesign.FormsDescription')"
 WScript.StdOut.WriteLine("Abfrage für die Volllöschung!")
Else
 'Teillöschung 20.12.2004
 sSQL="select * from """&strURL_Full&""""
 sSQL=sSQL & " WHERE "
 sSQL=sSQL & "(""http://schemas.microsoft.com/exchange/outlookmessageclass"" != 'IPM.Microsoft.FolderDesign.FormsDescription')"
 sSQL=sSQL & " AND ( "
 sSQL=sSQL & WHEREAID
 sSQL=sSQL & " ) "

WScript.StdOut.WriteLine("Abfrage für die Teillöschung!")
End If

Gruß

Corinna