Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

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
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='page.pl?PageType=$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?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1035025]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (16)
As of 2014-11-25 21:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (158 votes), past polls