Auf Störung Goto- Err_Handler
Schwaches CNN als ADODB.Connection
Schwache blnInTrans, wie Boolesch
blnInTrans = falsch 'nicht in einer Verhandlung ab schon
CNN = CurrentProject.Connection
'…
cnn.BeginTrans ()
blnInTrans = ausrichten 'jetzt am Anfang von einer Verhandlung g
'Ihre Löschung hier tun
'Ihren Einsatz hier tun
cnn.CommitTrans ()
blnInTrans = falsche 'Verhandlungen abschlossen ohne Störung n
'…
Exit_Handler:
Unterseeboot herausnehmen
Err_Handler:
Wenn blnInTrans dann 'inmitten einer Verhandlung
cnn.RollbackTrans () 'Wiederherstellungsdaten zum VorVerhandlung Zustand
'Dieses wieder herstellt die Daten es, die durch Ihre LÖSCHUNG-Frage gelöscht
Beenden wenn
'weitere Störung, die hier verarbeitet
Zusammenfassung Exit_Handler
|