viernes, 13 de mayo de 2016

¿Cómo ejecutar un Stored Procedure de SQL Server desde MS Access?

Function Ejecutar_Procedimiento()
    Dim qdef As DAO.QueryDef
    Set qdef = CurrentDb.CreateQueryDef("")
    qdef.ReturnsRecords = False
    qdef.Connect = CurrentDb.TableDefs("[cualquier tabla linkeada de SQL]").Connect
    qdef.sql = "EXEC mi_store"
    qdef.Execute
End Function