Foro - Perl en Español

por **Emstro** » 2010-12-10 16:37 @734

La siguiente consulte se me cae en el while() y solo cuando busco una sola vocal, no entiendo por qué.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if (defined $dbh) {
 
        if (defined $dp_s) {
 
                $sql = q/
                                SELECT    DP_CODE,
                                          DP_NAME,
                                          DP_STATUS,
                                          DP_ISI_OFFICE,
                                          DP_COUNTRY,
                                          DP_FORMATTING_OFFICE,
                                          LOCAL_DP_NAME
                                FROM      DP
                                WHERE     UPPER(DP_CODE)  LIKE ?
                                   OR     UPPER(DP_NAME)  LIKE ?
                        /;
 
 
                if ((defined $start) && (defined $end)) {
                        $aux = $sql;
                        $sql = undef;
                        $sql = "Select * From (Select a.*, ROWNUM r From ($aux) a Where ROWNUM <= $end) Where r>=$start";
                }
                else {
                        $start = 1;
                        $end   = 50;
                }
 
 
                my $sth = $dbh->prepare($sql);
                $keywords = uc($keywords);
                $sth->execute("%$keywords%","%$keywords%");
 
                my $cont=0;
                while (my $result = $sth->fetchrow_hashref) {
                        $cont++;
                        next if (($cont >= 51) && (!defined $total));
                        push @DATA, $result;
                }
 
 
                $total = $sth->rows if (!defined $total);
                $end = $total  if ($end > $total);
                $sth->finish;
        }
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Saludos a todos los perleros de Chile, ¡je,je,je,je!

No estoy seguro, pero creo que en lugar de
Select * From (Select a.*, ROWNUM r From ($aux) a Where ROWNUM <= $end) Where r>=$start, es
Select * From (Select a.*, ROWNUM r From ($aux) a Where r <= $end) Where r>=$start

De todas maneras, esto de hacer una consulta en mitad de otra, no me gusta nada. ¿No es en estos casos donde habría que poner JOIN?

Foro - Perl en Español

Búsqueda de caracteres

Búsqueda de caracteres

Publicidad

Re: Búsqueda de caracteres

¿Quién está conectado?