SMPFR

Code : Tout sélectionner

; ajoute un article (SAFE)
(defun ajouter-article (nom texte categorie published short)
  (let ((statement (prepare-statement *db* 
                    "insert into articles (id,nom,texte,cat,state,date,short) values (NULL,:nom,:texte,:cat,:state,:date,:short)")))
    (bind-parameter statement ":nom" (string nom))
    (bind-parameter statement ":texte" (string texte))
    (bind-parameter statement ":short" (string short))
    (bind-parameter statement ":date" (get-date))
    (bind-parameter statement ":cat" (parse-integer categorie))
    (let ((state (if published 1 0)))
      (bind-parameter statement ":state" state))

    (step-statement statement)
    (finalize-statement statement)))