Ok here's the code:
=========================================================
my $DSN = "DBI:XBase:../htdocs/tmp/data/";
my $dbh = DBI->connect("$DSN") or die "LINE21: " . $DBI::errstr;
$dbh->{RaiseError} = 1;
my $sql = qq{CREATE TABLE users
(
Created CHAR(30),
Name CHAR(50),
Email CHAR(50),
Entered CHAR(30))
};
$dbh->do( $sql ) or die "LINE32: " . $dbh->errstr();
*********************************************************
Here's an excerpt from the trace:
=========================================================
-> do in DBD::_::db for DBD::XBase::db
(DBI::db=HASH(0x1f0d8d4)~0x1f0d8e0 'CREATE TABLE users
(
Created CHAR(30),
Name CHAR(50),
Email CHAR(50),
Entered CHAR(30))
') <]########################
2 -> prepare for DBD::XBase::db (DBI::db=HASH(0x1f0d8e0)~INNER 'CREATE
TABLE users
(
Created CHAR(30),
Name CHAR(50),
Email CHAR(50),
Entered CHAR(30))
' undef) <]######################## What's This?
2 <- prepare= DBI::st=HASH(0x1f0d9dc) at DBI.pm line 930.
-> execute for DBD::XBase::st (DBI::st=HASH(0x1f0d9dc)~0x1f0b530)
!! ERROR: 10 'Error reading field description:
'
<- execute= undef at DBI.pm line 931.
!! ERROR: 10 'Error reading field description:
'
<- do= undef at xbase1.pl line 34.
*********************************************************
The question is why is this failing? It seems to be adding an "undef" after
the SQL statement.
Win2k, ActivePerl 5.6.0, DBD::Xbase v0.210
Thanks in advance,
Grant M.
[EMAIL PROTECTED]
