my ($dbh) = @_;
my ($bbt, $wmr);
my $sql = 'select BBTicker, WMRic from FXSpots where id = 218';
my $sth = $dbh->prepare( $sql );
$sth->execute() || die "ERROR Unable to execute sql statment $sql..." ;
$sth->bind_columns(\$bbt, \$wmr);
$sth->fetch;
print ("BBticker = $bbt WMRic = ");
}
####
my $sql = 'select * from InterestRates where ID = 10';
##
##
!! info: '' CLEARED by call to prepare method
-> prepare for DBD::ODBC::db (DBI::db=HASH(0x37850d0)~0x3784ff8 'select BBTi
cker from FXSpots where id = 218') thr#109fc8
SQLPrepare select BBTicker from FXSpots where id = 218
SQLPrepare = 0
<- prepare= ( DBI::st=HASH(0x3785630) ) [1 items] at mungeMarketData.pl line
199 via at mungeMarketData.pl line 62
-> execute for DBD::ODBC::st (DBI::st=HASH(0x3785630)~0x37855d0) thr#109fc8
+dbd_st_execute(3487aa8)
dbd_st_finish(3487aa8)
outparams = 0
!!dbd_error2(err_rc=0, what=st_execute/SQLExecute, handles=(36f4980,174900,397b780)
dbd_describe done_desc=0
dbd_describe SQLNumResultCols=0 (columns=1)
now using col 1: type = UNICODE VARCHAR (-9), len = 202, display size = 202, prec = 50, scale = 0
Bind 1: type = UNICODE CHAR(-8), buf=3422448, buflen=202
have 1 fields
-dbd_st_execute(3487aa8)=0
<- execute= ( '0E0' ) [1 items] at mungeMarketData.pl line 200 via at mungeMarketData.pl line 62
-> bind_columns in DBD::_::st for DBD::ODBC::st (DBI::st=HASH(0x3785630)~0x37855d0 SCALAR(0x3780880)) thr#109fc8
1 -> FETCH for DBD::ODBC::st (DBI::st=HASH(0x37855d0)~INNER 'NUM_OF_FIELDS') thr#109fc8
1 <- FETCH= ( 1 ) [1 items] at C:/Perl64/lib/DBI.pm line 1870 via at mungeMarketData.pl line 201
1 -> bind_col in DBD::_::st for DBD::ODBC::st (DBI::st=HASH(0x37855d0)~INNER 1 SCALAR(0x3780880) undef) thr#109fc8
1 <- bind_col= ( 1 ) [1 items] at C:/Perl64/lib/DBI.pm line 1881 via at mungeMarketData.pl line 201
<- bind_columns= ( 1 ) [1 items] at mungeMarketData.pl line 201 via at mungeMarketData.pl line 62
-> fetch for DBD::ODBC::st (DBI::st=HASH(0x3785630)~0x37855d0) thr#109fc8 SQLFetch rc 100 dbd_st_finish(3487aa8)
<- fetch= ( undef ) [1 items] at mungeMarketData.pl line 202 via at mungeMarketData.pl line 62
<> DESTROY(DBI::st=HASH(0x3785630)) ignored for outer handle (inner DBI::st=HASH(0x37855d0) has ref cnt 1)
-> DESTROY for DBD::ODBC::st (DBI::st=HASH(0x37855d0)~INNER) thr#109fc8
<- DESTROY= ( undef ) [1 items] at mungeMarketData.pl line 62 via at mungeMarketData.pl line 62
dbih_clearcom 0x37855d0 (com 0x384f4a8, type 3) done.
<> DESTROY(DBI::db=HASH(0x37850d0)) ignored for outer handle (inner DBI::db=HASH(0x3784ff8) has ref cnt 1)
-> DESTROY for DBD::ODBC::db (DBI::db=HASH(0x3784ff8)~INNER) thr#109fc8
<- DESTROY= ( undef ) [1 items] at mungeMarketData.pl line 63 via at mungeMarketData.pl line 63
dbih_clearcom 0x3784ff8 (com 0x396e1d8, type 2) done.
-- DBI::END ($@: , $!: )
!! info: '' CLEARED by call to disconnect_all method
-> disconnect_all for DBD::ODBC::dr (DBI::dr=HASH(0x3784950)~0x3784a10) thr#109fc8
<- disconnect_all= ( '' ) [1 items] at C:/Perl64/lib/DBI.pm line 740 via at mungeMarketData.pl line 63
BBticker = WMRic = ! <> DESTROY(DBI::dr=HASH(0x3784950)) ignored for outer handle (inner DBI::dr=HASH(0x3784a10) has ref cnt 1)
! -> DESTROY in DBD::_::common for DBD::ODBC::dr (DBI::dr=HASH(0x3784a10)~INNE
R) thr#109fc8
! <- DESTROY= ( undef ) [1 items] during global destruction
dbih_clearcom 0x3784a10 (com 0x36f47f8, type 1) done.