Foro - Perl en Español

por **chelusan** » 2007-05-09 05:43 @279

Tengo que resolver algo que no actualiza bien en la base de datos. Es la primera vez que uso Perl. El archivo conectDB tiene como 3 formas de conectarse. Esto es lo que pone en el archivo

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
package ConectarDB;
use strict;
use DBI;

# variables a editar
my$db_user="xxxxxx";
my$db_pass="1234";
my$host_name="xxxxx";
my$db_name="1234";
my$db_name2="1234";
my$db_name3="xxxxxx";

my$q_string="DBI:mysql:host=$host_name;database=$db_name";
my$q_string2="DBI:mysql:host=$host_name;database=$db_name2";
my$q_string3="DBI:mysql:host=$host_name;database=$db_name3";

subconnect{
return(DBI->connect($q_string,$db_user,$db_pass,
{PrintError => 0, RaiseError => 1}));
}

sub connect2{
return(DBI->connect($q_string2,$db_user,$db_pass,
{PrintError => 0, RaiseError => 1}));
}

sub connect3{
return(DBI->connect($q_string3,$db_user,$db_pass,
{PrintError => 0, RaiseError => 1}));
}

1;Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Más adelante se accede a la base de datos con el connect. Se actualiza un campo que sí funciona. Luego se conecta mediante connect2 y da fallos al modificar unos campos. ¿No es necesario desconectar y luego volver a conectar?, porque en el fichero éste no cierra la conexión hasta el final.

No tengo mucha idea de esto, tenerme paciencia.

gracias

Las funciones de base de datos suelen devolver los errores en la variable $DBI::errstr, por lo que es posible saber porqué han fallado. Y la base de datos también se le puede indicar que genere un log de actividad.

El número de conexiones abiertas puede ser muy alto, pero depende del sistema operativo. La cuestión es que cada conexión se almacene en su variable escalar correspondiente.

Por ejemplo, en $dbh2 guardas una conexión a una base de datos. Mientras no la cierres, podrás preguntar y acceder a esa base de datos.

Sitio web · por **monoswim** » 2007-05-10 08:52 @411

Solo un detalle, ¿es correcto que el prepare de ese código lo hagas a dbh y no a dbh2?

Saludos

por **chelusan** » 2007-05-10 09:16 @427

si, cambiando eso tampoco me funciona

por **explorer** » 2007-05-12 15:52 @703

Vaya... no me he dado cuenta del error hasta que lo he visto en el otro foro: estás usando comilla simple dentro del prepare. Ha de ser doble para que el valor de $distribuidor aparezca dentro de la sentencia sql, no '$distribuidor' de forma literal.

por **chelusan** » 2007-05-14 06:41 @320

gracias explorer, era justo por eso

Foro - Perl en Español

Conectarse a la base de datos

Conectarse a la base de datos

Publicidad

¿Quién está conectado?