ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update sql insertion command to quote and escape string properly

This commit is contained in:
ndwarshuis 2018-12-23 11:02:45 -05:00
parent 1daec3cce6
commit d769a1c7fc
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
conf.org
View File

@ -2689,8 +2689,16 @@ Org mode is great and all, but in many cases, text files just won't cut it. Hard
"Execute string SQL on database DB executing `sql-sqlite-program'. "Execute string SQL on database DB executing `sql-sqlite-program'.
Returns the output of CMD. SQL should not contain any quotes as if it Returns the output of CMD. SQL should not contain any quotes as if it
were entered on the shell." were entered on the shell."
(shell-command-to-string (concat sql-sqlite-program " " db " '" sql "'"))) (shell-command-to-string (concat sql-sqlite-program " " db " \"" sql "\"")))
(defun nd/sql-escape-text (txt)
"Escape and quote TXT in order to insert into sqlite db via 'insert'.
This assumes the insertion command will be run on a shell where the
sql command string is in double quotes."
(let* ((txt-single (replace-regexp-in-string "'" "''" txt nil t))
(txt-double (replace-regexp-in-string "\"" "\\\"" txt-single nil t)))
(concat "'" txt-double "'")))
(defun nd/sql-insert (db tbl data) (defun nd/sql-insert (db tbl data)
"Insert list DATA into TBL in sqlite database DB. "Insert list DATA into TBL in sqlite database DB.
Note that in list DATA, numbers will be converted to strings, Note that in list DATA, numbers will be converted to strings,