Programación con estilo

Continuando con el tema anterior, en esta entrada terminamos con la pequeña aplicación de artículos, comenzamos.

Modificaremos la interfaz gráfica, agregaremos dos botones, al botón numero uno le pondremos la etiqueta "guardar", al botón 2 le pondremos la etiqueta "cancelar", el primer botón será el encargado de hacer la labor de guardado de artículos, el segundo simplemente limpiará los campos, la interfaz quedará como la siguiente imagen

    Private Sub limpia()
        TextBox1.Text = ""
        ComboBox1.Text = "-SELECCIONE-"
        RichTextBox1.Text = ""
    End Sub

   Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs)
Handles Button1.Click
        If Not TextBox1.Text.Equals("".Trim) Then
            If Not ComboBox1.Text = "-SELECCIONE-" Then
                If Not RichTextBox1.Text = "".Trim Then
                    Try
                        query = "insert into articulo values
(null, (select idmarca from marca where marca.marca =
'" & ComboBox1.Text & "'), '" & TextBox1.Text & "',
'" & RichTextBox1.Text & "')"
                        con = dbpool.Open
                        comando = New MySqlCommand(query, con)
                        comando.ExecuteNonQuery()
                        MsgBox("Articulo agregado")
                        limpia()
                    Catch ex As Exception
                        MsgBox(ex.ToString)
                    Finally
                        dbpool.Close(con)
                    End Try
                Else
                    MsgBox("Agregue una descripción")
                End If
            Else
                MsgBox("Seleccione una marca")
            End If
        Else
            MsgBox("Agregue una artículo")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, 
    ByVal e As System.EventArgs) Handles Button2.Click
        limpia()
    End Sub

Ahora nos vamos hacia la pestaña de consultas, modificaremos levemente su interfaz, únicamente agregaremos un botón, le daremos la etiqueta de "actualizar", este botón llevara acabo la labor de llenar las grillas cuando se requiera una actualización de los datos mostrados, la interfaz quedará como esto



Posteriormente definiremos un método de nombre "cargar" para que llene las grillas, ustedes me dirán el ¿Por qué? de este método si para eso agregamos el botón actualizar, la explicación es la siguiente: cuando iniciamos el programa puede que solo querramos consultar, para ahorrarnos la molestia de precionar el botón actualizar, cargaremos los datos desde el inicio de la aplicación y únicamente utilizarmos "actualizar" cuando agreguemos nuevos artículos y estos requieran ser consultados.
Antes debemos declara unas cuantas variables, el datagridview lo llenaremos con un adaptador de la clase MysqlDataAdapter, que no es más que una tabla temporal que utilizaremos como puente para pasar los datos de la base hacia el visor, nesesitaremos también un dataset y un datatable, quee aran la función de acoplar los datos del adaptador hacia el visor de datos, la forma correcta de realizar la tarea es la siguiente

    Dim adaptador As New MySqlDataAdapter
    Dim dataset As New DataSet
    Dim datatable As New DataTable
    Private Sub cargar()
        Try
            dataset.Clear()
            query = "select " + _
                    "   articulo.idarticulo, " + _
                    "   articulo.articulo, " + _
                    "   marca.marca, " + _
                    "   articulo.descripcion " + _
                    "from articulo " + _
                    "INNER JOIN marca ON marca.idmarca = articulo.idmarca"
            con = dbpool.Open
            adaptador.SelectCommand = New MySqlCommand(query, con)
            adaptador.Fill(dataset, "articulo")
            datatable = dataset.Tables("articulo")
            DataGridView1.MultiSelect = False
            DataGridView1.DataSource = datatable
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            dbpool.Close(con)
        End Try
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button3.Click
        cargar()
    End Sub