use DBI;
$dbh = DBI->connect('dbi:ODBC:driver=microsoft access driver (*.mdb);'
+ . "dbq=$db_path");
my $note = "Order";
$sth = $dbh->prepare("INSERT INTO tblCustomer ( BranchID, LastName, Fi
+rstName, Street, Town,
County, PostCode, PhoneNumber, Email, Note )
SELECT ? AS Expr1, ? AS Expr2, ? AS Expr3, ? AS Expr4, ? AS Expr5, ? A
+S Expr6, ? AS Expr7, ?
AS Expr8, ? AS Expr9, ? AS Expr10;
");
## MSAccess is a piece of crap so you have to do this to fix anything
+inserted into
## a memo field ...
$sth->bind_param( 10, $note, DBI::SQL_LONGVARCHAR );
$sth->execute(
'L1',
$secondname,
$firstname,
$order->{addresses}->{delivery}->{street},
$order->{addresses}->{delivery}->{city},
$order->{addresses}->{delivery}->{county},
$order->{addresses}->{delivery}->{postcode},
$order->{phone},
$order->{email},
$note
) or die "Could not update DB!";
Anyone have a clue? The error message just says that the SQL is improperly formatted, which it does not do if I take out the 'note' line, which is the Memo. |