Excel + SQL Server + Azure | Sending Data from Excel to SQL Server on Azure VM

En esta entrega veremos cómo conectar a la máquina virtual que creamos en Azure en el capítulo anterior.

He diseñado un UserForm, que nos permitirá realizar la conexión al servidor y hacer el registro de los datos con una sentencia SQL desde Excel, haciendo uso de código de programación VBA.

Aquí pueden ver la apariencia que tiene dicho formulario, y lo práctico que resulta conectar a una máquina virtual en la nube y gestionar la base de datos alojada en SQL Server.

Una vez conectemos al servidor, podremos enviar registros fácilmente al gestor de base de datos.

Observa lo sencillo que es crear un procedimiento para conectar a SQL Server.

Sub Conectar_SQLserver(servidor As String, usuario As String, pass As String, base As String)
On Error GoTo Salir
    
    Set Conn = New ADODB.Connection
                     
        Conn.ConnectionString = "Data Source=" & servidor & ";" & _
                                "Initial Catalog=" & base & ";" & _
                                "Persist Security Info=True;" & _
                                "User ID=" & usuario & ";" & _
                                "Password=" & pass & ";" & _
                                "provider=SqlOLEDB.1"
    

    Conn.Open
    
    MsgBox "Conexión establecida satisfactoriamente", vbInformation
    Conectado = True
    
Salir:
    If Err <> 0 Then
        MsgBox Err.Description, vbCritical
        Conectado = False
    End If
End Sub

Te invito a que veas el vídeo para que tengas la explicación completa...
Y si ya lo viste, y vienes desde el canal de YouTube, abajo encontrarás el proyecto para que lo puedas descargar y hacer las pruebas correspondientes.

Ver vídeo

Descarga el Proyecto