Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Re: pagination script to work with SQL server

by erix (Vicar)
on May 23, 2013 at 21:05 UTC ( #1035025=note: print w/replies, xml ) Need Help??

in reply to pagination script to work with SQL server

pearlgirl where is the perl?

  • Comment on Re: pagination script to work with SQL server

Replies are listed 'Best First'.
Re^2: pagination script to work with SQL server
by Anonymous Monk on May 29, 2013 at 20:23 UTC
    I tried debugging , and I used SQL Profiler too. The sql is correct. When I copy and paste it into the SQL Server it runs perfectly fine. This is the perl code:
    my $sql = <<END_ROW2; declare \@limit int declare \@offset int set \@offset = $offset; set \@limit = $limit; declare \@idxini int declare \@idxfim int select \@idxfim = \@offset * \@limit select \@idxini = \@idxfim - (\@limit-1); WITH paging AS ( SELECT ROW_NUMBER() OVER (order by column_ID) AS rowid FROM Table1 N RIGHT OUTER JOIN Table2 NE ON NE.Event_Type = N.Event_Type ) select * from paging where rowid between \@idxini and \@idxfim order by rowid; ; END_ROW2 my $sth = $a_dbh->prepare($sql); my $rc = $sth->execute(); if (!$rc) { &pl_fatalSQLError($sql,$DBI::errstr); } my $rowArrayref=$sth->fetchall_arrayref({}); # Showing page number with link for(my $i=1;$i<$pagenum;$i++) { print "<a href='$type&page=$i'>$i</a> "; } print "<br>"; # Display result page wise foreach my $row(@$rowArrayref) { print "<br>".$$row{'column_ID'}; } print "</p>";
      oops "Anonymous" was me :) Thought I was logged in

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1035025]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (8)
As of 2017-02-27 19:01 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (392 votes). Check out past polls.