Consulta a mSQL

#!/usr/local/bin/perl # # # Módulo: pr_msql.pl # Author: David Pérez # Fecha: 25 de Febrero de 1999 # Modificaciones: # Comentarios: Programa de pruebas para el acceso a una tabla de la BD que tenemos en Hiway. $cart_version = '1.18'; # require 'pr_msql.cfg'; use lib '/u/local/msql2/perl'; # include for mSQL version 2+ use Msql; $dbh = Connect Msql; SelectDB $dbh "orches"; $sth = ListFields $dbh "Pruebas"; # HTML. print "Content-type: text/html\n\n"; print "
"; print $dbh; print "

# Respuesta a ListFields

"; print $sth; $sth = Query $dbh "INSERT INTO Pruebas VALUES (13,3.14,'D','David','Hughes')"; print "

# Respuesta a INSERT

"; print $sth; $sth = Query $dbh "SELECT * FROM Pruebas"; print "

# Respuesta a SELECT

"; print $sth; print "
Filas", $sth->numrows; print "
Columnas", $sth->numfields; @arr = ListDBs $dbh; print "

# Respuesta a ListDBs

"; print @arr; @arr = ListTables $dbh; print "

# Respuesta a ListTables

"; print @arr; # @arr = FetchRow $sth; # DataSeek $sth $row_number; print "
";