Re^3: dbi placeholders

my %rec;
my $sth1 = $dbh_0->prepare ("select * from production.computersystem")
+;
my @fields = @{$sth1->{NAME_lc}};
$sth1->bind_columns (\@rec{@{$sth1->{NAME_lc}}});

my $sth2 = do {
    local $" = ", ";
    my $sql =    "insert into barrycomputersystem (@fields) values (@{
+[('?')x@fields]})";
    $dbh_1->prepare ($sql);
    };

$sth2->bind_columns (\@rec{@fields});
while ($sth1->fetch) {
    $sth2->execute;
    }
[download]

this is very interesting but get an error: 'statement has no result column' in the $sth2->bind_columns line

Comment on Re^3: dbi placeholders Download Code

Replies are listed 'Best First'.
Re^4: dbi placeholders by Tux (Canon) on Aug 06, 2014 at 14:25 UTC
Sorry, my bad. `bind_columns` doesn't work on inserts :( `# Delete the bind_columns line for sth2 while ($sth1->fetch) { $sth2->execute (@rec{@fields}); }` [download] Enjoy, Have FUN! H.Merijn	[reply] [d/l] [select]
Re^5: dbi placeholders by fionbarr (Friar) on Aug 06, 2014 at 14:38 UTC
deleted the bind but another error: fetch failed: Function sequence error (SQL-HY010)	[reply]
Re^6: dbi placeholders by poj (Abbot) on Aug 06, 2014 at 17:48 UTC
Try executing `$sth1` `my $sth1 = $dbh_0->prepare ("select * from log"); my @fields = @{$sth1->{NAME_lc}}; $sth1->execute(); $sth1->bind_columns (\@rec{@{$sth1->{NAME_lc}}});` [download] poj	[reply] [d/l] [select]
Re^6: dbi placeholders by Tux (Canon) on Aug 06, 2014 at 14:47 UTC
Is this related? I don't have MS-SQL. Enjoy, Have FUN! H.Merijn	[reply]
Re^6: dbi placeholders by marto (Cardinal) on Aug 06, 2014 at 14:43 UTC
Did you research this error code?	[reply]
Re^7: dbi placeholders by fionbarr (Friar) on Aug 06, 2014 at 15:00 UTC


Your skill will accomplish what the force of many cannot
	PerlMonks