Problem in fetching columns from select query

[rkrish]

Hi I have a select query that fetches three columns and i need to store them in perl variables. The code I'm having and is not working is as follows: I have used last in while loop to ensure that control should come out of loop after first iteration.

                    my ( $AcctNbr, $CycCd, $CycEndDt  );
                    my $dly1 = $lda ->prepare("select acct_nbr,cycle_c
+d,cycle_end_dt  from USAGE_FLATF_DLY_INDEX_1 where acct_nbr= ? order 
+by cycle_end_dt ");
                    
                    $dly1->bind_param(1,$Acct);
                    
                    
                       $dly1->execute();
                        $dly1->bind_col(1,\$AcctNbr);
                        $dly1->bind_col(2,\$CycCd);
                        $dly1->bind_col(3,\$CycEndDt);

                    while ( $dly1->fetchrow_arrayref()) 
                    {

                        
                        print ("Acct Nbr is $AcctNbr ,Cycle cd is $Cyc
+Cd,cycle end date is $CycEndDt ");
                        rerateandupdate($AcctNbr);
                        last;
                    }

[NetWallah]

Since we have not yet developed the ability to read your screen telepathically, you will need to be more specific than "is not working".

Please specify what error, if any you get, and if none, what you expect, and what you see. The location of the line that fails would help too.

Are you sure $Acct contains what you expect it to ? Does it match $AcctNbr after the "execute" ? Does it exist in the database table USAGE_FLATF_DLY_INDEX_1 ?

[Jenda]

The combination of bind_col() and fetchrow_arrayref() looks suspicious. So do you want a reference to an array containing the data or do you want to set the bound variables? I believe you should use $dly1->fetch() instead of $dly1->fetchrow_arrayref().