DBI:AnyData -DBI handle 0x85fa9dc cleared whilst still active.
- From: s.l.day-dbi-users@xxxxxxxxxxxx (Stephen Day)
- Date: Tue, 28 Mar 2006 23:28:21 +0100
Can anyone explain why I'm getting this error?
I have failed to find anything useful in google or by reading though the CPAN
info.
--Start script
#!/usr/bin/perl
use DBI;
my $dbh = DBI->connect('dbi:AnyData(RaiseError=>1):');
$dbh->func('mytable','CSV','data.csv','ad_catalog');
my $sth = $dbh->prepare("SELECT some FROM mytable");
$sth->execute();
while ( my $row = $sth->fetch ) {
print "@$row\n";
}
$sth->finish();
$dbh->disconnect();
-- End
--Start data.csv
some,csv,data,not,a,lot,but,enough,to,test,with
some1,csv1,data1,not1,a1,lot1,but1,enough1,to1,test1,with1
some2,csv2,data2,not2,a2,lot2,but2,enough2,to2,test2,with2
some3,csv3,data3,not3,a3,lot3,but3,enough3,to3,test3,with3
--End
Result:
$ ./t1.pl
some1
some2
some3
DBI handle 0x85fa9dc cleared whilst still active.
dbih_clearcom (sth 0x85fa9dc, com 0x85fbb48, imp DBD::AnyData::st):
FLAGS 0x182195: COMSET Active Warn RaiseError PrintError PrintWarn
ShowErrorStatement
PARENT DBI::db=HASH(0x85fa8b0)
KIDS 0 (0 Active)
IMP_DATA undef
NUM_OF_FIELDS 1
NUM_OF_PARAMS 0
Stephen
.
- Prev by Date: Re: DBD::Sybase and fork() in Perl 5.8.7
- Next by Date: forcing utf8 on selected values
- Previous by thread: DBD::Sybase and fork() in Perl 5.8.7
- Next by thread: forcing utf8 on selected values
- Index(es):
Relevant Pages
|
