Sorry... I should have posted this before. My code is as follows.
my $dbh = DBI->connect("DBI:XBase:m:\\") or die $DBI::errstr;
my $sth = $dbh->prepare("select custnum FROM cms where order = 1002");
$sth->execute() or die $sth->errstr();
my @data;
my $i = 0;
while (@data = $sth->fetchrow_array()) {
print "$data$i\n";
$i++;
}
Here's the code in XBase.pm that's giving the error. Line 337 is
$xbase = new XBase(%opts) or do
# let's see if we've already opened the table
my $xbase = $dbh->{'xbase_tables'}->{$table};
if (not defined $xbase)
{ # if not, open the table now
my $filename = $dbh->{'Name'} . '/' . $table;
my %opts = ('name' => $filename);
$opts{'ignorememo'} = 1 if $dbh->{'xbase_ignorememo'};
# try to open the table using XBase.pm
$xbase = new XBase(%opts) or do
{
$sth->DBI::set_err(3, "Table $table not found: "
. XBase->errstr());
return;
};
$dbh->{'xbase_tables'}->{$table} = $xbase;
}
In reply to Re: Re: Seemingly Internal DBD-XBase Error
by mvaline
in thread Seemingly Internal DBD-XBase Error
by mvaline
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |