Conectar a Base de datos Mysql 2

Segunda parte de Conectar a Base de datos Mysql

En esta parte veremos mas que nada como ejecutar sentencias SQL y mostrar los resultados.

Ejemplo 1

Aquí aparece las sentencias SQL que deben pegar en Mysql para crear la base de dato “prueba” crear la tabla “gambas” y insertar los datos a la base de datos.


create database prueba;
use prueba;
create table gambas(id int auto_increment primary key,componente varchar(50));
insert into gambas(componente) value('gb');
insert into gambas(componente) value('gb.debug');
insert into gambas(componente) value('gb.eval');
insert into gambas(componente) value('gb.info');
insert into gambas(componente) value('gb.option');
insert into gambas(componente) value('gb.pcre');
insert into gambas(componente) value('gb.settings');
insert into gambas(componente) value('gb.vb');
insert into gambas(componente) value('gb.corba');
insert into gambas(componente) value('gb.net');
insert into gambas(componente) value('gb.net.curl');
insert into gambas(componente) value('gb.net.smtp');
insert into gambas(componente) value('gb.web');
insert into gambas(componente) value('gb.form');
insert into gambas(componente) value('gb.form.dialog');
insert into gambas(componente) value('gb.form.mdi');
insert into gambas(componente) value('gb.gtk');
insert into gambas(componente) value('gb.gtk.ext');
insert into gambas(componente) value('gb.gtk.svg');
insert into gambas(componente) value('gb.gui');
insert into gambas(componente) value('gb.pdf');
insert into gambas(componente) value('gb.qt');
insert into gambas(componente) value('gb.qt.ext');


Segundo creamos un formulario con el componente gb.db para conectarnos con la base de datos creamos un button y un listBox quedando un formulario parecido a este

En el Button en el evento click escribirnos los siguientes códigos

PUBLIC SUB Button1_Click()
DIM cn AS NEW Connection 'Declaramos una nueva conexión
DIM res AS Result 'Declaramos una variable result para el resultado de la sentencia SQL
DIM i AS Integer 'Declaramos i para el bucle For
cn.Type = "mysql" 'Escogemos el tipo de base de datos
cn.Host = "localhost" 'El Host, ip, dominio del servidor de Base de Datos
cn.User = "root" 'El nombre del usuario de la base de datos
cn.Password = "josechen" 'La contraseña del usuario de la base de datos
cn.Name = "prueba" 'Nombre de la base de dato que utilizaremos
cn.Open() 'Abrimos la conexión
'Ejecutamos la sentencia SQL para que retorne los datos de base de datos y la guardaremos en la variable res. Esta contendrá todos los resultados de la sentencia SQL
res = cn.Exec("select * from gambas")
'Ciclo for para imprimir los datos de la variable res que guarda los datos de la base de datos
FOR i = 0 TO (res.Count – 1)
'Agregamos el primer dato al ListBox1
ListBox1.Add(res!componente)
'Nos movemos a la siguiente fila
res.MoveNext
'Esto se repetirá varias veces hasta que el ciclo llegue al fin
NEXT 'Cuando el ciclo for llegue al fin
cn.Close() 'Cerramos la conexión
END

Ejemplo 2
En este ejemplo veremos como agregar un nuevo dato a la base de datos que estamos usando.
Insertar un nuevo componente el formulario debe tener:
- Label1
Se le deben cambiar la propiedad Text a "Nombre del Componente:"
- TextBox1
Se le debe borrar el contenido de la propiedad Text
- Button1
Solo se le debe cambiar la propiedad Text a "Agregar"

En el Button1 en el evento click se debe escribir el siguiente código

PUBLIC SUB Button1_Click()
DIM cn AS NEW Connection
cn.Type = "mysql"
cn.Host = "localhost"
cn.User = "root"
cn.Password = "josechen"
cn.Name = "prueba"
cn.Open()
'Se ejecuta la sentencia sql para insertar el dato del Textbox1
cn.Exec("insert into gambas(componente) value(&1)", TextBox1.Text)
cn.Close()
Message.Info("El Componente fue agregado correctamente")
END

Aquí dejo los ejemplos ya creados
Descargar Ejemplos

Lo mas importante para comunicarse con la base de dato son las sentencias SQL ya que si aprendes el lenguaje SQL podrás manipular los datos correctamente. En google si buscas aparecerán manuales que contienen sentencias SQL.