Creando barra de progreso en UserForm paso a paso

Si bien es cierto las barras de progreso implementadas en nuestro proyecto VBA nos ayudan a informar al usuario final de cuánto tiempo va a demorar una rutina específica, PERO...esto es una carga adicional en memoria al momento de compilar y ejecutar dichos procesos.



Sin embargo, en casos excepcionales, como rutinas que pueden llegar a tardar muchísimo tiempo, lo cual puede dar la impresión al usuario final que Excel se ha quedado congelado y lo cierra de forma forzada, pues en esos casos sí es muy necesario crear una barra de progreso para informarle que la rutina está trabajando de forma normal y que pronto va a finalizar.

Pues en esta ocasión te traigo este paso a paso y lo sencillo y práctico que es, crear una barra de progreso la cual puedes adaptar a esas rutinas que suelen tardar mucho tiempo para cumplir con una tarea específica.

Puedes ver el vídeo a continuación...






Descarga el archivo base desde AQUÍ




Cómo crear Controles ActiveX en tiempo de ejecución
























Si bien es cierto el entorno VBA ya proporciona todos los controles ActiveX, solo para insertarlos en un UserForm y únicamente dedicarnos a realizarle la automatización requerida…. Sin embargo, también tenemos la posibilidad de crearlos en tiempo de ejecución... Sí, esto llevaría mayor trabajo, pero en ciertas circunstancias podríamos necesitar hacerlo de esa manera.

Ok, veamos cómo hacerlo...


Para este ejemplo únicamente insertaremos un UserForm en el entorno VBA...

















Y procedemos a insertar el siguiente código de programación en su evento Initialize 

Dim btn1 As MSForms.CommandButton
Dim btn2 As MSForms.CommandButton
Dim TextBox1 As MSForms.TextBox

    Set btn1 = Me.Controls.Add("Forms.CommandButton.1", "btn1")
    btn1.Caption = "Boton 1"
    btn1.Top = 15
    btn1.Left = 75

    
    Set btn2 = Me.Controls.Add("Forms.CommandButton.1", "btn2")
    btn2.Caption = "Botón 2"
    btn2.Top = 50
    btn2.Left = 75

    
    Set TextBox1 = Me.Controls.Add("Forms.TextBox.1", "TextBox1")
    TextBox1.Top = 100
    TextBox1.Left = 75
    
   
Ahora... para hacer funcionales estos controles, debemos crear un módulo de clase en donde definiremos cada uno de los eventos de dichos controles.

Te invito a que veas el vídeo completo, en donde te explico a detalle los pasos que debes seguir.

Ver vídeo AQUÍ











Controles ActiveX | ScrollBar | Características Principales
















Por defecto ciertos objetos ya tienen ScrollBars o barras de desplazamiento, como por ejemplo un ListBox o la parte desplegable de un ComboBox.











Sin embargo, en la colección de Objetos ActiveX, contamos con el control ScrollBar, el cual es un control autónomo, que podemos insertar, ya sea en la interfaz de usuario o en un UserForm en particular, según nuestras necesidades de desarrollo.
















En este capítulo veremos las propiedades relevantes de este control, y los usos prácticos que podemos darle en una tarea determinada.

















Te invito a ver este tutorial en YouTube y descubre lo simple que es programar un control ScrollBar






Creando Funciones UDFs para Excel desde Visual Basic.net Parte 3

Click para reproducir vídeo






















En la publicación anterior vimos cómo crear UDFs (User Defined Functions) para Excel desde Visual Basic.net





Sin embargo, en esa ocasión, dicho proyecto únicamente nos permite acceder a las funciones desde la interfaz de usuario y no desde el entorno VBA, lo cual es necesario, si tenemos que hacer desarrollos que contengan UserForms o algún procedimiento en particular.







En esta ocasión, retomaremos ese proyecto y lo modificaremos con el propósito de poder tener acceso a las UDFs desde el entorno VBA.

Recuerden que estamos utilizando la extensibilidad ExcelDna, lo cual es una contribución de terceros y es totalmente gratuita. Esta integración nos permite crear complementos que contengan UDFs, ya que Visual Studio de forma nativa no nos permite crear UDFs en los complementos que se desarrollan para Excel, por lo que tenemos que hacer uso de esta integración, que en el tutorial anterior vieron lo simple que es implementarlo.

Si bien es cierto, ya tenemos un Módulo público en donde tenemos todas las funciones, pero únicamente son accesibles desde la interfaz de usuario. Por lo que la clase que dejamos sin utilizar en nuestro proyecto, la modificaremos de tal forma que quedará de la siguiente manera:



























Además, modificaremos el archivo con extensión .dna, al cual le aplicamos unos pequeños cambios, lo que nos permitirá acceder a las funciones insertadas en la clase, que previamente debemos preparar para tal objetivo.







En la clase estamos identificando nuestro Add-In como "excelymas", que cuando ya nos encontremos en el entorno VBA y creemos el objeto para acceder a dicha clase, tendremos que identificarlo de esa forma.













Observa la rutina de testeo y lo simple que es crear la instancia a nuestro objeto "excelymas" y hacer la llamada a todas las funciones que tenemos almacenadas en nuestra librería.







A continuación te dejo dos paquetes ZIP para descargar; 1) El proyecto sin modificación, que únicamente se puede acceder a las funciones UDFs desde la interfaz de usuario, y 2) El proyecto ya modificado, con el cual ya podemos acceder a las funciones desde el Editor de Visual Basic de Excel.
El escenario utilizado para este ejemplo, es Excel con una arquitectura de 64 bits y Windows 10 Pro de 64 bits. No olvides que el paquete de Excel Dna, incluye soporte para 32 y 64 bits, por lo que debes tener cuidado, cuáles son los archivos que vas a utilizar de ese paquete


Proyecto sin modificar

Proyecto modificado


Espero que esta tutoría sea de tu interés, que si es así, te invito a compartirlo con un amigo o amiga.
Además, en los siguientes enlaces, puedes ver los vídeos de los capítulos anteriores en YouTube, junto con el vídeo más reciente sobre este tema.

Contenido en YouTube
Creando Funciones UDFs para Excel desde Visual Basic.net



Recursos necesarios:



Recuerda que en youtube.excelymas.com encontrarás mucho contenido de tu interés y totalmente gratuito.

Nos vemos en la próxima entrega.
¡Saludos cordiales!

Save and Retrieve Files from SQL Server using Excel VBA


Guardar y Recuperar Ficheros desde SQL Server usando Excel VBA























Cuando trabajamos en bases de datos, y dependiendo de la información que manejemos, así tendremos la necesidad de agregarle algún tipo de archivo que le dé una mayor descripción al registro almacenado.
Como por ejemplo si llevamos un control de inventarios, será muy útil tener la fotografía de cada uno de los productos. O si manejamos los datos del personal de la empresa, pues obviamente necesitaremos consultar la fotografía de cada empleado y así conocerlos a cada uno de ellos, no solo como un nombre en la base de datos, sino, poniendo un rostro a dicho nombre.

Pues bien… esta vez he creado una rutina que nos permite almacenar archivos en una tabla… pero no como documento adjunto… sino, como un archivo convertido en formato binario, lo cual nos da la flexibilidad de recuperar esa información, ya sea, en una red local, o desde una red remota.

Es un sencillo UserForm que consta de dos botones, con las rutinas necesarias para lograr nuestro objetivo.
















En el siguiente enlace encontrarás la primera transmisión que realicé en vivo y ahí vimos el funcionamiento de este proyecto, dando recomendaciones específicas de lo que debemos hacer, cuando tendremos que guardar ficheros en un servidor remoto de Microsoft Azure


emitido el 21 de Junio de 2017

En dicha transmisión vimos lo fácil que es recuperar ficheros desde un servidor remoto de Azure, los cuales se encuentran en un campo del tipo varbinary





















El siguiente Query es el que utilicé para crear la base de datos y la tabla correspondiente, haciendo uso de un Procedimiento Almacenado para realizar la inserción de cada registro.
La importación masiva de datos binarios desde un servidor remoto, la hace posible la función OPENROWSET y la instrucción BULK INSERT. Checa el quiery, y puedes ver la forma en que hago la inserción de un fichero en particular.
Copia y pega todo el script en una nueva consulta de tu servidor SQL y ejecútala.

Haz pruebas insertando ficheros de forma local mediante el procedimiento almacenado, pasándole los argumento que te solicita y verás lo simple que es. 

Checa la transmisión en vivo que realizamos según el enlace que te he dejado más arriba, y podrás ver la forma de hacerlo hacia un servidor remoto de Azure.

create database inventario
GO

use inventario
GO

create table archivos
(
id_archivo int identity primary key,
tipo_archivo varchar(4) not null,
descripcion varchar(100) not null,
fichero varbinary(max)
)
GO

CREATE PROCEDURE SP_AlmacenarArchivo
@TipoArchivo varchar(4),
@Descripcion varchar(100),
@Fichero varchar(max)
as
exec ( 'insert into archivos values(''' + @TipoArchivo + ''','''+ @Descripcion +''', 
(SELECT * FROM OPENROWSET(BULK N''' + @Fichero + ''', SINGLE_BLOB) as x));' );
GO

--Con esta línea hago una prueba de inserción de un registro mediante el procedimiento almacenado
exec SP_AlmacenarArchivo 'PDF','LISTADO DE PRODUCTOS POR COMPRAR', 'C:\img\inventario.pdf'



En la siguiente entrega en YouTube, realicé otra transmisión en vivo, en donde les entregué a los asistentes en primicia, el proyecto de Excel completo, el cual contiene las rutinas que gestionan los datos mediante código de programación VBA

emitido el 26 de Junio de 2017

El siguiente es el código de programación contenido en el UserForm que te mostré al inicio de este Post.

Cada rutina está insertada en su respectivo botón del Formulario.


Option Explicit

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                            (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
                            ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Dim RutaFichero As String
Dim TipoArchivo As String

Private Sub btnGuardaFichero_Click()
Dim FdBox As FileDialog
Dim Selection As Boolean
Dim sDescription As String


On Error GoTo Salir

If Me.btnGuardaFichero.Caption = "Seleccionar fichero" Then
        Set FdBox = Application.FileDialog(msoFileDialogFilePicker)

        FdBox.Filters.Clear
        FdBox.Filters.Add "Imágenes jpg", "*.jpg"
        FdBox.Filters.Add "Imágenes png", "*.png"
        FdBox.Filters.Add "Imágenes pdf", "*.pdf"
        FdBox.Filters.Add "Libro de Excel xlsx", "*.xlsx"
        FdBox.Filters.Add "Libro de Excel habilitado para macros xlsm", "*.xlsm"

        FdBox.FilterIndex = 1
        
        FdBox.AllowMultiSelect = False
        
        
        Selection = FdBox.Show

                If Not Selection Then
                    Exit Sub
                End If

        RutaFichero = FdBox.SelectedItems(1)
        TipoArchivo = RutaFichero
        TipoArchivo = Mid(TipoArchivo, InStrRev(TipoArchivo, ".") + 1, 4)
 
        Me.btnGuardaFichero.Caption = "Guardar fichero"
        Me.btnRecuperarFichero.Caption = "Cancelar"
        Me.lbl_Msg.Visible = True
        Me.lbl_Msg.Caption = "Fichero seleccionado: " & RutaFichero
        
        Exit Sub
End If


If Me.btnGuardaFichero.Caption = "Guardar fichero" Then
    sDescription = InputBox("Escriba una descripción para el fichero:")
    
    If sDescription = Empty Then
        MsgBox "Debe escribir una descripción para del fichero"
        Exit Sub
    End If
  
    If MsgBox("Seguro que desea guardar este fichero en la base de datos", vbYesNo + vbQuestion) = vbYes Then
        
        Conn.Execute "exec SP_AlmacenarArchivo '" & TipoArchivo & "','" & sDescription & "','" & RutaFichero & "'"
        
        MsgBox "Fichero almacenado en la tabla Archivos"
        Me.btnGuardaFichero.Caption = "Seleccionar fichero"
        Me.btnRecuperarFichero.Caption = "Recuperar fichero"
        
        Me.lbl_Msg.Visible = False
        Else
            Me.btnGuardaFichero.Caption = "Seleccionar fichero"
            Me.btnRecuperarFichero.Caption = "Recuperar fichero"
            
            sDescription = Empty
            Me.lbl_Msg.Visible = False
            Exit Sub
    End If
End If


Salir:
    If Err <> 0 Then
        MsgBox Err.Description, vbCritical
    End If

End Sub

Private Sub btnRecuperarFichero_Click()
Dim sql As String
Dim idArchivo As String
Dim x As Long

On Error GoTo Salir

If Me.btnRecuperarFichero.Caption = "Cancelar" Then
    Me.btnGuardaFichero.Caption = "Seleccionar fichero"
    Me.lbl_Msg.Visible = False
    Me.btnRecuperarFichero.Caption = "Recuperar fichero"
    Exit Sub
End If


Set Rst = New ADODB.Recordset
Set stm = New ADODB.Stream

    idArchivo = InputBox("Escriba el ID del fichero a recuperar:")
    If idArchivo = Empty Then Exit Sub

sql = "SELECT * FROM archivos WHERE id_archivo=" & idArchivo

Rst.Open sql, Conn

stm.Type = adTypeBinary
stm.Open
stm.Write Rst("fichero").Value
TipoArchivo = Rst("tipo_archivo").Value

stm.SaveToFile "C:\Temp\Temp." & TipoArchivo, adSaveCreateOverWrite
    If TipoArchivo = "xlsx" Or TipoArchivo = "xlsm" Then
        Workbooks.Open Filename:="C:\Temp\Temp." & TipoArchivo
    Else
        x = ShellExecute(0, "Open", "C:\Temp\Temp." & TipoArchivo, vbNullString, vbNullString, 1)
    End If
    

Salir:
    If Err <> 0 Then
        MsgBox Err.Description, vbCritical
    End If

End Sub

Private Sub UserForm_Initialize()
    Me.lbl_Msg.Visible = False
    Me.btnGuardaFichero.Caption = "Seleccionar fichero"
End Sub

En la segunda parte de esta emisión te doy explicación de cada una de las líneas que involucran el guardar y recuperar ficheros desde SQL Server.

Ya para finalizar este breve sondeo, te dejo los enlaces de descarga del Query y el proyecto de Excel completo. Y te invito a ver el contenido en YouTube para que tengas una mejor percepción de cómo trabaja el cliente de conexión de Excel.


Enlaces de descarga:



Si esta publicación te gustó, compártela con tus amigos... y te invito a que te suscribas a youtube.excelymas.com en donde encontrarás contenido audivisual totalmente gratuito.

Nos vemos en la próxima entrega.

¡Saludos!








Enviar correos electrónicos con la Función HIPERVINCULO


Ya todos conocemos la función HIPERVINCULO, y estoy seguro que ustedes la han utilizado infinidad de veces para crear enlaces a sus sitios web favoritos.

Esta función además de facilitarnos la tarea de darnos acceso a nuestros sitios web, también podemos crear enlaces que nos dirijan a distintos lugares dentro de un libro de trabajo.


Y por supuesto también, podríamos tener acceso a otros archivos de nuestro disco local.

Pero el objetivo de este tip, es mostrarles lo sencillo que es, estructurar en una hoja de cálculo, una plantilla que nos permita enviar correos electrónicos desde Excel. Obviamente esto funcionará siempre y cuando tengamos instalada una aplicación cliente de correo, como Microsoft Outlook o en su defecto, la aplicación de correo que ya viene integrada en Windows 8 y en Windows 10.

En el siguiente enlace a YouTube, te muestro paso a paso de cómo lograr el resultado, según la ilustración que te muestro al inicio de este publicación.

Mira el Vídeo AQUÍ

Descarga el archivo base que utilicé para realizar el ejemplo AQUÍ

Si esta publicación te gustó, compártelo con tus amigos, y te invito a que te suscribas a youtube.excelymas.com es totalmente gratis.

Capturar Datos mediante la función InputBox




















Muchas veces cuando capturamos datos en una hoja de cálculo, requerimos de una automatización, y la forma habitual sería crear un UserForm con TextBoxes insertados y de esa forma recopilar la información de una forma automatizada. Sin embargo, la creación de un UserForm nos podría llevar demasiado tiempo en implementar, por lo que en este post, les traigo una forma práctica para automatizar la captura de datos utilizando la función InputBox.

















Lo único que tienes que hacer, es dirigirte al entorno VBA, insertar un nuevo módulo y pegar el siguiente código. Recuerda que lo puedes personalizar según tus necesidades.

Sub CapturarDatos()
Dim f As Long
Dim Entrada1 As String
Dim Entrada2 As String
Dim Entrada3 As String


Do
    f = Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    Entrada1 = InputBox("Código:")
    If Entrada1 = Empty Then Exit Sub
    
    Entrada2 = InputBox("Descripción:")
    If Entrada2 = Empty Then Exit Sub
    
    Entrada3 = InputBox("Existencia:")
    If Entrada3 = Empty Then Exit Sub
    

    Cells(f, 1) = Entrada1
    Cells(f, 2) = Entrada2
    Cells(f, 3) = Entrada3
    
    Hoja1.Range("A1").CurrentRegion.Sort Key1:=Hoja1.Range("A1"), Header:=xlYes

Loop
End Sub

Pera comprender mejor su funcionamiento, te invito a ver el vídeo completo en YouTube AQUÍ
Además puedes descargar el archivo base desde AQUÍ


Si el contenido te gustó, compártelo con tus amigos en las diferentes redes sociales.
Saludos cordiales!





Controles ActiveX | TextBox | Características Principales


En La mayoría de los desarrollos que realicemos en VBA, siempre tendremos la necesidad de utilizar un TextBox, ya sea como medio de entrada para enviar datos a una hoja de cálculo, o para mostrar datos como resultado de una consulta o simplemente para obtener el cálculo de una operación aritmética. En fin, las posibilidades pueden ser diversas.
En este capítulo conoceremos las propiedades más relevantes de un TextBox, y por las cuales nos resulta de mucha importancia, la utilización de este tipo de controles para nuestros proyectos.

A continuación tenemos un código de programación VBA con el cual podrán hacer un sencillo formulario de captura de datos...


Private Sub CommandButton1_Click()
    Dim f As Long
    
    If TextBox1 = Empty Then
        MsgBox "Debe ingresar un nombre de cliente"
        TextBox1.SetFocus
        Exit Sub
        ElseIf TextBox2 = Empty Then
        MsgBox "Debe ingresar un ocrreo electrónico"
        TextBox2.SetFocus
        Exit Sub
    End If

If Cells(1, 13) = Empty And Cells(1, 14) = Empty Then
    Cells(1, 13) = "Nombre del Cliente"
    Cells(1, 13).Font.Bold = True
    Cells(1, 14) = "Correo electrónico"
    Cells(1, 14).Font.Bold = True
End If
    
    f = Cells(Rows.Count, 13).End(xlUp).Row + 1
    
    Cells(f, 13) = TextBox1.Text
    Cells(f, 14) = TextBox2.Text
    
    TextBox1 = Empty
    TextBox2 = Empty
    
    TextBox1.SetFocus
End Sub


Te invito a ver el vídeo en YouTube y conozcas las características principales de este control ActiveX


Ver vídeo

Descarga Archivo Base

Excel + SQL Server + Azure | Azure SQL Database


Esta vez veremos una alternativa más de cómo podemos gestionar nuestros datos, y es creando una base de datos con Azure SQL Database.
Estas bases de datos no se gestionan dentro de una máquina virtual en particular, sino que son administradas directamente en el portal de Azure, y podremos acceder remotamente a ella desde nuestro proyecto cliente de Excel, mediante un servidor SQL que crearemos en el proceso.

Para este ejercicio, seguiremos utilizando los procedimientos almacenados que hemos visto en los capítulos anteriores, y además, he creado otros procedimientos almacenados que nos pueden servir de base para construir un sistema de facturación.

Aquí les dejo el query que contiene el Script completo que nos permitirá manejar los registros en el Servidor SQL de Azure.

create table productos
(
id_Cod int identity primary key,
cod_prod varchar(4) not null,
descripcion varchar(50)not null,
existencia int not null,
)
GO
insert into productos values('A001','MEMORIA USB 32GB',175);
insert into productos values('A002','DISCO DURO 2TB',15);
insert into productos values('A003','AIRE COMPRIMIDO',250);
insert into productos values('A004','ESPUMA LIMPIADORA',300);
insert into productos values('A005','FUNDA MONITOR',500);
insert into productos values('A006','FUNDA TECLADO',700);
insert into productos values('A007','SILLA ERGONÓMICA',11);
insert into productos values('A008','ALFOMBRILLA PARA SILLA',25);
insert into productos values('A009','LÁMPARA ESCRITORIO',7);
insert into productos values('A010','MONITOR LED 18 PULGADAS',45);
insert into productos values('A011','LIBRERO',20);
GO

CREATE PROCEDURE SP_RegistrarProducto
@CodProd varchar(4),
@Descripcion varchar(50),
@Existencia int
AS
begin
insert into productos  values(@CodProd, @Descripcion, @Existencia)
end
GO

CREATE PROCEDURE SP_ModificarProducto
@CodProd varchar(4), 
@Descripcion varchar(50), 
@Existencia int
AS
update productos  set cod_prod =@CodProd, descripcion=@Descripcion, existencia=@Existencia
where
cod_prod=@CodProd
GO

CREATE PROC SP_EliminarProducto
@CodProd as varchar(4)
AS
delete from productos WHERE cod_prod=@CodProd 
GO

CREATE PROC SP_RestarExistencia
@CodProd as varchar(4),
@Cantidad as int
AS
UPDATE productos SET existencia=existencia-@Cantidad 
WHERE cod_prod=@CodProd 
GO

CREATE PROC SP_SumarExistencia
@CodProd as varchar(4),
@Cantidad as int
AS
UPDATE productos SET existencia=existencia+@Cantidad 
WHERE cod_prod=@CodProd 
GO

CREATE PROCEDURE SP_MostrarDatos
AS
SELECT * FROM productos



Por otra parte, el proyecto de Excel que nos sirve de cliente de conexión, lo he modificado de tal forma que podamos realizar consultas SQL y recuperar los datos directamente en una hoja de cálculo.
El siguiente código hace posible llamar los datos al servidor, desde Excel...


Sub ConsultaSQL()
Dim Fila As Long
Dim i As Long
Dim sql As String

On Error GoTo ErrorHandler

Hoja1.Range("A:D").Clear

    sql = [miConsulta].Text
    
ErrorHandler:
    If Err < 0 Then
        MsgBox Err.Description, vbCritical
        Exit Sub
    End If

     If Err = 3704 Then
         sql = "select * from productos order by cod_prod"
     End If
 
    Set Rst = New ADODB.Recordset
    Rst.Source = sql
    Rst.ActiveConnection = Conn
    Rst.Open sql, Conn

    Fila = 0
        
    For i = 0 To Rst.Fields.Count - 1
        Hoja1.Cells(Fila + 1, i + 1).Value = Rst.Fields(i).Name
    Next i

    Fila = 1
    
    Do While Not Rst.EOF
        For i = 0 To Rst.Fields.Count - 1
            Hoja1.Cells(Fila + 1, i + 1).Value = Rst.Fields(i)
        Next i
        Fila = Fila + 1
        Rst.MoveNext
    Loop
   
End Sub

Te invito a ver el vídeo en YouTube y descubrirás lo simple que es hacer este tipo de implementaciones.


Ver vídeo

Descarga el Proyecto

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

How to Install SQL Server on Ubuntu Server VM

Lista de Reproducción en YouTube.excelymas.com

En esta ocasión crearé un servidor Linux desde una imagen disponible en el Marketplace de Microsoft Azure.
Este ejercicio lo realizaré instalando un Ubuntu Server y al cual posteriormente le instalaré SQL Server para poder acceder desde un proyecto de Excel que servirá de cliente de conexión.









La instalación paso a paso del sistema operativo y SQL Server, la pueden ver en mi canal de YouTube en el siguiente enlace...


Ver vídeo en YouTube





Sin embargo en la instalación, opté por autenticarnos en el servidor, mediante una contraseña, y la forma recomendada y tener una mejor seguridad en nuestro servidor, es hacerlo mediante una clave pública SSH (Secure Shell)


Aquí les muestro paso a paso cómo generar claves públicas SSH y acceder de esa forma a nuestro servidor linux.


Paso 1

La conexión la realizaré desde Windows hacia Linux, y lo haré con el cliente de conexión llamado PuTTY, claro esto solo servirá para conectarnos, ya que antes debemos generar las claves públicas con las siguientes herramientas: git para Wndows y PuTTYgen para Windows

Esto es lo que necesitas descargar




Paso 2


una vez hayas instalado Git, procede a ejecutar Git Bash como administrador y escribe el siguiente comando: openssl.exe req -x509 -nodes -days 365 -newkey rsa:2048 -keyout myPrivateKey.key -out myCert.pem



Le das Enter y vas proporcionando los datos que te vaya solicitando.

Ejecuta el siguiente comando para convertir el Archivo myPrivate.Key en una clave privada RSA

openssl rsa -in ./myPrivateKey.key -out myPrivateKey_rsa





Paso 3


Ejecuta puttygen.exe y das click en File >  Load a Private Key







y busca la clave privada a la que denominamos anteriormente myPrivateKey_rsa





Lo abres y te aparecerá un mensaje parecido al siguiente...


Click en Ok y te aparecerá la ventana de la siguiente manera...




En esta ventana das click en el botón Save private key y posteriormente en Save public key



y te pedirá que guardes un archivo txt que contiene la clave pública que te solicitará Azure en el momento que estés creando tu máquina virtual.







Paso 4

Una vez hayas instalado la máquina virtual, puedes proceder a ingresar al servidor, ejecutando el cliente de conexión PuTTY.exe e ingresas la IP Públcia o el nombre DNS del servidor...





Luego haz clic en la pestaña Connection > SSH > Auth para elegir la clave privada, como se muestra en la siguiente imagen...





Le das click en Open, para conectar con la máquina virtual...



Te aparecerá la advertencia de seguridad, das click en sí, y ya estarás conectado con tu máquina virtual...



Partiendo de aquí, ya puedes instalar SQL Server, según los pasos que sigues en el video publicado en YouTube.

Pues esta es la forma de como poner seguridad a nuestro servidor Linux, mediante claves públicas SSH.

El proyecto de Excel que les mencioné al principio, lo veremos en la próxima entrega, en donde analizaremos su código de programación.

Si el contenido te gustó, compártelo con tus amigos en las diferentes redes sociales, y además te invito a que te suscribas a mi canal en Youtube.excelymas.com