From da8501336f628590b5d080dcfa0487fc256da125 Mon Sep 17 00:00:00 2001 From: Russ Tyndall Date: Thu, 20 Aug 2009 14:23:33 -0400 Subject: [PATCH] special cased in ODBC limit handling --- sql/expressions.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/sql/expressions.lisp b/sql/expressions.lisp index 971609e..16e967b 100644 --- a/sql/expressions.lisp +++ b/sql/expressions.lisp @@ -587,6 +587,9 @@ uninclusive, and the args from that keyword to the end." (write-string "SELECT " *sql-stream*) (when all (write-string "ALL " *sql-stream*)) + (when (and limit (eq :odbc (database-type database))) + (write-string " TOP " *sql-stream*) + (output-sql limit database)) (when (and distinct (not all)) (write-string "DISTINCT " *sql-stream*) (unless (eql t distinct) @@ -656,7 +659,7 @@ uninclusive, and the args from that keyword to the end." (when (cdr order) (write-char #\, *sql-stream*)))) (output-sql order-by database))) - (when limit + (when (and limit (not (eq :odbc (database-type database)))) (write-string " LIMIT " *sql-stream*) (output-sql limit database)) (when offset -- 2.34.1