if ($filedes="agenda")
{
$path="\'$agendadir/$filedes/$newfilename'";
$date="\'$day-$month-$year\'";
@update=[$path,$date];
my $sth=$dbh->prepare('UPDATE meeting SET AGENDA=? WHERE MEETING_DATE=?') or die "Couldn't prepare stateme\
nt: " . $dbh->errstr;
for (@update)
{
eval
{
$sth->bind_param(1,$_->[0],SQL_VARCHAR);
$sth->bind_param(2,$_->[1],SQL_DATE);
}
$sth->execute()or die "Couldn't execute statement: " . $sth->errstr;
$dbh->commit();
}
[perl]
my $sth=$dbh->prepare('UPDATE meeting SET AGENDA=? WHERE MEETING_DATE=?') or die "Couldn't prepare statement: " . $dbh->errstr;
$sth->execute(@update)or die "Couldn't execute statement: " . $sth->errstr;
[/perl]
On second glance, you're adding explicit quotes to your strings and then using bind_params()... You shouldn't need that. Just define them normally, ie
[perl]
$date="$day-$month-$year";
[/perl]
Sean
$path="$agendadir/$filedes/$newfilename";
print"Iam working till here ";
$date="$day-$month-$year";
my $sth=$dbh->prepare('UPDATE meeting SET AGENDA=? WHERE MEETING_DATE=?') or die "Couldn't prepare statement: " . $dbh->errstr;
print"help";
@update=[$path,$date];
$sth->bind-param(1,$path,SQL_VARCHAR);
$sth->bind-param(2,$date,SQL_DATE);
$sth->execute(@update)or die "Couldn't execute statement: " . $sth->errstr;
print"why is this not working";
$sth->finish();