Lines Matching refs:conn
39 (defun exit-nicely (conn)
40 (pq-finish conn)
57 (setq conn (pq-setdb pghost pgport pgoptions pgtty pgdbname))
60 (when (= (pq-status conn) pg-connection-bad)
62 (format t "~A" (pq-error-message conn))
63 (exit-nicely conn))
65 (setq res (pq-exec conn "BEGIN"))
66 (when (= (pq-status conn) pg-connection-bad)
69 (exit-nicely conn))
74 (setq res (pq-exec conn "DECLARE mycursor BINARY CURSOR FOR select * from test1"))
75 (when (= (pq-status conn) pg-connection-bad)
78 (exit-nicely conn))
81 (setq res (pq-exec conn "FETCH ALL in mycursor"))
85 (exit-nicely conn))
112 (setq res (pq-exec conn "CLOSE mycursor"))
115 (setq res (pq-exec conn "COMMIT"))
118 (pq-finish conn)