in reply to Re^2: Query Does not work in Spreadsheet::WriteExcel
in thread Query Does not work in Spreadsheet::WriteExcel

Spreadsheet::WriteExcel does not know anything about (SQL) queries. There is something else that runs the SQL query on your server and then hands over the query results to Spreadsheet::WriteExcel. Whatever that part does, you have not shown us its code, and maybe there is where (part of) the problem is.

  • Comment on Re^3: Query Does not work in Spreadsheet::WriteExcel

Replies are listed 'Best First'.
Re^4: Query Does not work in Spreadsheet::WriteExcel
by dirtdog (Monk) on Jul 21, 2020 at 15:28 UTC

    Thanks Corion. That is good to know. I'll zero in on the perl code then.

[reply]

      Hi Monks, just wanted to follow up with what i did to get this to finally work. I don't really understand why i had to do it, but maybe one of the Monks will.

      The issue is that in an Oracle client (TOAD for example) the following col of a select statement worked, but within perl using DBI it did not. Ultimately, i had to escape the backslash character....so \W+...became....\\W+

      From: 

      regexp_substr(SDSM2.MSG_BODY,'(:16R:ACCTINFO)\W+(:95[[:alnum:]]*)*\W+:
+97A::SAFE//'||SDSM1.ACT_N||'(.+?):16S:ACCTINFO',1,1,'n') as accnt_inf
+o,

      [download]

      To: 

      regexp_substr(SDSM2.MSG_BODY,'(:16R:ACCTINFO)\\W+(:95[[:alnum:]]*)*\\W
++:97A::SAFE//'||SDSM1.ACT_N||'(.+?):16S:ACCTINFO',1,1,'n') as accnt_i
+nfo,

      [download]

      After making that change it worked inside perl.

      thanks for the help!

[reply]
[d/l]
[select]
        Did you use double quotes in Perl to store the sql query?

        map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
[reply]
[d/l]

In Section Seekers of Perl Wisdom