Foro - Perl en Español

por **Negrazo49** » 2021-09-22 13:53 @620

Hola a todos.

Tengo un par de reportes en los que leo de una simple tabla y trato de desplegar todos los registros y funciona bien, solo que en ambos está omitiendo el primer registro.

¿Será cosa del controlador?

Odio Windows, pero así me lo pidió un cliente y ¡ni modo! Lo que el cliente pida.

Yo sé que en Windows se tiene que crear un origen de datos y estos son ODBC.
¿Alguien tendrá un ejemplo de conexión?
Yo creo que mi problema va por ahí.

Estoy utilizando Strawberry Perl y Mysql.

Gracias de antemano.
Negrazo49.

Bienvenido a los foros de Perl en Español, Negrazo49.

¿Usas DBD::ODBC?

Ver un poco del código inicial ayudaría. Al menos, crear un programa lo más pequeño posible que demuestre que no funciona.

¿Has visto los mensajes de error?

Por este foro encontrarás algunos mensajes sobre ODBC. Usa esa palabra en la caja de búsqueda.

por **Negrazo49** » 2021-09-22 19:14 @843

Estimado explorer:
Aqui te mando el paquete de coneccion:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package connectDB;
use DBI;
 
# Configurar el acceso a la DB
sub Conn
  {
my $m = DBI->connect("DBI:mysql:camporeal",'root','');
{RaiseError=> 1}) or die('No me puedo conectar a la DB');
return $m;
    }
return 1;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Y aqui envio la parte del programa que omite el 1er registro, yo no le encuentro error alguno.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!"c:\\strawberry\\perl\\bin\\perl.exe"
 
require 'connectDB.pl';
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use CGI qw(param uploadInfo);
use CGI;
use CGI ':standard';
use CGI::Session;
 
my @doc1 = "";
my $j = 0;
my $cic = "";
my $con = "";
 
my $cgi = new CGI;
my $CGISESSID = $cgi->param('CGISESSID');
my $session =
   CGI::Session->load("driver:File",$CGISESSID,{'Directory'=>'/tmp/'})
       or die CGI::Session->errstr;
 
print "Content-type: text/html\n\n";
print start_html(-title=>'CampoReal', -bgcolor=>'#cccccc');
 
# Configurar el acceso a la DB
$con = connectDB::Conn($m)
  or die "No puedo conectarme  a la database\n";
 
print font ({-size=>'4',  -color=>'Red'},'Casas CampoReal');
print "<BR>";
 
print "<TABLE align='center' border='3' >\n";
print "<TR><th>Cont.</th><th>Nombre</th><th>Direccion</th><th>Email</th><th>Telefono</th><th>Celular</th><th>Status</th></TR>\n";
 
my $sth1 = $con->prepare("SELECT  nombre,direccion,email,telefono,celular,status FROM casas where status = 'Activo' order by direccion ");
$sth1->execute()or die "No puedo leer Casas....";
@doc1 = $sth1->fetchrow_array;
print basefont ({-face=>'Arial'});
print "<H2 align='center'><B>Relacion de Casas</B></H2>";
while (@doc1 = $sth1->fetchrow_array)
{
   $j++;
   print "<tr>";
   print "<B><td>$j</td><td>$doc1[0]</td><td>$doc1[1]</td><td>$doc1[2]</td><td>$doc1[3]</td><td>$doc1[4]</td><td>$doc1[5]</td></B>";
   print "</tr>\n";
}
 
print "</TABLE>\n";
 
     print "<BR>";
    print button(-name=>'back', -value=>'Atras', -onClick=>'history.go(-1)');
 
exit;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Espero que puedas ayudarme.
Gracias.

por **explorer** » 2021-09-22 21:04 @919

El primer registro lo lees en la línea 37, pero no haces uso de él. Por eso lo pierdes.

Quita la línea 37.

por **Negrazo49** » 2021-09-23 11:11 @508

Muchas gracias, explorer, ya funcionó bien.

Estaba duplicando esa instrucción en la línea 40.
Asunto resuelto. Se cierra este hilo.

Saludos desde Guadalajara, México.

Foro - Perl en Español

Conección a Mysql en Windows 7

Conección a Mysql en Windows 7

Publicidad

Re: Conección a Mysql en Windows 7

Re: Conección a Mysql en Windows 7

Re: Conección a Mysql en Windows 7

Re: Conección a Mysql en Windows 7

¿Quién está conectado?