amstyles
Goto Top

SQL Statement Fehler Rückgabe in VBA

Hallo Foren User,

in einem SQL Statement lösche ich einen Datensatz aus einer Tabelle, die wiederum mit einer anderen verknüpft ist (Schlüssel).
Wenn dieser Eintrag nirgendwo referenziert ist, klappt das löschen ohne Probleme.
Jedoch wenn dieser auf eine andere Tabelle referenziert, dann müsste mir SQL einen Fehler zurückgeben.
Direkt auf dem SQL Server wird auch ein Fehler ausgegeben.

CurrentDb.Execute "DELETE FROM PRJVERWTSTADMIN_PRJV_PROJEKT WHERE PROJEKT = 'Projekt1"  
Kann man irgendwie mit OpenRecordset oder ähnlichem den SQL Fehler speichern?
Hierbei handelt es sich um Access 2007, VBA.

LG
AMStyles

Content-ID: 175449

Url: https://administrator.de/forum/sql-statement-fehler-rueckgabe-in-vba-175449.html

Ausgedruckt am: 23.12.2024 um 15:12 Uhr

83928
83928 28.10.2011 um 11:10:55 Uhr
Goto Top
Hi,
(Du schon wieder (; )

Die allgemeine Fehlerbehandlung mit dem Err-Objekt sollte doch ausreichen. Oder sehe ich hier was falsch?


On Error Resume Next
CurrentDb.Execute ("delete * from tabellle1")  
If Err.Number <> 0 Then MsgBox Err.Description, , Err.Number
On Error GoTo 0
(allgemeines Beispiel)
AMStyles
AMStyles 28.10.2011 um 11:21:03 Uhr
Goto Top
Hallo abaaba,

ich habe es gerade ausprobiert, jedoch ohne Erfolg.
Er springt einfach nicht in das If rein...

AMStyles
SlainteMhath
SlainteMhath 28.10.2011 um 11:32:01 Uhr
Goto Top
Moin,

versuchs mal hiermit

 If DBEngine.Errors.Count > 0 Then
        For i = 0 To DBEngine.Errors.Count - 1
            msgbox DBEngine.Errors(i).Description & " in " & DBEngine.Errors(i).Source & " (" & DBEngine.Errors(i).Number & ")"  
        Next i
End If

lg,
Slainte
AMStyles
AMStyles 28.10.2011 um 11:36:02 Uhr
Goto Top
Servus,

da kommt die Meldung "Eigenschaft nicht gefunden. in DAO.Properties (3270).
Egal ob es funktioniert oder nicht.....

LG,
AMStyles
SlainteMhath
SlainteMhath 28.10.2011 um 11:44:07 Uhr
Goto Top
Aha.. .und wo? evtl gibts eine der Properties nicht (mehr - code is aus Access 2002) - Musst mal bischen testen.
83928
83928 28.10.2011 um 11:45:17 Uhr
Goto Top
Was genau möchtest Du machen?
den SQL Fehler speichern?

Das ist ja mit leichter Abänderung der o.g. Zeilen möglich. Und was soll außerdem noch passieren?

Allgemeine Fehlerbehandlung würde ich zu den Grundlagen von VBA zählen, auch wenn es aufgrund der Eigenschaften dieser Sprache häufig ignoriert wird.
83928
83928 28.10.2011 um 11:48:51 Uhr
Goto Top
ah, und wenn er nicht "ins IF springt" liegt es vermutlich daran das Du die On error resume next nicht ausführst.
AMStyles
AMStyles 28.10.2011 um 13:51:50 Uhr
Goto Top
Zitat von @83928:
Was genau möchtest Du machen?
> den SQL Fehler speichern?


ich habe eine Liste (Listenfeld), diese holt die Daten aus einer Tabelle, wenn ich in der Liste einen Eintag löschen möchte, wird im Hintergrund der komplette Datensatz gelöscht (Tabelle) jedoch passiert das nicht bei Einträgen, die wiederrum in einer anderen Tabelle benutzt werden. Das heißt, er läuft ganz normal durch, und zeigt am ende an, dass der Datensatz erfolgreich gelöscht wurde, obwohl der genau dies nicht kann, da auf SQL Ebene dieser Fehler passiert, wenn ich den Befehl im Management Studio ausführe.

In VBA möchte ich diesen Fehler abfangen, und wenn dieser geworfen wird, soll eine andere Meldung ausgegeben werden, als Datensatz erfolgreich gelöscht.
AMStyles
AMStyles 28.10.2011 um 14:35:25 Uhr
Goto Top
doch habs reinkopiert und das SQL Statement abgeändert
SlainteMhath
SlainteMhath 28.10.2011 um 14:40:38 Uhr
Goto Top
Also eigentlich wäre die saubere Methode eigentlich

1. Prüfen ob noch abhängige Datenseätze in anderen Tabelle vorhanden sind
2. Wenn nein => löschen
3. Wenn Ja => Fehler
Biber
Biber 28.10.2011 um 17:06:52 Uhr
Goto Top
Na ja, SlaintheMhath,

Zitat von @SlainteMhath:
Also eigentlich wäre die saubere Methode eigentlich

1. Prüfen ob noch abhängige Datenseätze in anderen Tabelle vorhanden sind
2. Wenn nein => löschen
3. Wenn Ja => Fehler

Noch eigentlicher wäre die sauberere Methode vorher mal einen Plan zu machen, wie der fachliche Zusammenhang und die Abhängigkeiten denn nun gestrickt werden sollen.

  • entweder es sollen alle abhängigen Child-Sätze gelöscht werden, wenn in der PRJVERWTSTADMIN_PRJV_PROJEKT ein Projekt gelöscht werden soll. Dann ist die FK-Constraint ein "ON DELETE CASCADE" und es gibt keinen Fehler.
  • oder es dürfen keine Sätze gelöscht werden, die Childsätze haben, weil die FK-Constraint "ON DELETE RESTRICT" ist. Dann kann ich, wenn ich doch weiss, dass es eh niemals nicht klappen kann, alle Sätze mit Childsätzen in einer passenden WHERE-Kalusel ausnehmen. Also ein LEFT JOIN mit der Childtabelle und "WHERE Childtab.Whatever IS NULL"
  • oder aber es dürfen keine Sätze in der PRJVERWTSTADMIN_PRJV_PROJEKT physikalisch gelöscht werden, sondern werden stattdessen logisch gelöscht (in einem Feld INAKTIV oder DELETED markiert.). Dann kann die FK-Constraint sein wie sie will bzw. wie sie grad zufällig definiert wurde.

Grüße
Biber
SlainteMhath
SlainteMhath 02.11.2011 um 08:54:45 Uhr
Goto Top
Moin Biber face-smile

natürlich kann ich alles per FK Contraints in die DB zementieren. Allerdings ist dann immer noch das Problem, dem User eine sinnvolle Fehlermeldung auszugeben. I.d.R. hilft dem Anwender ein "Kann nicht gellöscht werden, weil...." mehr als ein "ODBC Call falied -- FK Contraint violated..."

Und
ON DELETE CASCADE
mag ich persönlich nicht, weil u:u. ein DELETE ganze Tabellen oder gar Datanbanken leer macht (Alles schon gesehen face-smile ) jaja ich weis, auch das lässt sich durch Planung verhindern.

g,
Joerg
Biber
Biber 02.11.2011 um 09:26:08 Uhr
Goto Top
Moin SlaintheMhath,

ja nee, ich sehe es in diesem Fall nicht so, dass hier dem Endanwender eine sinnvolle Fehlermeldung helfen könnte.

Wie der viel zu früh verstummte Beitragsersteller geschrieben hat, ist der "Plan" doch, eine Batchverarbeitung, ein "DELETE... Where projekt ='XY'" auf Knopfdruck zu machen.

Dann kann ich sehr wohl im Konzept entscheiden, ob
  • das DELETE-Knöpfchen überhaupt angeboten wird, wenn Childsätze vorhanden sind
  • ob denn, wenn der befugte Anwender sagt "Dieses Projekt ist tot", auch alle Childsätze gelöscht werden, also die DB mit ON DELETE CASCADE hilft
  • und die allerallerallerunkomfortabelste Lösung ist, dem Endanwender zu sagen "Hey, du musst vorher alle Childsätze löschen, sonst geht nix."

Mein Kommentar oben sollte nur aussagen: "Menno, wenn jetzt beim Löschen eines Parent-Satzes erst über das Problem nachgedacht wird, dann ist es ein bisschen spät".

Grüße
Biber
AMStyles
AMStyles 02.11.2011 um 10:17:31 Uhr
Goto Top
Hallo Biber,

sorry, dass ich den "Plan" nicht richtig beschrieben habe.
Jetzt weiß ich zumindest worauf ich achten muss, jedoch noch keine Ahnung wie ich das Umsetzten kann (vom code her).
Die 3te Variante "und die allerallerallerunkomfortabelste Lösung ist, dem Endanwender zu sagen "Hey, du musst vorher alle Childsätze löschen, sonst geht nix."" würde mir sehr helfen.

Grüße,
AMStyles
83928
83928 02.11.2011 um 10:23:08 Uhr
Goto Top
Die 3te Variante "und die allerallerallerunkomfortabelste Lösung ist, dem Endanwender zu sagen "Hey, du musst
vorher alle Childsätze löschen, sonst geht nix."" würde mir sehr helfen.

Des is a Witz, oder?
AMStyles
AMStyles 02.11.2011 um 10:36:57 Uhr
Goto Top
Zitat von @83928:

> Die 3te Variante "und die allerallerallerunkomfortabelste Lösung ist, dem Endanwender zu sagen "Hey, du musst
> vorher alle Childsätze löschen, sonst geht nix."" würde mir sehr helfen.

Des is a Witz, oder?

Nee, ich hab im moment keine Ahnung wie ich das Abfangen kann, dass geprüft wird, ob es entsprechende Datensätze gibt.
83928
83928 02.11.2011 um 10:51:35 Uhr
Goto Top
Deine Planung scheint schwer verständlich. In den meisten Projektplanern ist es ja so, dass alle Childdatensätze eines Projekts 'automatisch' gelöscht werden, sobald das Projekt selber gelöscht wird -> Biber-Variante 2.
Es erschliesst sich nicht der Sinn, warum Du in diesem Fall eine Meldung ausgeben willst und was weiter passieren soll.....
AMStyles
AMStyles 02.11.2011 um 11:08:30 Uhr
Goto Top
Habe mir nochmals das Projekt angeschaut, und bin jetzt endgültig zum Entschluss gekommen, dass beide Varianten für mich Richtig sind.

Und zwar soll der Hinweis kommen "Es bestehen Childdatensätze, möchten Sie trotzdem das Projekt XY löschen?" mit den Buttons Ja, Nein.
Erst dann, soll bei "Ja" das Projekt komplett gelöscht werden mit Childsätze.

Grüße,
AMStyles
83928
83928 02.11.2011 um 11:23:20 Uhr
Goto Top
Dann die Löschweitergabe einrichten (Biber-2-Variante) und vor der Delete-Abfrage mittels einer Select-Abfrage bestimmen, ob Childdatensätze vorhanden sind.

Und vorher vielleicht doch noch mal überlegen ob man den User mit sowas wie "Childdatensätze" behelligen möchte oder ob nicht allgemein die Frage reicht: "Möchten Sie das Projekt wirklich löschen? Ja/Nein" - unabhängig davon ob Child- DS existieren oder nicht.

Gruß
AMStyles
AMStyles 02.11.2011 um 11:26:58 Uhr
Goto Top
ok und wie richte ich dies ein?
Mir ist nicht ganz Klar, wie ich das in VBA umsetzten könnte.

Grüße & Danke,
AMStyles
83928
83928 02.11.2011 um 12:48:39 Uhr
Goto Top
Du musst nicht viel in VBA machen! Das Löschen der Child-DS übernimmt Dein Backend - sofern eingerichtet ("ON DELETE CASCADE")

und der VBA-Teil sieht dann ungefähr so aus:

If MsgBox("soll das Projekt gelöscht werden?", vbYesNo) = vbYes Then _  
    CurrentDb.Execute "DELETE FROM PRJVERWTSTADMIN_PRJV_PROJEKT WHERE PROJEKT = '" &  strProjektName "'"