http://www.perlmonks.org?node_id=11009


in reply to ODBC question

Yea, there's a way around this. 
sub mySQLQuote {
  my ($value,$maxlen) = @_;
  $value =~ s/\'/\'\'/g;
  $value = substring($value,1,$maxlen);
  return $value;
}
val1 = mySQLQuote(1);
$val2 = mySQLQuote("'");

$db->Sql("INSERT INTO Comment ( Field1, Field2 )VALUES ('$val1', '$val
+2') ");

[download]

Replies are listed 'Best First'.
RE: RE: ODBC question
by mr_ayo (Beadle) on May 10, 2000 at 22:04 UTC
    Man I always do that! Stupid stupid.

    Your assignments should read:
    $val1 = mySQLQuote(1,1);
$val2 = mySQLQuote('1',3);

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom