connection pool for CL-DBI
(setf *connection-pool* (make-db-connection-pool :mysql
:database-name "dbicp_dev"
:username "root"
:password "password"
:host "mysql-test"
:port 3306))
(let ((conn (get-connection *connection-pool*)))
(prog1
(do-sql conn "SELECT * FROM USERS")
(disconnect conn)))SQL Mapping Framework
(setf *session* (create-sql-session :mysql
:database-name "batis_dev"
:username "root"
:password "password"
:host "mysql-test"
:port 3306))
@update ("insert into product (id, name, price) values (:id, :name, :price)")
(defsql register-product (id name price))
(update-one *session* register-product :id 1 :name "NES" :price 14800)rewrite old reddit
make setup
make dev.up
curl -v http://localhost:8000/browsedatabase utility
generate SQL and params for prepared statement