mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-02 23:33:44 -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)) '(("Non-Query" :db-query))
(lambda (results) (lambda (results)
(when results (when results
(sqlite:execute-non-query (db-connection app) (format t "handle~%")
(cadr (assoc :db-query results))) (handler-case
(results-window app "select changes()" :title (cadr (assoc :db-query results))))) (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)))) :title "Run Database Query" :height 200))))
(defun edit-record (obj app table names data) (defun edit-record (obj app table names data)