Foro - Perl en Español

por **dolisguilarte** » 2012-03-13 13:05 @586

Hola, necesito acceder a SQL Server 7 y duplicar los registros en la misma tabla,
pero antes quisiera saber si hay un ejemplo básico super simple que me permita aterrizar de
la forma de conectarme a la base de datos, que me sirva para entender cómo opera...

Agradezco su colaboración.

Dolis

¡Qué bien! De hecho yo utilicé el ejemplo para DBD::ADO y funcionó a la primera. No soy muy amante de trabajar con ODBC por la dependencia de configuración en la máquina donde va a correr la aplicación... pero ya listo...

explorer, ahora bien, tengo otra duda. No sé si me puedas ayudar. ¿Cómo hago para saber cuántas columnas tiene una tabla? Es que necesito recorrer los datos por el número de columna y no por el nombre de las mismas. Anexo un ejemplo en donde indico los nombres de los campos, pero imaginemos que puede ser otra tabla con X números de campos...
Espero haberme explicado bien...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use DBI;
use HTMLTMPL;
 
# Create a template object and load the template source.
$templ = new HTMLTMPL;
$templ->src('conexionbd.html');
my $host     = 'XX.3XX.XXX.XXX';
my $database = '**********';
my $user     = '***********';
my $auth     = '*********';
 
# DBD::ADO
$dsn = "Provider=sqloledb;Trusted Connection=yes;";
$dsn .= "Server=$host;Database=$database";
my $dbh
    = DBI->connect( "dbi:ADO:$dsn", $user, $auth,
    { RaiseError => 1, AutoCommit => 1 } )
    || die "Database connection not made: $DBI::errstr";
 
#Prepare a SQL statement
my $sql = "SELECT id_cgi,cgi  FROM cgi ";
my $sth = $dbh->prepare($sql);
 
#Execute the statement
$sth->execute();
my ( $id_cgi, $cgi );
 
# Bind the results to the local variables
$sth->bind_columns( undef, \$id_cgi, \$cgi );
 
#Retrieve values from the result set
 
while ( $sth->fetch() ) {
    print "$id_cgi, $cgi\n";
}
 
#Close the connection
$templ->output('Content-Type: text/html');
$sth->finish();
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Perl y SQL Server 7

Perl y SQL Server 7

Publicidad

Re: Perl y SQL Server 7

Re: Perl y SQL Server 7

Re: Perl y SQL Server 7

¿Quién está conectado?