chickadee » freetds » send-query*

An alternative of the send-query procedure which is not limited in number of params by Chicken's argument count limit because PARAMS is passed in as one argument in the form of a list.

(use freetds)

(let ((conn (make-connection "localhost" "user" "pass")))
  (result-values (send-query conn "SELECT ?, 2" '("hello"))))
 => (("hello" 2))