This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision | ||
vba:tutorials:debugquery [10.02.2017 11:52:09] yaslaw [3) Testen mit Views] |
vba:tutorials:debugquery [13.02.2019 09:24:39] (current) yaslaw |
||
---|---|---|---|
Line 1: | Line 1: | ||
- | ======[VBA] [Access] Debug Queries====== | + | ======[VBA][Access] Debug Queries====== |
//Ein Tutorial zum Debuggen von SQL unter VBA in MS Access.// | //Ein Tutorial zum Debuggen von SQL unter VBA in MS Access.// | ||
- | {{image class="left" url="images/icons/48/gtk-go-back-rtl.png"}} | ||
=====Ausgangslage===== | =====Ausgangslage===== | ||
Immer und immer wieder kommt man an den Punkt, dass ein in VBA zusammengesetztes Query nicht das macht was man will. Darum hier mal eine Anleitung, damit ich sie nicht immer wieder schreiben muss. | Immer und immer wieder kommt man an den Punkt, dass ein in VBA zusammengesetztes Query nicht das macht was man will. Darum hier mal eine Anleitung, damit ich sie nicht immer wieder schreiben muss. | ||
Line 14: | Line 13: | ||
where = 15 | where = 15 | ||
sql = "UPDATE myTable SET feld1 = " & value & " WHERE id = " & where & ";" | sql = "UPDATE myTable SET feld1 = " & value & " WHERE id = " & where & ";" | ||
- | Call DoCmd.RunSQL(sql) | + | CurrentDb.execute sql |
</code> | </code> | ||
- | {{image class="left" url="images/icons/48/text-x-gtkrc.png"}} | ||
=====Lösung===== | =====Lösung===== | ||
- | Um mit der Nummerierung der Schritte Parallel zu [[php:tutorials:debugmysqlqueries]] bleiben beginnt es hier mit Punkt 2) | + | |
+ | ====1) Report Error ==== | ||
+ | Sicherstellen, dass ein Fehler generiert wird, wenn das sql ausgeführt wird. Dazu den execute durch den Parameter dbFailOnError ergänzen | ||
+ | <code vb> CurrentDb.execute sql, dbFailOnError</code> | ||
====2) Query-String ausgeben==== | ====2) Query-String ausgeben==== | ||
Line 33: | Line 34: | ||
sql = "UPDATE myTable SET feld1 = " & value & " WHERE id = " & where & ";" | sql = "UPDATE myTable SET feld1 = " & value & " WHERE id = " & where & ";" | ||
Debug.Print sql | Debug.Print sql | ||
- | ' Call DoCmd.RunSQL(sql) | + | ' CurrentDb.execute sql, dbFailOnError |
</code> | </code> | ||
Line 57: | Line 58: | ||
where = 15 | where = 15 | ||
sql = "UPDATE myTable SET feld1 = '" & value & "' WHERE id = " & where & ";" | sql = "UPDATE myTable SET feld1 = '" & value & "' WHERE id = " & where & ";" | ||
- | Call DoCmd.RunSQL(sql) | + | CurrentDb.execute sql, dbFailOnError |
</code> | </code> | ||
{{tag>VBA MS_Access}} | {{tag>VBA MS_Access}} |