Re^3: Perl DBI

Add table name to * in SQL here ;

$db{$tbl} = $dbh->selectall_arrayref("SELECT NE,$tbl.* FROM $tbl");
[download]

Seems that without table name Access interprets * as all fields not already specified.

poj

Comment on Re^3: Perl DBI Download Code

Replies are listed 'Best First'.
Re^4: Perl DBI by Arunkumarpro (Initiate) on Jun 30, 2013 at 20:02 UTC
Can u please explain this statement?what is the reason for placing the NE as the first column? arun	[reply]
Re^5: Perl DBI by poj (Abbot) on Jun 30, 2013 at 20:09 UTC
So that you can filter the records here `if (( $_->[0] eq $bsc ) && ( $_->[3] > $thresh )){` poj	[reply] [d/l]
Re^4: Perl DBI by Arunkumarpro (Initiate) on Jun 30, 2013 at 20:23 UTC
SELECT * FROM $tbl; this statement also has the same effect? what is the differnce between your statement and the statement above?(may be in terms of performance) arun	[reply]
Re^5: Perl DBI by poj (Abbot) on Jun 30, 2013 at 20:33 UTC
If the first field of your tables is not NE then `$_->[0] eq $bsc` will not work. Using * is not recommended, apart from the performance issue you are at risk of a table change breaking your script. poj	[reply] [d/l]
Re^6: Perl DBI by Tux (Canon) on Jul 01, 2013 at 10:51 UTC
There are plenty ways to do it fast. The "best" way might be using a hash combined with `bind_columns` as described in the documentation: `my $dbh = DBI->connect ($dsn, $user, $pass, { FetchHashKeyName => "NAM +E_lc", … }); my ($sth, %rec) = $dbh->prepare ("select * from $tbl"); $sth->execute; $sth->bind_columns (\(@rec{@{$sth->{NAME_lc}}})); while ($sth->fetch) { $rec{"ne"} eq $bsc or next; # All fields accessible by their name (lc) }` [download] Enjoy, Have FUN! H.Merijn	[reply] [d/l] [select]