Cómo llamar a un procedimiento almacenado de SQL Uso de MS Access VBA

Conocer cómo llamar a un procedimiento almacenado de Microsoft SQL Server de Microsoft Office Access utilizando Visual Basic para Aplicaciones (VBA) le puede ahorrar tiempo cuando se necesita para ejecutar el procedimiento almacenado. SQL Server es un sistema de gestión de base de datos relacional utilizado para grandes bases de datos. El acceso es también un sistema de gestión de base de datos relacional, pero comúnmente se utiliza para bases de datos más pequeñas. VBA es un lenguaje de programación utilizado para automatizar tareas rutinarias en las aplicaciones de Microsoft Office como Access.

Instrucciones

1 Iniciar Microsoft Office Access 2007 y seleccione "Base de datos en blanco", a continuación, haga clic en "Crear". Haga clic en "Herramientas de base de datos" y seleccione "Visual Basic". Haga clic en el "insertar" y seleccione "Módulo".

2 Seleccione el menú "Herramientas" y haga clic en "Referencias ..." Marque la casilla junto a "Microsoft ActiveX Data Objects <número de versión> Biblioteca." Haga clic en Aceptar."

3 Escribe lo siguiente para crear una nueva subrutina y declarar variables:

Public Sub createDataToAnalyze ()

Dim objConnection As New ADODB.Connection

Dim objCom Como ADODB.Command

Dim como secuencia provStr

4 Escribe lo siguiente para definir la conexión con el servidor SQL:

Establecer objCom = Nueva ADODB.Command

objConnection.Provider = "sqloledb"

provStr = "Data Source = NOMBRESERVIDOR;" & "Initial Catalog = BASE DE DATOS NOMBRE; User Id = ID de usuario; contraseña = contraseña;"

Editar la cadena "provStr" e introduzca su información de conexión, como el nombre del servidor, nombre de base de datos, nombre de usuario y contraseña.

5 Escribe lo siguiente para definir la información de procedimiento almacenado:

objConnection.Open provStr

con objCom

.ActiveConnection = objConnection

.CommandText = "SpCreateUserTbl"

.CommandType = AdCmdStoredProc

.Ejecutar

Terminar con

end sub

Editar la línea siguiente y escriba su nombre de procedimiento almacenado:

.CommandText = "SpCreateUserTbl"

6 Pulse la tecla "F5" para ejecutar la subrutina.