http://qs1969.pair.com?node_id=363388


in reply to Re^2: Extracting data from an Ms ACCESS query
in thread Extracting data from an Ms ACCESS query

Yes, I tried this; 
my $result = $dbh->sql("SELECT * FROM $qry WHERE group_name='Procureme
+nt'");
foreach (@$result) 
{
   print @$_;
}

[download]
and I got this; 
Can't use string ("1") as an ARRAY ref while "strict refs" in use at U
+:\scripts\odbc1.pl line 15.

[download]
Hmmmm. Holy ones please HELP!

Blackadder

Replies are listed 'Best First'.
Re^4: Extracting data from an Ms ACCESS query
by maa (Pilgrim) on Jun 11, 2004 at 12:45 UTC

    Hi, blackadder

    have you read the documents Win32::ODBC?

    As has already been said, it's $dbh->Sql($statement) not $dbh->sql() and it does not return an arrayref... it returns undef upon success!

    $sql="select * from foo";
if($db->Sql($sql)) {
    warn "i failed: " . $db->Error();
}else{
    print "read the documentation on FetchRow(), Data() and DataHash()
+\n"; 
}

    [download]

    HTH - Mark

[reply]
[d/l]
[select]
Re^4: Extracting data from an Ms ACCESS query
by blackadder (Hermit) on Jun 11, 2004 at 13:56 UTC
    Thanks maa

    Yes I have read the Win32::ODBC but there is no examples it it!!!

    but so far you have given me enough stuff to work on...Cheers

    Blackadder
[reply]
      Use DBD::ODBC instead of Win32::ODBC. It is much better documented, supported, and widely known.
[reply]
Re^4: Extracting data from an Ms ACCESS query
by periapt (Hermit) on Jun 11, 2004 at 19:09 UTC
    Darn, I meant to include this in my post below. To sort of repeat myself, the Sql call in Win32::ODBC will return either false, for a successful query or an error number if the query fails. You are storing this number in $result and trying to use it as an array reference in your print statement. From your print error message, your sql call is returning the value "1" which I think is an error from the Win32::ODBC module itself. The ODBC statement is actually $dbh->Sql() not $dbh->sql().

    PJ
    We are drowning in information and starving for knowledge - Rutherford D. Rogers
    What good is knowledge if you have to pull teeth to get it - anonymous
[reply]

In Section Seekers of Perl Wisdom