Página 1 de 1
Conección a Mysql en Windows 7
Publicado:
2021-09-22 13:53 @620por Negrazo49
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.
Re: Conección a Mysql en Windows 7
Publicado:
2021-09-22 15:49 @701por explorer
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.
Re: Conección a Mysql en Windows 7
Publicado:
2021-09-22 19:14 @843por Negrazo49
Estimado explorer:
Aqui te mando el paquete de coneccion:
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.
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.
Re: Conección a Mysql en Windows 7
Publicado:
2021-09-22 21:04 @919por explorer
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.
Re: Conección a Mysql en Windows 7
Publicado:
2021-09-23 11:11 @508por Negrazo49
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.