 |
| 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 |