Excel + SQL Server + Azure | Managing Data in SQL Server on Ubuntu Serve

Lista de Reproducción en YouTube

En este capítulo he modificado los proyectos de Excel que vimos anteriormente, agregándole un ListBox para dar seguimiento a los datos que enviemos al servidor Linux. Además, he estoy reciclando los botones de comando agregados al UserForm, dándole la funcionalidad de varios botones y de esa forma ahorrar espacio en el formulario.



Seguimos usando los Procedimientos Almacenados que vimos en los capítulos anteriores, y ahora con el ListBox, le doy un plus a este proyecto, lo cual nos permitirá ver los registros actualizados en tiempo real.


El siguiente código de programación es la rutina que permite hacer la consulta SQL hacia el servidor, lo cual nos devuelve los datos que se mostrarán en el ListBox.

Private Sub MostrarDatos()
Dim Fila As Integer
Dim SQL As String

ListBox1.Clear
    ' Consulta en SQL
    SQL = "select cod_prod, descripcion, existencia from productos order by cod_prod"
   
    Set Rst = New ADODB.Recordset
    Rst.Source = SQL
    Rst.ActiveConnection = Conn
    Rst.Open SQL, Conn

    Fila = 0

    Do While Not Rst.EOF
            ListBox1.AddItem Rst.Fields("cod_prod")
            ListBox1.List(Fila, 1) = Rst.Fields("descripcion")
            ListBox1.List(Fila, 2) = Rst.Fields("existencia")

        Fila = Fila + 1
        Rst.MoveNext
    Loop
End Sub

Te invito a ver el capítulo completo en YouTube y descubre lo simple que es obtener estos resultados.


Ver vídeo

Descarga el Proyecto

No hay comentarios:

Publicar un comentario