#!/usr/bin/perl -w
use strict;
use DBI;

my $dbh = DBI->connect("DBI:mysql:test;host=localhost;"
    ."mysql_read_default_file=$ENV{HOME}/.my.cnf",
    undef,undef,{RaiseError => 1});

$dbh->do(qq{drop table if exists testq});
$dbh->do(qq{create table testq (i int not null, c varchar(50))});
my $sth= $dbh->prepare(qq{insert into testq values (?, ?)});
my $i = 10;
my $msg = 'tengo todo por aprender ¿quien quiere enseñarme?';
$sth->execute($i, $msg);

my @results = @{ $dbh->selectall_arrayref(qq{select * from testq})};
print "@$_\n" for @results;

$dbh->disconnect();
[download]

my $dbh = DBI->connect("DBI:mysqlPP:test;host=localhost;",
    "gmax","mysecretpwd",{RaiseError => 1});
[download]

 _  _ _  _  
(_|| | |(_|><
 _|
[download]

Hello...

Im sorry I made a major mistake...the module Im using is DBD::mysqlPP, the reason Im using the module is that my client's hosting service refuses to install the DBD::mysql module...

Anyway I wanted to say thanks for your answers and sorry for not been clear since the begining...

I tried to look for a new version of this module but it seems that I already have the newest one..I hope someone can help me sort this out...

Thank

What error message is DBI giving you? Placeholder arguments are automatically escaped so I doubt that it's the "?" in $msg that's causing the problem.

Your best bet would be to upgrade to a recent version of DBD::mysql, and if that doesn't help, maybe ask about the status yourself on the mailing list. There are many smart peoplen, even quite a few of the developers who (co-)wrote DBI or one of the DBD::* drivers, are on that list. If anybody can give you an answer, they are it.

Are you checking to make sure that each of your variables ($user,$title,$msg,$cat,$state,$country,$img,'left',$expiration,$name) have values and that each of those values match the type of data that the database is expecting? If one or more of them are undefined, you're binding 10 fields to less than 10 variables and mysql doesn't like that. Also, if a field is defined as an integer, but receives varchar, mysql doesn't like that either.

If this doesn't help, please post the dbi error message.

Ok...

Here is a test I created to see the problem...considering this code:

#!/usr/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);
use BaboonDB;

my $user = "user\@hotmail.com";
my $name = "kidd";
my $place = "CANCUN%%MEXICO";
my $title = "A test to see the problem";
my $img = "none";
my $msg = "This is a test with a question, how are you?";
my $cat = "probl";

$user = lc($user);

if($img =~ /^\s*$/){
    $img = "none";
}


$place = lc($place);

my($state,$country) = split("%%", $place); #split te place

       $country =~ s/usa/estados unidos/g;

          $country = "\u$country";
          $country =~ s/\s+(\w)/ \u$1/gi;
          $country =~ s/Ñ/ñ/gi;

          $state = "\u$state";
          $state =~ s/\s+(\w)/ \u$1/gi;

my($dbh,$sth,@data,$actual);

$dbh = BaboonDB->connect();

my $interval = "12";

#First we take the current date
   $sth = $dbh->prepare('SELECT CURRENT_DATE') or die("Couldn't prepar
+e statement: " . $dbh->errstr);
   $sth->execute() or die("Couldn't execute statement: " . $sth->errst
+r);
   $actual = $sth->fetchrow_array();
   $sth->finish;

#Now we add the date for the expiration
   $sth = $dbh->prepare('SELECT DATE_ADD("?", INTERVAL ? MONTH)') or d
+ie("Couldn't prepare statement: " . $dbh->errstr);
   $sth->execute($actual,$interval) or die("Couldn't execute statement
+: " . $sth->errstr);
   my $expiration = $sth->fetchrow_array();
   $sth->finish;

#   $msg = $dbh->quote($msg);

   $sth = $dbh->prepare('INSERT INTO anuncios (usuario,titulo,mensaje,
+categoria,estado,pais,imagen,image_align,expiracion,firma) VALUES(?,?
+,?,?,?,?,?,?,?,?)') or die("Couldn't prepare statement: " . $dbh->err
+str);
   $sth->execute($user,$title,$dbh->quote($msg),$cat,$state,$country,$
+img,'left',$expiration,$name) or die("Couldn't execute statement: " .
+ $sth->errstr);
   $sth->finish;

   $dbh->disconnect;


   exit(1);
[download]

I get this error:

DBD::mysqlPP::st execute failed: You have an error in your SQL syntax 
+near 'probl'''','Cancun','Mexico','none','left','2004-02-13','kidd',?
+)' at line 1 at C:\WIN98\TEMP\DZPRLTMP.PL line 56.
[download]

But if a get the ? out of the $msg variable the script runs fine...

Im using the DBD::mysqlPP module...

Thanks

What version of DBD::mysqlPP are you using? There's a bug in versions earlier than 0.04 that might be causing your placeholder problem. See change log for details.