Le 03/02/2014 00:47, Thomas S. Dye a écrit : > Aloha Thierry, > > Thierry Banel <tbanelweb...@free.fr> writes: > >> Hi Thomas. >> >> I don't understand this behavior yet. >> But here is a workaround: >> try the #+ORGTBL: SEND feature: >> 1- Add a #+ORGTBL: SEND line >> 2- Add a BEGIN RECEIVE ORGTBL block >> 3- Type C-c C-c with cursor on the first pipe of the table >> >> --8<--------------------------->8-- >> #+ORGTBL: SEND faraway orgtbl-to-sqlinsert :sqlname "foo" :fmt (1 "%s") >> | one | two | >> |-----+--------| >> | 1 | Buckle | >> | 2 | Shoe | >> | 3 | Open | >> | 4 | Door | >> >> ;; BEGIN RECEIVE ORGTBL faraway >> BEGIN TRANSACTION; >> INSERT INTO foo( one, two ) VALUES ( 1 , 'Buckle' ); >> INSERT INTO foo( one, two ) VALUES ( 2 , 'Shoe' ); >> INSERT INTO foo( one, two ) VALUES ( 3 , 'Open' ); >> INSERT INTO foo( one, two ) VALUES ( 4 , 'Door' ); >> COMMIT; >> ;; END RECEIVE ORGTBL faraway > Yes, this works. > > Perhaps the table needs to be processed before it is passed to > orgtbl-to-sqlinsert? > > Note that =orgtbl-to-sqlinsert= takes advantage of org-mode's applying > the formatting to each cell /before/ checking for a line-formatting > function. The header line itself and sectioning line are suppressed > with the settings > > : :hlfmt (lambda (lst) (setq firstheader nil)) > : :hline nil > : :remove-nil-lines t > > I don't fully understand what this means, but it appears to address the > table header. > > All the best, > Tom >
Hi again Thomas Probably the issue is not in orgtbl-to-sqlinsert, because orgtbl-to-sqlinsert does not receive the header of the table. Here is another fix which just recovers the lost header and passes it to orgtbl-to-sqlinsert: ---8<----------------------->8--- *** Experiment with orgtbl-sqlinsert #+name: test-table | one | two | |-----+--------| | 1 | Buckle | | 2 | Shoe | | 3 | Open | | 4 | Door | #+name: test-bed #+header: :var x=test-table #+begin_src emacs-lisp (require 'orgtbl-sqlinsert) (orgtbl-to-sqlinsert (cons (cdadr (assoc :colname-names params)) (cons 'hline x)) '(:sqlname "foo" :fmt (1 "%s"))) #+end_src #+RESULTS: test-bed : BEGIN TRANSACTION; : INSERT INTO foo( one, two ) VALUES ( 1 , 'Buckle' ); : INSERT INTO foo( one, two ) VALUES ( 2 , 'Shoe' ); : INSERT INTO foo( one, two ) VALUES ( 3 , 'Open' ); : INSERT INTO foo( one, two ) VALUES ( 4 , 'Door' ); : COMMIT; ---8<----------------------->8---
