mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 18:50:42 -08:00
Code Issues Projects Releases Wiki Activity

Display dialog on non-query sql errors

Browse source
This commit is contained in:
David Botton 2021-11-04 17:24:26 -04:00
parent a0d4d1fb8d
commit 4019936821
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
tools/clog-db-admin.lisp
View file

@ -95,9 +95,14 @@
'(("Non-Query" :db-query))
(lambda (results)
(when results
(sqlite:execute-non-query (db-connection app)
(cadr (assoc :db-query results)))
(results-window app "select changes()" :title (cadr (assoc :db-query results)))))
(format t "handle~%")
(handler-case
(progn
(sqlite:execute-non-query (db-connection app)
(cadr (assoc :db-query results)))
(results-window app "select changes()" :title (cadr (assoc :db-query results))))
(error (c)
(alert-dialog obj c :title "Error")))))
:title "Run Database Query" :height 200))))
(defun edit-record (obj app table names data)