SQL-Access/ Presentación en una DatagridView

- junio 11, 2014

En esta entrega, toca presentar los datos en un datagridview para esto se hara una modificación en el codigo asignado en el boton de coneccion.

Antes de conectar voy a explicar como mantener la ruta de nuestra bd sin que esta sea borrada de memoria cada vez que se ejecute nuestra app.

1.- Nos vamos al evento FormClosing de nuestro formulario y colocamos el codigo

Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        SaveSetting("My Business", Me.Name, Me.lblruta.Name, Me.lblruta.Text)
    End Sub

con esto al cerrar el form me guarda mi ruta seleccionada donde yo la busque con el opendialog

2.- Ahora debemos cargar de la memoria la ruta y asignarla al label "lblruta.tex" al iniciar el Form, nos vamos al evento FormLoad

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lblruta.Text = GetSetting("My Business", Me.Name, lblruta.Name, Text)
    End Sub

Con esto ya estamos tranquilos y nuestra app recordara la ultima ruta de nuestra bd que le hayamos asignado!!

Ahora sobre el boton

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            conectarse()
            Dim dt As New DataTable
            Dim strSql As String = "SELECT* FROM PRODUCTOS" ' llama a la consulta completa de datos
            Dim adp As New OleDb.OleDbDataAdapter(strSql, conn) ' enlaza al adaptador de datos
            adp.Fill(dt) ' el adaptador de datos llena la datatable
            'conecta la grid a la datatable para mostrar los datos
            DataGridView1.DataSource = dt
        Catch ex As Exception
            ex.ToString() ' detecta el error y llama a la ayuda de excepciones
        End Try
        conn.Close()
    End Sub

de esta manera al ejecutar nuestra app y conectar la bd