La clase connection proporciona un interfaz eficiente para el acceso a datos y metadatos de una base de datos. Conocer los recursos de gambas para acceso a base de datos es fundamental a la hora de obtener un código transparente al motor de base de dtos que utilice la aplicación.

El objetivo de este tema es mostrar la forma de realizar accesos a base de datos de forma transparante al motor de búsqueda que estemos utilizando. De esta forma si por alguna razón decidimos cambiar nuestra aplicación de sqlite mysql o viceversa el código serguirá funcionando correctamente con solo cambiar el usuario y tipo de conexion que usemos.

Crear conexión
Las propiedades fundamentales para crear una conexión son:
Name
Es el nombre de la base de datos que queremos abrir. Si no se especifica se creará una base de datos EN MEMORIA.
En Mysql si deseamos crear usuarios, cambiar privilegios, que afecten al gestor de base de datos deberemos acceder a la base de datos "mysql".

Host
Es la ubicación del servidor de base de datos. En muchas ocasiones será "localhost", pero puede ser también un nombre o una dirección IP.
Si NAME es una ruta temporal y localhost es nulo se creará la base de datos en la ubicación temporal proporcionada por TEMP() y que habitualmente es /tmp.

Login y Password
Usuario y clave que definan al usuario que intenta crear la base.

Type
Indica el tipo de base de datos al que queremos acceder (mysql, sqlite, ..., etc).

Port
El puerto por el que accederemos a la base de datos. En el caso de mysql el puerto por defecto es 3306.



Creación de base de datos
La creación de una base de datos requiere conectarse en Mysql requiere conectarse a la base de datos mysql con un usuario con permiso para crear bases de datos.
Utilizando la rutina anterior sería

Comprobar si la base de datos existe
Y a partir de la conexión podemos comprobar si la base de datos existe y en caso contrario crearla


La colección Database
La propiedad database que hemos visto devuelve la colección de bases de datos accesibles por ese usuario que está conectado. Cada item de esa colección es de tipo ConnectionDatabase y como todas las colecciones tiene las siguientes propiedades y métodos
COUNT --> Cantidad de items en la colección. En este caso cantidad de bases de datos accesibles para el usuario.
ADD ---> Agregar una nueva base de datos
EXIST ---> Comproar si existe una base de datos
REFRESH ---> Refrescar privilegios, tablas, etc de base de datos
REMOVE ---> Eliminar base de datos.
Como todas las colecciones se puede recorrer en un bucle FOR EACH


La clase Users
No basta con crear la base de datos. También habrá que crear al menos un usuario capaz de acceder a esos datos. En nuestro caso vamos a crear dos. Uno con permiso para acceder a datos y otro con permisos de administración en su base de datos.
La clase que permite acceder a usuarios es la clase users  que devuelve una colección de usuarios con permisos en la base de datos activa.

Este tema no lo tengo del todo resuelto por lo que pongo aquí lo que conozco en este punto.
La propiedad USERS que vemos devuelve la colección de usuarios con permiso para acceder a la base de datos activa. Cada item de esa colección es de tipo ConnectionUsers y como todas las colecciones tiene las siguientes propiedades y métodos

El método add agrega un valor boleano para especificar si el usuario será o no administrador. Ojo con esto porque si la base de datos activa es mysql y creamos un usuario administrador estamos creando otro usuario root.


He tenido algunos problemas con esto y no siempre lo he resuelto correctamente. A veces me ha funcionado y no se bien porque razón por la cual agrego la forma de crear y asignar permisos según el motor de mysql (desaconsejado).

¡OJO! estoy explicando crear usuarios pero hay que ser conscientes que esas claves no están encriptadas. Conviene pensarlo antes de pastear textos directamente a un código. Debeis conocer la librería CRYPT.



Creación de tablas
No basta con crear una base de datos vacía. Habrá que crear las tablas que correspondan.
La propiedad Tables permite acceder a la colección de tablas de la base de datos activa. Por esta razón primero conectaremos a nuestra base de datos activa y creamos una tabla.

Utilizando la rutina anterior sería
Y ahora utilizar la propiedad tables para acceder a la colección de tablas.
La propiedad TABLES que vemos devuelve la colección de tablas en la base de datos activa a las que el usuario tener permiso de acceso. Cada item de esa colección es de tipo ConnectionTables y como todas las colecciones tiene las siguientes propiedades y métodos

El método ADD crea una nueva tabla y devuelve un objeto de clase TABLE. Tiene el siguiente formato:

Donde el tipo es uno de los siguientes

Citar:

Innodb
BDB
Heap
Isam
Merge
MyIsam

Y de ellas solo INNODB y BDB soportan el uso de TRANSACCIONES.

La clase TABLE
La clase table define objetos de clase tabla y tiene únicamente el método UPDATE para grabar los cambios en una tabla.
La clase table tiene las siguientes propiedades
Name ---> Nombre de la tabla
Fields ---> devuelve una colección de campos de la tabla
Indexes ---> devuelve una coleción de índices de la tabla
Primary key ---> devuelve la clave primaria de la tabla
System ---> Devuelve si la tabla es o no es del sistema
Type ---> El tipo de la tabla (especificado anteriormente.

La clase FIELDS
La propiedad FIELDS que vemos devuelve la colección de campos en la tabla a las que el usuario tener permiso de acceso. Cada item de esa colección es de tipo TableFields y como todas las colecciones tiene las siguientes propiedades y métodos

El formato del método ADD para agregar un campo nuevo es el siguiente:

Nombre ---> nombre del campo
tipo ---> Los tipos de campo válidos son gb.integer, gb.float,gb.boolean,gb.string,gb.date
Longitud ---> Se usa únicamente en campos de tipo gb.string
defecto ---> Especificar un valor por defecto. Si no se especifica el valor será NULL:

La clase INDEXES
La propiedad indexes del objeto tables devuelve una colección de índices en la tabla
La propiedad INDEXES del objeto TABLE devuelve la colección de índices en la tabla. Cada item de esa colección es de tipo TableIndexes y como todas las colecciones tiene las siguientes propiedades y métodos
 

El formato del método ADD es el siguiente

nombre ---> nombre del índice
campos ---> los campos que incluye el índice. Si son varios separados por coma
unico ---> es opcional. Si vale true significa que solo admite valores únicos. Por defecto es FALSE.

Ejemplos
Recorrer todas las bases de datos accesibles por una conexión llamada CN y mostrar sus tablas y campos


Ejemplo de creación de una base de datos con tablas y campos sobre una conexión Cn

Transacciones
Una transacción en términos simples es un conjunto de operaciones que se realizan en diversas tablas de una base de datos y que deben ejecutarse todas o ninguna.

Puede haber transacciones anidadas en Mysql. Esto depende de motor de base de datos. Postgre no lo admite por ejemplo.

Por ejemplo una transacción puede darse a la hora de meter una nueva factura en una aplicación de facturación.  Meter una nueva factura puede suponer insertar datos en tabla de facturas, tablas de totales, tablas de resumen, tablas de clientes, tablas de inventario, ..., etc. Se deben hacer todas o no hacer nada pues no quedaría la información consistente y la factura estaría mal registrada.

Solo se pueden hacer transacciones en tablas que sean de tipo INNODB o BDB.

Begin
Método para iniciar una transacción

Commit
Método para grabar una transacción

Rollback
Método para cancelar una transacción

Ejemplo


En vez de utilizar en el código anterior CN (la conexión) pude haber utilizado un objeto de la clase DB que siempre representa la conexión actual.

Edición de datos
Todos tenemos la tentación de obtener un recordset mediante uns claúsula select del tipo


El método EXEC
Esto se puede realizar mediante el método EXEC pero plantea el problema de que esa selección depende del motor de base de datos porque este método lo que hace es enviar el string al motor de base de datos y obtener un resultado si procede.
Dim Cn as new connection, Rs as new Result
Cn=Conectar(Uuario,clave,base)
Rs=Cn.exec("select * from tabla where condicion order by campos group by campo")

Yo suelo creaar un string que haga directamente lo que quiero hacer, pero es posible crear un string genérico de la forma

Donde Los diversos % serán sustituídos por argumentos que se pasan al método exec

Para lo que se ejecuta lo siguiente tras la traslación de parámetros


El método EDIT
El método edit permite actualizar datos sin necesidad de utilizar clausulas SQL lo que permite un método transparente independiente del motor de base de datos que estemos usando
Edit (tabla,condicion,argumentos)
tabla ---> tabla que se quiere actualizar
condicion ---> lo que estaría en una claúsula WHERE de una orden select con los parámetros a trasladar como vimos antes
argumentos ---> valores que se van a trasladar


Inserción de datos
Por la misma razón que antes podemos usar una sql insert que inserte datos en un recordset mediante el método Exec visto anteriormente.
gambas proporciona la alternativa del método CREATE que genera un recordset a rellenar


Eliminación de datos
Por la misma razón que antes podemos usar una sql delete que elimine datos en un recordset mediante el método Exec visto anteriormente.
gambas proporciona la alternativa del método DELETE que elimina registros
Delete(Tabla,condicion,argumentos)
tabla ---> tabla donde se quiere borrar
condicion ---> lo que estaría en una claúsula WHERE de una orden select con los parámetros a trasladar como vimos antes
argumentos ---> valores que se van a trasladar


Búsqueda de datos
gambas proporciona el método FIND que busque registro en un recordset y que es una alternativa a una claúsula SELECT.
Find(Tabla,condicion,argumentos)
tabla ---> tabla donde se quiere borrar
condicion ---> lo que estaría en una claúsula WHERE de una orden select con los parámetros a trasladar como vimos antes
argumentos ---> valores que se van a trasladar

El Recordset resultante es de solo lectura

Triggers
Los triggers son bloques de código que se ejecutan al realizar un determinado evento en un campo de una tabla.
En sybase, sql server y oracle están desde que yo tengo conocimiento, pero en mysql están disponibles desde la versión 5.0. No se si existen en postgre y lo dudo en sqlite.
Los usuarios que los crean deben tener el permiso SUPER.


Los eventos disparadores
Un evento dispador puede ser  insert, delete o update. El código se ejecutará ANTES o DESPUES de que ocurra
Osea que yo puedo hacer un trigguer cuando se vaya a ejecutar una sentencia INSERT inmediatamente antes de que se produzca la inserción o inmediatamente despues. Para ello disponemos de las palabras clave AFTER (despues) y BEFORE (antes)


bloque de código
Cuando se produce un evento que tiene asociado un trigger se ejecuta un bloque de código que puede ser cualquier cosa imaginable excepto utilizar procedimientos almacenados.
En ese bloque de código disponemos de OLD.nombre_campo para especificar el valor anterior de un campo y NEW.nombre_campo para especificar el nuevo valor del campo.
De esta forma podemos ejecutar un bloque de código que antes de hacer un delete o un update haga un insert en otra tabla donde se guarden los datos antiguos por ejempo.

Ejemplos de triggers
Crear un trigger que despues de hacer un update en la tabla de clientes inserte un registro en una tabla auditoria_clientes en la cual guardaremos el dato viejo, el nuevo, el usuario que hizo el cambio y cuando

La función mysql CURRENT_USER() devuelve el nombre del usuario que está ejecutando y la función NOW() devuelve la fecha del sistema.

Los triggers son tan útiles que acaba habiendo muchos de manera que es conveniente ponerles nombres claros que ayuden a enfocar problemas. Yo tengo la costumbre de poner DOS LETRAS que identifiquen lo que hacen IN -> INSERT, DE -> DELETE, UP-> UPDATE luego un guion y el nombre de la tabla donde escriben.

En el caso anterior

En mysql podemos ver los triggers actuales mediante la orden


De manera que al final en gambas podemos ejecutar (un usuario con permisos de administración en la base) la siguiente instrucción

A mi no me gusta crear tablas de log porque acabas almacenando un montón de información inuti por cada insert, delete y update que se haga en una tabla y quizá lo haces en muchas tablas así que prefiero utilizar dos campos adicionales en cada tabla importante donde dejo únicamente la fecha en que el registro cambió y el usuario que lo hizo

Este trigger antes de un update cambia el campo FechaW en la tabla para grabar la hora actual y el campo UsuarioW para grabar el usuario actual
[code linenumbers=false]


Este trigger antes de un insert cambia el campo FechaW en la tabla para grabar la hora actual y el campo UsuarioW para grabar el usuario actual
[code linenumbers=false]

creo que es mejor poner en esta sentencia la palabra Databases:

if not Cn.exist("Base_de_datos") then    -----------------  IF NOT Cn.Databases.Exist("Base_de_datos") then
   Cn.database.add("Base_de_datos")
endif

Cierto cierto, muchas gracias por la corrección.

Es dificil no cometer al escribir en un foro errores de bulto como ese, pero cuando salen hay que corregirlos para evitar que alguien pastee el código y se encuentre con errores tontos.

Ahora mismo lo corrijo.

Agradecido
 

Estoy intentando desarrollar una función que me permita ver las bases de datos que tengo en mi servidor de mysql y el código:



desencadena el siguiente error:

Unknown identifier: ConnectionDatabase en línea tal del formulario cual

Llevo todo el fin de semana intentando resolver este tema pero no doy con ello. ¿a alguien se le ocurre alguna idea?.

Gracias de antemano.

jsoto61 escribió: [Ver mensaje]

Citar:

Dim CNB as new ConnectionDatabase
for each CNB in Cn.database
   print CNB.name
next

Unknown identifier: ConnectionDatabase en línea tal del formulario cual

Es lógico. No existe ningún objeto llamado "ConnectionDatabase", sino sólo "Connection". A menos que tú hayas creado una clase con ese nombre...
Lo que sí existe es una propiedad del objeto Connection que es "Databases" (con la s al final):

http://gambasdoc.org/help/comp/gb.db/.connectiondatabases

De todos modos no creo que puedas iterar en un objeto Connection, ya que no es un array ni colección. Esto otro debería funcionar:



Lógicamente "Cn" es una nueva conexión que debería estar abierta antes.


El mejor consejo que puedo darte es que revises el código fuente de gambas, la parte relativa al Database Manager (Gestor de Base de Datos), del cual aprenderás mucho.

Saludos

===================
Jesús Guardón

Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".

"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"

Muchísimas gracias, efectivamente he aplicado lo que me has indicado y funciona correctamente.

En cuanto a Lo de analizar el código de gambas me parece que aún me queda mucho que aprender para ello, de hecho, tras tu comentario he intentado hacerlo y no se ni por donde empezar, me he puesto a navegar entre el "mogollón" de archivos y directorios y al final lo he dejado por iimposible,.... ¡ya me gustaría...!