Interpolate binds into SQL on error


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Interpolate binds into SQL on error - DBI subclassing

by jZed (Prior)

on Oct 11, 2005 at 18:51 UTC ( #499253=snippet: print w/replies, xml )

Need Help??

    Description:
     Here's a minimal subclass of DBI that illustrates how to subclass and adds interpolated binds to errors (i.e. it replaces SQL placeholders with the bind values).  This isn't necessarily how your DBMS "sees" the statement, but it does give you a cut-and-pasteable approximation. 
  

update Added Corion's fix to support questions marks in the bind values.

package MyDBI;
use base qw(DBI);

package MyDBI::db;
use base qw(DBI::db);

package MyDBI::st;
use base qw(DBI::st);

sub execute {
    my($sth,@binds)=@_;
    my $rv = eval { $sth->SUPER::execute(@binds) };
    return $rv unless $@;
    my $errmsg = $sth->errstr;
    my $err    = $sth->err   ;
    my $stmt = $sth->{Statement};
    @binds = map {
        $sth->{Database}->quote($_) 
        unless DBI::looks_like_number($_);
        $_;
    } @binds;
    $stmt =~ s/\?/shift @binds/eg;
    return $sth->set_err(
         $err,
         sprintf "Execution Error: %s\nReconstructed SQL=\n<\n%s\n>\n"
               , $errmsg, $stmt
    );
}
1;

Comment on Interpolate binds into SQL on error - DBI subclassing Download Code

Replies are listed 'Best First'.
Re: Interpolate binds into SQL on error - DBI subclassing by Corion (Patriarch) on Oct 11, 2005 at 19:13 UTC
This snippet will fail if the interpolated values themselves contain question marks - I would go for an eval-replace in the inner loop: `for my $b(@binds) { $b=$sth->{Database}->quote($b) unless DBI::looks_like_number($b); }; $stmt =~ s/\?/shift @binds/eg;` [download]	[reply] [d/l]

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: snippet [id://499253]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others chanting in the Monastery: (7)

As of 2023-12-06 14:26 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?