A buscar M!nas: MSAccess - ampliando VB.net

Buenas otra vez!

Me he pasado el finde descansando y vagueando, que ya tocaba! (13/10/12)

Pero hoy es lunes, así que volvemos a la carga con el blog. Además empezamos la parte de programación.

En esta entrada ampliaremos el juego, usando ADO.net.

ADO.net

ADO.net es un objeto que el ".net" provee, con la función de conectar a las bases de datos sin demasiadas dificultades.

Por así decirlo, crea una capa extra entre el motor de la base de datos y la aplicación .net (así como hicimos con Java hace tiempo, pero de manera nativa).

Hay una serie de objetos que segregan de la utilización de ADO, que son:

• OleDbConnection: provee la conexión
• OleDbCommand: contiene sentencias SQL, sirve para lanzarlas
• OleDbDataReader: se usa para obtener los datos de las sentencias.

Una visualización de ejemplo: supongamos que al iniciar el juego de VB.net, éste conecta con la base de datos y ejecuta un SQL. El esquema sería algo así como indica la img1

img1

El evento onLoad tiene su recorrido en naranja: así, se puede ver cómo, usando los objetos de ADO.net accedemos a la base de datos, y extraemos datos, los cuales serán tratados con OleDbDataReader.

Haciendo un símil con PHP, el OleDbCommand equivaldría al mysq_query(), mientras que el OleDbDataReader equivaldría al mysq_fetch_array().


Diseño de consultas

El siguiente paso es diseñar todas las consultas que nos pudieran hacer falta. Aquí enumeraré unas cuantas imprescindibles:

• Comprobar si existe un usuario
• Crear un nuevo usuario
• Insertar un registro

Tal como quedó el modelo relacional, definiríamos las sentencias así:

• select count(*) from usuario where nick='';
• insert into email(email) values(''); insert into usuario(nick, nombre, apellido1, apellido2, idE, password) values('', '', '', '', select max(idE) from email, '');
• insert into estadistica(gana, tiempo, dificultad, opcion, autenticacion, minas, clicks) values('', '', '', '', '', '', '', ''); insert into juego(nick, id_estadistica, fecha) values('', select max(id_estadistica) from estadistica, '');

Desde luego estas consultas son las realmente básicas. No he puesto ningún dato porque de momento aún tenemos que ver cómo rellenaremos estas sentencias.

NOTA: cometí un error (como no...) cuando describía las tablas: la columna "minas" sirve para almacenar el número de minas que el usuario tenía marcadas cuando el juego terminó.

Hacer que funcione

El último paso antes de finalizar esta entrada es conectar todo; tenemos el MSAccess, el VB.net y el ADO.net. Es el momento de conectarlo todo!

Para ello, el objeto OleDbConnection necesita lo que se denomina "cadena de conexión". Ésta es un String que contiene información parametrizada sobre cómo y con qué conectará el objeto.

La cadena de conexión de ADO.net para MSAccess es la siguiente:

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=SRC;Persist Security Info=False;

Las partes en negrita son variables. SRC indica la ruta física donde está la base de datos, y False indica si la conexión ha de ser persistente (por defecto siempre a false con MSAccess).

Ahora abrimos nuestro proyecto de VB.net, y añadimos las siguientes líneas en BX_module:

    Public con As OleDbConnection
    Public cn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\BuscaminaX.accdb;Persist Security Info=False;"
    Public cmd As OleDbCommand

Aquí definimos los dos objetos fijos que usaremos para tratar nuestra base de datos. Dos anotaciones: seguramente tendréis que importar el dominio System.Data.OleDb. Para ello escribid al comienzo del módulo:

"Imports System.Data.OleDb"

Por otra parte, tenéis que copiar la base de datos "BuscaminaX" a la carpeta de la aplicación ("/bin/debug").

El siguiente paso es definir tres funciones globales para nuestra aplicación:

• Una función de conexión
• Una función de ejecución de SQL (insert, update, delete)
• Una función de consulta SQL (select)

Las podemos definir así:

#Region "SQL FUNCTIONS"

    Public Sub Conectar()

        BX_module.con = New OleDbConnection(cn)

    End Sub

    Public Sub Lanzar(ByVal sql As String, ByRef r As OleDbDataReader)

        BX_module.con.Open()

        cmd = New OleDbCommand(sql, BX_module.con)

        r = cmd.ExecuteReader()

    End Sub

    Public Sub Ejecutar(ByVal sql As String)

        Dim command As New OleDbCommand(sql, con)

        Try

            command.Connection.Open()
        Catch ex As Exception
        End Try

        command.ExecuteNonQuery()

        command.Connection.Close()

        command.Dispose()

        command = Nothing

        con.Close()

    End Sub

#End Region

Vamos a analizar un poco el código:

 - Conectar() instancia un nuevo OleDbConnection usando la cadena de conexión "cn".

 - Lanzar(sql, r) abre la conexión, instancia un nuevo OleDbCommand con "sql" y "con", y rellena "r". Nótese que para que los cambios en "r" sean persistentes, pasamos la variable por referencia ("ByRef") y no por valor ("ByVal")

 - Ejecutar(sql) crea un nuevo OleDbCommand (ya que luego será destruído), y ejecuta la sentencia SQL pasada.

Para leer los datos que devuelve lanzar debemos hacer algo similar a PHP (por ejemplo). Concretamente:

Lanzar(ret, r)

Do While r.Read
    'cosas. Se accede por "r(n)", donde n es un entero mayor o igual que 0
 Loop

con.Close()

Y así es cómo accedemos a los datos desde VB.net.

El siguiente paso es hacer un sistema de registro para cuando empieza el juego. También (después) crearemos una pantalla con estadísticas.

Para la pantalla de inicio de sesión, crearemos una nueva "SplashScreen". La llamaremos "LogIn.vb". De nuevo la preparamos borrando todo el contenido, y colocamos varios campos rellenables; tal que así:

img2

Ahora debemos esquematizar la comprobación de datos. Para ello haremos lo siguiente, teniendo en cuenta que un usuario anónimo no tendrá password, mientras que uno registrado sí; y tomando como supuesto que el usuario pulse "next" (el otro caso lo vemos ahora)

SI nick NO vacío
    recoges datos de DB
SINO
    error
FIN

SI datos(pass) NO vacío
    SI pass vacío
       error
    SINO
        SI datos(pass) = pass
            ok!
        SINO
           error
    FIN
SINO
    ok!
FIN    

Se puede ver una gran cantidad de "IF". Ahora os explicaré lo que yo llamo "filtrar por return". Esta técnica quizás no sirva para acortar demasiado el código, pero sirve para evitar tantas identaciones.

El sistema es el siguiente: se supone el "peor" caso. Si se cumple salimos, sin más (terminamos el sub, retornamos un valor de control...).

En la siguiente línea, ya tenemos controlado el caso, por tanto no hace falta un "ELSE".

Aplicando este concepto, podemos hacer:

SI nick vacío
    error(SALIR)
FIN

SI datos(pass) NO vacío
  SI pass vacío
    error(SALIR)
  FIN
SINO
  SI datos(pass) NO = pass
    error
   FIN
FIN

sigue

El siguiente caso a contemplar es el de crear un nuevo usuario. Para ello los pasos a seguir son:

 - Comprobar si todos los datos están introducidos
 - En caso que lo estén, comprobar si existe el usuario registrado
 - En caso que no exista, introducimos los datos.

Crearemos dos funciones principales para sendas tareas. Podrían ser algo así:

#Region "LogIn"
    Public Function nextStep() As Boolean
        Dim r As OleDbDataReader
        Dim pass As String

        If LogIn.TextBox1.Text.Length = 0 Then
            Return False
        End If

        BX_module.Conectar()
        Lanzar("select nick, password from usuario where nick ='" + LogIn.TextBox1.Text.ToString + "'", r)
        r.Read()

        Try
            pass = r(1)
        Catch ex As Exception
            pass = ""
        End Try

        BX_module.con.Close()

        If pass <> "" Then
            If LogIn.TextBox2.Text.ToString = "" Then
                Return False
            ElseIf LogIn.TextBox2.Text.ToString <> pass Then
                Return False
            End If
        Else
            If pass <> LogIn.TextBox2.Text.ToString Then
                Return False
            End If
        End If

        Return True
    End Function

    Public Function newUser() As Boolean
        Dim r As OleDbDataReader
        Dim cont As Integer
        Dim idE As Integer

        If LogIn.TextBox3.Text = "" Or _
           LogIn.TextBox4.Text = "" Or _
           LogIn.TextBox5.Text = "" Or _
           LogIn.TextBox6.Text = "" Or _
           LogIn.TextBox7.Text = "" Then
            Return False
        End If

        BX_module.Conectar()
        Lanzar("select count(*) from usuario where nick ='" + LogIn.TextBox4.Text.ToString + "' and idE = (select idE from email where email = '" + LogIn.TextBox5.Text.ToString + "')", r)
        r.Read()

        Try
            cont = r(0)
        Catch ex As Exception
            cont = 0
        End Try

        BX_module.con.Close()

        If cont <> 0 Then
            Return False
        End If

        BX_module.Conectar()
        Lanzar("select max(idE) from email", r)
        r.Read()

        Try
            idE = r(0) + 1
        Catch ex As Exception
            idE = 1
        End Try

        BX_module.con.Close()
        Ejecutar("insert into email(idE, email) values(" + idE.ToString + ", '" + LogIn.TextBox5.Text.ToString + "')")
        BX_module.Conectar()
        Lanzar("select idE from email where email = '" + LogIn.TextBox5.Text.ToString + "'", r)
        r.Read()
        Ejecutar("insert into usuario([nick], [nombre], [apellido1], [apellido2], [idE], [password]) values('" + LogIn.TextBox4.Text.ToString + "', '" + LogIn.TextBox6.Text.ToString + "', '" + LogIn.TextBox7.Text.ToString + "', '" + LogIn.TextBox8.Text.ToString + "', " + r(0).ToString + ", '" + LogIn.TextBox3.Text.ToString + "')")
        BX_module.con.Close()
        Return True
    End Function
#End Region

Ahora viene enlazar los valores de retorno al módulo principal. Esto lo haremos en dos partes, de manera que:

 - Crearemos una variable pública en LogIn.vb, de manera que el resultado de la función se guardará ahí.
 - Mientras la variable anterior sea "false", mostraremos la pantalla principal.

Esto lo hacemos así:

a) LogIn.vb

    Public hand As Boolean = False

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.hand = BX_module.nextStep()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.hand = BX_module.newUser()
    End Sub

b) BuscaminaX.vb -> BuscaminaX_onLoad

        Do
            LogIn.ShowDialog()
        Loop Until LogIn.hand

Con esto damos por terminada la parte de Programación en VB.net

Así, en la próxima entrada trataremos la gestión de consultas desde MSAccess.

Pido disculpas por la tardanza; repito que estuve MUY liado.

Espero poder seguir escribiendo más a menudo!

Saludos y,

¡Hasta la próxima!