notas sobre microsoft access con sql server: mayo 2016

martes, 17 de mayo de 2016

IF NOT EXISTS

(SELECT name

FROM master.sys.server_principals

WHERE name = 'ff')

BEGIN

CREATE LOGIN ff WITH PASSWORD = N'ff', CHECK_POLICY = OFF

END

IF NOT EXISTS

(SELECT 1

FROM DBO.SYSUSERS

WHERE name = 'ff')

BEGIN

CREATE USER ff FROM LOGIN ff

EXEC SP_ADDROLEMEMBER 'db_datawriter', 'ff'

EXEC SP_ADDROLEMEMBER 'db_datareader', 'ff'

END

IF object_id(N'[dbo].[EnviarMails_Auditoria]', 'p') IS NULL

EXEC ('create procedure EnviarMails_Auditoria as select 1')

ALTER PROCEDURE EnviarMails_Auditoria

SELECT 2

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