Página 1 de 1

Perl y SQL Server 7

NotaPublicado: 2012-03-13 13:05 @586
por dolisguilarte
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

Re: Perl y SQL Server 7

NotaPublicado: 2012-03-14 06:49 @326
por dolisguilarte
Yo misma me pregunto y me respondo... :lol: anexo página con ejemplo bien simple y fácil para conectar a bd bien sea desde ODBC o ADO.

http://dolio.lh.net/~apw/doc/HOWTO/HOWT ... Server.pdf


Dolis

Re: Perl y SQL Server 7

NotaPublicado: 2012-03-14 07:07 @338
por explorer
¡Genial!

Hace mucho que estaba buscando una cosa así. No por mí que ya hace mucho tiempo que no uso Windows, si no para porque de vez en cuando entra alguien al foro y pregunta por esto mismo.

Muchas gracias por el aporte, dolisguilarte.

De todas maneras, de esto ya hemos comentado algo.

Re: Perl y SQL Server 7

NotaPublicado: 2012-03-14 08:48 @408
por dolisguilarte
¡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
  1. use DBI;
  2. use HTMLTMPL;
  3.  
  4. # Create a template object and load the template source.
  5. $templ = new HTMLTMPL;
  6. $templ->src('conexionbd.html');
  7. my $host     = 'XX.3XX.XXX.XXX';
  8. my $database = '**********';
  9. my $user     = '***********';
  10. my $auth     = '*********';
  11.  
  12. # DBD::ADO
  13. $dsn = "Provider=sqloledb;Trusted Connection=yes;";
  14. $dsn .= "Server=$host;Database=$database";
  15. my $dbh
  16.     = DBI->connect( "dbi:ADO:$dsn", $user, $auth,
  17.     { RaiseError => 1, AutoCommit => 1 } )
  18.     || die "Database connection not made: $DBI::errstr";
  19.  
  20. #Prepare a SQL statement
  21. my $sql = "SELECT id_cgi,cgi  FROM cgi ";
  22. my $sth = $dbh->prepare($sql);
  23.  
  24. #Execute the statement
  25. $sth->execute();
  26. my ( $id_cgi, $cgi );
  27.  
  28. # Bind the results to the local variables
  29. $sth->bind_columns( undef, \$id_cgi, \$cgi );
  30.  
  31. #Retrieve values from the result set
  32.  
  33. while ( $sth->fetch() ) {
  34.     print "$id_cgi, $cgi\n";
  35. }
  36.  
  37. #Close the connection
  38. $templ->output('Content-Type: text/html');
  39. $sth->finish();
  40.  
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4