Re: Problems with guile-sqlite3

[David Pirotte <david@altosw.be>]

[-- Attachment #1: Type: text/plain, Size: 644 bytes --]

Le Fri, 01 Apr 2011 11:12:03 +0200,
Detlev Zundel <dzu@denx.de> a écrit :

> Hi David,
> 
> > Just tried guile-sqlite3  - after applying the 2 patches of Detlev - and
> > succeeded with
> > ...

> Thanks for testing.  Unfortunately currently I'm not able to reproduce
> your findings - in my little test I was successful in reading records
> from a small database.
> 
> Can you show me the exact calls and the database you used?

Hello Detlev,
Andy,

I spotted where the problem comes from: it is when a text value is empty. I have
produced a small but complete example [attached]: can you reproduce it ?

Thanks,
David

[-- Attachment #2: empty-string.scm --]
[-- Type: text/x-scheme, Size: 928 bytes --]


(define-module (empty-string)
  :use-module (ice-9 format)
  :use-module (sqlite3))

(export db
	create
	insert
	query-1
	query-2
	stmt)

(define stmt #f)


#!

April the 1st, 2011

  origin/HEAD -> origin/master
  origin/master

Retreiving an empty string triggers an error

!#


;;;
;;; Opening a test db
;;;

(define db (sqlite-open "/tmp/sqlite.db" 6))

(define create
  "create table test (
     reference integer primary key,
     name      text,
     firstname text,
     email     text
   );")

(define insert
  "insert into test 
        values (1,'BLAISE','Virginie','');")

(define query-1 "select reference, name, firstname from test;")
(define query-2 "select * from test;")

(for-each (lambda (sql-stmt)
	    (set! stmt (sqlite-prepare db sql-stmt))
	    (format #t "~S~%" (sqlite-step stmt))
	    (sqlite-finalize stmt))
    (list create
	  insert
	  query-1
	  query-2))


;;;
;;; Closing
;;;

(sqlite-close db)