projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f14449d
)
In ODBC when reading data in chunks with a specified out-length, use
author
nathan@acceleration.net
<nathan@acceleration.net>
Thu, 10 Apr 2008 15:25:12 +0000
(11:25 -0400)
committer
Nathan Bird
<nathan@acceleration.net>
Mon, 20 Jun 2011 20:06:17 +0000
(16:06 -0400)
that as an indicator since freetds doenst set the info status
appropriately.
prev:
9eeb8ab3eb68bf37b93a557ed72ba46d0734efc4
db-odbc/odbc-api.lisp
patch
|
blob
|
history
diff --git
a/db-odbc/odbc-api.lisp
b/db-odbc/odbc-api.lisp
index 92e7607c221d313fbd77986e7ba69c06ce5826be..f14a9d36b230cfdc3db5394dfaeac36642700525 100644
(file)
--- 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)))