Hi
The error messages I'm getting from the attempted insert are:
C:\perlp>perl t.pl
DBD::SQLite::db do failed: no such column: cash at t.pl line 17, <DATA> line
1.
DBD::SQLite::db do failed: no such column: cash at t.pl line 17, <DATA> line
2.
DBD::SQLite::db do failed: no such column: credit at t.pl line 17, <DATA>
line 3
DBD::SQLite::db do failed: no such column: cash at t.pl line 17, <DATA> line
4.
DBD::SQLite::db do failed: no such column: credit at t.pl line 17, <DATA>
line 5
DBD::SQLite::db do failed: no such column: credit at t.pl line 17, <DATA>
line 6
The code and the input data are:
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
my $dbh = DBI->connect("dbi:SQLite:dbname=mydb.txt","","");
die $! unless $dbh;
# customer vendor transType productCode appNumber resultCode
$dbh->do(qq{ CREATE TABLE sales
(customer int, vendor int, type char(10),
product int, app int, result int)
});
my $sql_fmt = "INSERT INTO sales VALUES(%d, %d, %s, %d, %d, %d)";
while(<DATA>) {
my $sql = sprintf $sql_fmt, split;
$dbh->do($sql);
}
__DATA__
10112 6768 cash 01020 00780 1
10112 6768 cash 01020 00780 0
10112 6768 credit 00040 01010 1
10112 3650 cash 01840 01200 0
14100 2410 credit 02840 00910 0
14100 5220 credit 01020 00780 1
I don't know why I can't insert for the type field.
Thanks,
Chris
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
