Lines Matching refs:res
32 (setq res (pq-exec conn "BEGIN"))
33 (when (or (null res) (not (= (pq-result-status res) pgres-command-ok)))
35 (pq-clear res)
39 (pq-clear res)
42 (setq res (pq-exec conn "DECLARE mycursor CURSOR FOR select * from pg_database"))
43 (when (or (null res) (not (= (pq-result-status res) pgres-command-ok)))
45 (pq-clear res)
47 (pq-clear res)
48 (setq res (pq-exec conn "FETCH ALL in mycursor"))
49 (when (or (null res) (not (= (pq-result-status res) pgres-tuples-ok)))
51 (pq-clear res)
55 (setq nfields (pq-nfields res))
57 (format t "~15@<~A~>" (pq-fname res i))
62 (setq ntuples (pq-ntuples res))
65 (format t "~15@<~A~>" (pq-getvalue res i j))
69 (pq-clear res)
72 (setq res (pq-exec conn "CLOSE mycursor"))
73 (pq-clear res)
76 (setq res (pq-exec conn "COMMIT"))
77 (pq-clear res)