when i print out $query i get
insert into Held_Receipts values (?,?,?,?,?,?,?,?)
my code is as follows:
# !/usr/bin/perl -w
use strict;
use DBI qw(:sql_types);
my $dsn = "dbi:ODBC:Daily_Rec";
my $dbh = DBI->connect($dsn,'','',
{RaiseError=>1,PrintError=>1,AutoCommit=>1} );
open(DAT, "c:/Temp/heldreceipts_TempFile.txt")
or die "could not open Held Receipts file: $!";
my $query = qq{insert into Held_Receipts values (?,?,?,?,?,?,?,?)};
print $query;
my $sth = $dbh->prepare($query)
or die "cannot prepare query: $DBI::errstr";
while(<DAT>)
{
chomp;
my @line = split /\|/;
$sth->execute(@line)
or die "Execute error: $DBI::errstr";
}
$sth->finish();
$dbh->disconnect();
There are no errors when i run this code. But the table Held_Receipts is blank.
If i use the import feature in access to import the text file, I get all my records into the table Held_Receipts
I am completely stumped on this one!!! | [reply] |