• Publicidad

Perl y SQL Server 7

Todo acerca de las bases de datos que existen: SQL, MySQL, Oracle, Postgres, CSV, etc.

Perl y SQL Server 7

Notapor 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
dolisguilarte
Perlero Nuevo
Perlero Nuevo
 
Mensajes: 21
Registrado: 2012-03-07 16:33 @731

Publicidad

Re: Perl y SQL Server 7

Notapor dolisguilarte » 2012-03-14 06:49 @326

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
dolisguilarte
Perlero Nuevo
Perlero Nuevo
 
Mensajes: 21
Registrado: 2012-03-07 16:33 @731

Re: Perl y SQL Server 7

Notapor explorer » 2012-03-14 07:07 @338

¡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.
JF^D Perl Programming Language
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 12609
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Perl y SQL Server 7

Notapor dolisguilarte » 2012-03-14 08:48 @408

¡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.010 segundos, usando GeSHi 1.0.8.4
Última edición por explorer el 2012-03-14 10:02 @459, editado 1 vez en total
Razón: Formateado de código con Perltidy y poner marcas Perl
dolisguilarte
Perlero Nuevo
Perlero Nuevo
 
Mensajes: 21
Registrado: 2012-03-07 16:33 @731


Volver a Bases de datos

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados