Re: CLSQL Newbie Challenges: Strange warnings ...

Frank Gönninger <[email protected]> Tue, 17 Aug 2010 17:57:21 +0200
Newsgroups gmane.lisp.clsql.general
Message-ID <[email protected]>
Hi Russ,

Am 17.08.2010 um 16:12 schrieb Russ Tyndall:

> To simplify things can you connect and execute (clsql:query "SELECT 1;")?

I can:

PIB.AMS(2): (setq *ctn* (ensure-ams-connection))

CONNECT-DB: About to connect to DB "ams.erp-pib-test".
Warning: 16-bit return bug: result-code #x71230000 for expression (ODBC::SQLALLOCHANDLE
                                                          ODBC::$SQL_HANDLE_ENV
                                                          ODBC::+NULL-HANDLE-PTR+
                                                          ODBC::PHENV)
Warning: 16-bit return bug: result-code #x71230000 for expression (ODBC::SQLSETENVATTR
                                                          ODBC::HENV
                                                          ODBC::$SQL_ATTR_ODBC_VERSION
                                                          (UFFI:MAKE-POINTER
                                                           ODBC::VERSION
                                                           :VOID)
                                                          0)
Warning: 16-bit return bug: result-code #x71230000 for expression (ODBC::SQLALLOCHANDLE
                                                          ODBC::$SQL_HANDLE_DBC
                                                          ODBC::HENV
                                                          ODBC::PHDBC)
Warning: 16-bit return bug: result-code #x71230000 for expression (ODBC::SQLGETINFO
                                                          ODBC::HDBC
                                                          ODBC::INFO-TYPE
                                                          ODBC::INFO-PTR
                                                          255
                                                          ODBC::INFO-LENGTH-PTR)
Warning: 16-bit return bug: result-code #x71230000 for expression (ODBC::SQLSETCONNECTOPTION
                                                          ODBC::HDBC
                                                          ODBC::OPTION
                                                          ODBC::PARAM)
AMS-CONNECTION3081
PIB.AMS(3): (clsql:query "SELECT 1;")
Warning: 16-bit return bug: result-code #x71230000 for expression (ODBC::SQLALLOCHANDLE
                                                          ODBC::$SQL_HANDLE_STMT
                                                          ODBC::HDBC
                                                          ODBC::PHSTMT)
Warning: 16-bit return bug: result-code #x71230000 for expression (ODBC::SQLEXECDIRECT
                                                          ODBC::HSTMT
                                                          ODBC::SQL-PTR
                                                          ODBC::$SQL_NTS)
Warning: 16-bit return bug: result-code #x71230000 for expression (ODBC::SQLNUMRESULTCOLS
                                                          ODBC::HSTMT
                                                          ODBC::COLUMNS-NR-PTR)
Warning: 16-bit return bug: result-code #x71230000 for expression (ODBC::SQLDESCRIBECOL
                                                          ODBC::HSTMT
                                                          ODBC::COLUMN-NR
                                                          ODBC::COLUMN-NAME-PTR
                                                          256
                                                          ODBC::COLUMN-NAME-LENGTH-PTR
                                                          ODBC::COLUMN-SQL-TYPE-PTR
                                                          ODBC::COLUMN-PRECISION-PTR
                                                          ODBC::COLUMN-SCALE-PTR
                                                          ODBC::COLUMN-NULLABLE-P-PTR)
Warning: 16-bit return bug: result-code #x71230000 for expression (ODBC::SQLBINDCOL
                                                          ODBC::HSTMT
                                                          (IF
                                                           (EQ
                                                            ODBC::COLUMN-NR
                                                            :BOOKMARK)
                                                           0
                                                           (1+
                                                            ODBC::COLUMN-NR))
                                                          ODBC::C-TYPE
                                                          ODBC::DATA-PTR
                                                          ODBC::PRECISION
                                                          ODBC::OUT-LEN-PTR)
Warning: 16-bit return bug: result-code #x71230000 for expression (ODBC:SQLFETCH
                                                          ODBC::HSTMT)
Warning: 16-bit return bug: result-code #x71230064 for expression (ODBC:SQLFETCH
                                                          ODBC::HSTMT)
Warning: 16-bit return bug: result-code #x71230000 for expression (ODBC::SQLFREESTMT
                                                          ODBC::HSTMT
                                                          (ECASE
                                                           ODBC::OPTION
                                                           (:DROP
                                                            ODBC::$SQL_DROP)
                                                           (:CLOSE
                                                            ODBC::$SQL_CLOSE)
                                                           (:UNBIND
                                                            ODBC::$SQL_UNBIND)
                                                           (:RESET
                                                            ODBC::$SQL_RESET_PARAMS)))
Warning: 16-bit return bug: result-code #x71230000 for expression (ODBC::SQLFREESTMT
                                                          ODBC::HSTMT
                                                          (ECASE
                                                           ODBC::OPTION
                                                           (:DROP
                                                            ODBC::$SQL_DROP)
                                                           (:CLOSE
                                                            ODBC::$SQL_CLOSE)
                                                           (:UNBIND
                                                            ODBC::$SQL_UNBIND)
                                                           (:RESET
                                                            ODBC::$SQL_RESET_PARAMS)))
Warning: 16-bit return bug: result-code #x71230000 for expression (ODBC::SQLFREESTMT
                                                          ODBC::HSTMT
                                                          (ECASE
                                                           ODBC::OPTION
                                                           (:DROP
                                                            ODBC::$SQL_DROP)
                                                           (:CLOSE
                                                            ODBC::$SQL_CLOSE)
                                                           (:UNBIND
                                                            ODBC::$SQL_UNBIND)
                                                           (:RESET
                                                            ODBC::$SQL_RESET_PARAMS)))
((1))
("")

=>>> This looks good ;-)

> The comment above the warning generation is:
>      ;; Check for allegro v7 & v8 bug with ODBC calls returning
>      ;; 32-bit unsigned ints, not 16-bit signed ints
> in db-odbc/odbc-api.lisp  l:105
> 
> AMS-ADD-JOB: Result = -1.
> job-id = -1.
> 
> This is the SQL_ERROR return code, so perhaps you got a sql error in the procedure you are executing?

I actually doesn't get executed. I don't see any calls to the DB.

> Otherwise perhaps allegro is no longer exhibiting the bug mentioned in the comment and we are correcting incorrectly now?.

Looks like it. Still: The stored procedure doesn't get executed in the DB.

> 
> I dont have access to allegro currently, but perhaps with what I have given you, you can give us some more info to help you.

Thanks, yes, of course that helped. So I can at least say that the connection is ok.

> 
> HTH,
> Russ Tyndall

Cheers
  Frank

> On 8/16/2010 1:28 PM, Frank Gönninger wrote:
>> Hi Ryan,
>> 
>> yep, that's there. I do get a "good looking" db connection ...
>> 
>> Thanks for jumping in...
>> 
>> Frank
>> 
>> Am 16.08.2010 um 19:02 schrieb Ryan Davis:
>> 
>>> Do you have an ODBC source defined for your "ams.erp-pid-test"?  I
>>> think you should have it defined somewhere in Start->Control
>>> Panel->Administrative tools->Data Sources (ODBC).
>>> 
>>> Thanks,
>>> 
>>> On 8/15/2010 3:51 PM, Frank Gönninger wrote:
>>>> Hi all:
>>>> 
>>>> Being a bloody CLSQL beginner I have created a MS SQL Server DB and have also created some stored procedures directly in MS SQL Server Management Studio.
>>>> 
>>>> I apparently can connect but can't execute any queries. See:
>>>> 
>>>> http://paste.lisp.org/+2FM7.
>>>> 
>>>> I am using AllegroCL 8.2 Professional Edition on a 64-bit Windows7 Ultimate.
>>>> 
>>>> Any hints really appreciated!!!
>>>> 
>>>> TIA -
>>>> 
>>>> Frank
>>>> 
>>>> --
>>>> C o n s e q u o r   C o n s u l t i n g   A G
>>>> Frank Goenninger
>>>> 
>>>> E-Mail: [email protected]
>>>> Phone: +49 711 781 181-10
>>>> Fax:   +49 711 781 181-11
>>>> 
>>>> Consequor Consulting AG
>>>> Liebknechstr. 33
>>>> D-70565 Stuttgart
>>>> 
>>>> Vorstand: Frank Gönninger (Vors.), Martin Melcher
>>>> Aufsichtsratsvorsitzender: Dipl.-Kfm. Matthias Filbinger
>>>> Sitz der Gesellschaft: 70565 Stuttgart, Deutschland
>>>> Registergericht Amtsgericht Stuttgart HRB 727446
>>>> 
>>>> 
>>>> _______________________________________________
>>>> CLSQL mailing list
>>>> [email protected]
>>>> http://lists.b9.com/cgi-bin/mailman/listinfo/clsql
>>> 
>>> -- 
>>> Ryan Davis
>>> Acceleration.net
>>> Director of Programming Services
>>> 2831 NW 41st street, suite B
>>> Gainesville, FL 32606
>>> 
>>> Office: 352-335-6500 x 124
>>> Fax: 352-335-6506
>>> 
>>> _______________________________________________
>>> CLSQL mailing list
>>> [email protected]
>>> http://lists.b9.com/cgi-bin/mailman/listinfo/clsql
>> --
>>  C o n s e q u o r   C o n s u l t i n g   A G
>>  Frank Goenninger
>> 
>>  E-Mail: [email protected]
>>  Phone: +49 711 781 181-10
>>  Fax:   +49 711 781 181-11
>> 
>>  Consequor Consulting AG
>>  Liebknechstr. 33
>>  D-70565 Stuttgart
>> 
>>  Vorstand: Frank Gönninger (Vors.), Martin Melcher
>>  Aufsichtsratsvorsitzender: Dipl.-Kfm. Matthias Filbinger
>>  Sitz der Gesellschaft: 70565 Stuttgart, Deutschland
>>  Registergericht Amtsgericht Stuttgart HRB 727446
>> 
>> 
>> _______________________________________________
>> CLSQL mailing list
>> [email protected]
>> http://lists.b9.com/cgi-bin/mailman/listinfo/clsql
> _______________________________________________
> CLSQL mailing list
> [email protected]
> http://lists.b9.com/cgi-bin/mailman/listinfo/clsql

--
  C o n s e q u o r   C o n s u l t i n g   A G
  Frank Goenninger

  E-Mail: [email protected]
  Phone: +49 711 781 181-10
  Fax:   +49 711 781 181-11

  Consequor Consulting AG
  Liebknechstr. 33
  D-70565 Stuttgart

  Vorstand: Frank Gönninger (Vors.), Martin Melcher
  Aufsichtsratsvorsitzender: Dipl.-Kfm. Matthias Filbinger
  Sitz der Gesellschaft: 70565 Stuttgart, Deutschland
  Registergericht Amtsgericht Stuttgart HRB 727446