From: nathan@acceleration.net <nathan@acceleration.net>
Date: Thu, 10 Apr 2008 15:25:12 +0000 (-0400)
Subject: In ODBC when reading data in chunks with a specified out-length, use
X-Git-Tag: v5.4.0~17
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=54c765cb4ed3f4de96ced6c5c65bbe2241612954

In ODBC when reading data in chunks with a specified out-length, use
that as an indicator since freetds doenst set the info status
appropriately.

  prev: 9eeb8ab3eb68bf37b93a557ed72ba46d0734efc4
---

diff --git a/db-odbc/odbc-api.lisp b/db-odbc/odbc-api.lisp
index 92e7607..f14a9d3 100644
--- a/db-odbc/odbc-api.lisp
+++ b/db-odbc/odbc-api.lisp
@@ -913,9 +913,7 @@ as possible second argument) to the desired representation of date/time/timestam
                                 finally (incf offset (1- i)))
                          while
                            (and (= res $SQL_SUCCESS_WITH_INFO)
-                                #+ingore(eq (sql-state +null-handle-ptr+ +null-handle-ptr+ hstmt)
-                                            $sql-data-truncated)
-                                (equal (sql-state +null-handle-ptr+ +null-handle-ptr+ hstmt) "01004"))
+                                (> out-len +max-precision+))
                          do
                            (setf res (%sql-get-data hstmt column-nr c-type data-ptr +max-precision+ out-len-ptr)
                                  out-len (deref-pointer out-len-ptr #.$ODBC-LONG-TYPE)))