MySQLTcl: instalación e introducción
Instalación de MySQLTcl
Cómo instalar la aplicación MySQLTcl para poder manejar bases de datos con el lenguaje MySQL con nuestros scripts Tcl. Esta instalación es en Windows XP y XAMPP. Puede que sea necesario consultar: XAMPP, instalar un servidor local. Para saber más (o casi todo) sobre MySQL, MySQL con clase.
– Descargar MySQLTcl y los archivos DLL (binarios) de la página del proyecto y descomprimir los archivo descargados en la carpeta /lib de la instalación de Tcl (si se instaló Tcl en C:/Tcl, los archivos deberán estar en C:/Tcl/lib). Todo lo necesario en la página del proyecto: http://www.xdobry.de/mysqltcl/
– Para comprobar que todo ha ido bien basta con abrir el Wish y teclear
package require mysqltcl
y nos devolverá la versión de MySQLTcl.
Interesante aportación de la página dossy.org: Un cliente MySQL usando Tcl/Tk
Introducción a MySQLTcl
Conexión
Perfectamente explicado en este interesante sitio sobre Linux. Aquí sólo les dejo el código necesario para conectarse a MySQLTcl, con alguna modificación por mi parte.
package require mysqltcl
# variable global de la conexión
global mysqlstatus
# valores de mysql
set port {3306}
set host {127.0.0.1}
set user {root}
set password {password}
set db {tcl_fact4}
# Capturamos el error (si lo hubiera) de la conexion mysql
# catch devuelte 1 si hay error en mysqlconnect
# En ese caso mostramos el comando que falló y el nº del error mysql
if [catch {mysqlconnect -host $host -port $port -user $user -password $password -db $db} mysql_handler] {
puts $mysqlstatus(command)
puts «error mysql nº»
puts $mysqlstatus(code)
}
# cerrar la conexion
mysqlclose $mysql_handler
Realizar consultas
En el enlace de más arriba también se explica cómo realizar consultas MySQL como select, update, insert… Algunos ejemplos de funciones básicas:
mysqlsel $mysql_handler {select campo1,campo2,… from tabla order by id asc} -list
# insert
mysqlexec $mysql_handler {insert into tabla (campo1, campo2) values (‘valor1′,’valor2’)}
# delete
mysqlexec $mysql_handler {delete from empresas where id = 6}
# create table
set nuevatabla «CREATE TABLE nuevatabla (
ID INTEGER PRIMARY KEY,
type INT NOT NULL,
Nombre TEXT,)»
set creandonuevatabla [::mysql::exec $mysql_handler $nuevatabla]
Usuarios, contraseñas y privilegios en MySQL
http://dev.mysql.com/doc/refman/5.0/es/adding-users.htmlDebemos usar el comando GRANT para poder crear usuarios con privilegios que manejen nuestras bases de datos.