Ejecutar Procedimientos Almacenados de SQL Server desde Microsoft Access

Para ejecutar procedimientos almacenados escritos en SQL Server desde Microsoft Access, solo tenemos que recurrir a ADODB.

A través de esta librería, disponemos de varios objetos que nos ofrecerán a su vez varios modos de ejecutar:

• Directamente a través del objeto Connection. Este es el método más sencillo y es adecuado para procedimientos que no devuelvan información, aunque si se le puede enviar información en la llamada al procedimiento.
• A través de un objeto Command. Por este método sí podemos asociar parámetros al procedimiento que nos permiten tanto enviar como recibir informacion (input, output, input/output).

Veamos unos ejemplos:

A través del objeto Connetion:

Dim cs As String

cs = "Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=pepe;Initial Catalog=basededatos;Data Source=192.168.3.44"

Dim objConn As New ADODB.Connection

objConn.Open cs

objConn.Execute "exec actualizar_empresa '" + Trim(Me.CIF_NIF.Value) + "','Nombre_Base_Datos'"

A través del objeto command:

Dim cs As String
cs = "Provider=SQLOLEDB.1;Password=1234; Persist Security Info=True; User ID=pepe;Initial Catalog=basededatos;Data Source=192.168.3.44"

Dim objConn As New ADODB.Connection
objConn.Open cs
Dim objRs As New ADODB.Recordset
Dim oc As New ADODB.Command
Set oc.ActiveConnection = objConn
'El procedimiento almacenado en SQL Server es actualizar_empresa
oc.CommandText = "actualizar_empresa"
oc.CommandType = adCmdStoredProc
'Podemos enviar parámentros de entrada. Ej enviamos datos para un filtro.
Dim op As ADODB.Parameter
Set op = oc.CreateParameter("CIF_EMPRESA", adVarChar,adParamInput, 9)
oc.parameters.Append op
op.Value = Trim(cif)
Dim op1 As ADODB.Parameter
Set op1 = oc.CreateParameter("NOMBRE", adVarChar, adParamInput, 50)
oc.parameters.Append op1
op1.Value = "PEPE SANCHEZ"
oc.Execute

Por supuesto este código irá escrito en algún evento del formulario de Access desde el que deseemos lanzar el procedimiento.

Por último reseñar que debemos de tener referenciada en Access la librería ADO que deseamos usar (Herramientas – referencias y selecciónar la versión de Microsoft Activex Data Objects… que deseamos usar, con la 2.1 library funciona).

Estos ejemplos están probados para Access 2007 contra un procedimiento almacenado programado en SQL Server 2005.