Skip to Content.
Sympa Menu

freetds - [freetds] DBD::Sybase placeholder support

freetds AT lists.ibiblio.org

Subject: FreeTDS Development Group

List archive

Chronological Thread  
  • From: "James K. Lowden" <jklowden AT schemamania.org>
  • To: TDS Development Group <freetds AT lists.ibiblio.org>
  • Subject: [freetds] DBD::Sybase placeholder support
  • Date: Wed, 7 May 2008 22:08:16 -0400

I was provided with an interesting rumor today: it seems placeholders *do*
work in DBD::Sybase! I haven't been able to test it yet, but perhaps
someone out there would?

--jkl

Begin forwarded message:


The following DBD-Sybase seems to be working:


foreach $router (keys(%{$results})) {
my($oid);
foreach $oid (keys(%{$$results{$router}})) {

# now do db updates, raw first.
my ($sth);
if (!($sth = $dbh->prepare(
"insert into test_raw_interface_info (
netdevicename,
update_time,
ifDescr,
ifAlias,
ifHCInOctets,
ifHCInUcastPkts,
ifHCInMulticastPkts,
ifHCInBroadcastPkts,
ifHCOutOctets,
ifHCOutUcastPkts,
ifHCOutMulticastPkts,
ifHCOutBroadcastPkts,
ifInErrors,
ifOutErrors,
cportQosDropPktsIngress,
cportQosDropPktsEgress,
ifSpeed,
ifOperStatus )
values ( ?,
GETUTCDATE(),
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
?,
? )")))
{
warn "Could not prepare statement: " . $dbh->errstr;
next;
}

if ( ! ( $sth->bind_param(1,$router))) {
warn "Could not bind parameter 1: " . $sth->{Statement} .
$dbh->errstr;
next;
}

if ( ! ($sth->bind_param(2,$$results{$router}{$oid}{'ifDescr'},
{ TYPE => SQL_VARCHAR}))) {
warn "Could not bind parameter 2: " . $sth->{Statement} .
$dbh->errstr;
next;
}

if ( ! ($sth->bind_param(3,$$results{$router}{$oid}{'ifAlias'},
{ TYPE => SQL_VARCHAR}))) {
warn "Could not bind parameter 3: " . $sth->{Statement} .
$dbh->errstr;
next;
}

$sth->bind_param(4,$$results{$router}{$oid}{'ifHCInOctets'},
{ TYPE => SQL_BIGINT});
$sth->bind_param(5,$$results{$router}{$oid}{'ifHCInUcastPkts'},
{ TYPE => SQL_BIGINT});

$sth->bind_param(6,$$results{$router}{$oid}{'ifHCInMulticastPkts'},
{ TYPE => SQL_BIGINT});

$sth->bind_param(7,$$results{$router}{$oid}{'ifHCInBroadcastPkts'},
{ TYPE => SQL_BIGINT});
$sth->bind_param(8,$$results{$router}{$oid}{'ifHCOutOctets'},
{ TYPE => SQL_BIGINT});
$sth->bind_param(9,$$results{$router}{$oid}{'ifHCOutUcastPkts'},
{ TYPE => SQL_BIGINT});
$sth->bind_param(10,
$$results{$router}{$oid}{'ifHCOutMulticastPkts'},
{ TYPE => SQL_BIGINT});
$sth->bind_param(11,
$$results{$router}{$oid}{'ifHCOutBroadcastPkts'},
{ TYPE => SQL_BIGINT});
$sth->bind_param(12,$$results{$router}{$oid}{'ifInErrors'},
{ TYPE => SQL_BIGINT});
$sth->bind_param(13,$$results{$router}{$oid}{'ifOutErrors'},
{ TYPE => SQL_BIGINT});
$sth->bind_param(14,

$$results{$router}{$oid}{'cportQosDropPktsIngress'},
{ TYPE => SQL_BIGINT});
$sth->bind_param(15,

$$results{$router}{$oid}{'cportQosDropPktsEgress'},
{ TYPE => SQL_BIGINT});
$sth->bind_param(16,$$results{$router}{$oid}{'ifSpeed'},
{ TYPE => SQL_BIGINT});
$sth->bind_param(17,$$results{$router}{$oid}{'ifOperStatus'},
{ TYPE => SQL_INTEGER});

if ( ! $sth->execute()) {
warn "Could not execute statement: " . $sth->{Statement} .
$sth->errstr;
next;
}



This is on linux x86_64.





Archive powered by MHonArc 2.6.24.

Top of Page