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!!!