miércoles, 10 de abril de 2019

MS Access - Run-time error 3000 - Reserved error (-7711) - SQL Server

Recientemente me he encontrado con este error es MS Access:

MS Access - Run-time error '3000' - Reserved error (-7171), there is no message for this error



Una posible causa a este problema puede ser el espacio de la base de datos. En mi caso, había llegado a la restricción de SQL Server Express. El detalle del error podía verse en el visor de sucesos de Windows:

CREATE DATABASE or ALTER DATABASE failed because the resulting cumulative database size would exceed your licensed limit of 10240 MB per database.

Algunas opciones para hacer espacio:

Log de transacciones

USE mibase
GO
ALTER DATABASE mibase
SET RECOVERY SIMPLE;
GO
DBCC SHRINKFILE ( mibase  _log, 1);
GO
ALTER DATABASE mibase
SET RECOVERY FULL;

Revisar espacio en MSDB

sp_helpdb msdb 



La siguiente consulta nos puede ayudar con el tamaño de las tablas.

select
    object_name(i.object_id) as ObjectName,
    i.[name] as IndexName,
    sum(a.total_pages) as TotalPages,
    sum(a.used_pages) as UsedPages,
    sum(a.data_pages) as DataPages,
    (sum(a.total_pages) * 8) / 1024 as TotalSpaceMB,
    (sum(a.used_pages) * 8) / 1024 as UsedSpaceMB, 
    (sum(a.data_pages) * 8) / 1024 as DataSpaceMB
from
    sys.indexes i
    inner join sys.partitions p 
        on i.object_id = p.object_id and i.index_id = p.index_id
    inner join sys.allocation_units a
        on p.partition_id = a.container_id
group by
    i.object_id, 
    i.index_id, 
    i.[name]
order by
    sum(a.total_pages) desc, 
    object_name(i.object_id)
go



Si el problema es de DataBase Mail, se pueden usar estos procedimientos (no usar truncate):

EXECUTE msdb.dbo.sysmail_delete_mailitems_sp @sent_before = 'October 9, 2005' ; GO 

EXECUTE msdb.dbo.sysmail_delete_log_sp  @logged_before = 'October 9, 2005' ;  
GO 

Usar con cuidado si tenemos muchos elementos para eliminar. Jugar con los rangos de fechas.
Es posible que se requiera posteriormente hacer un Shrink:



viernes, 29 de marzo de 2019

sp_send_dbmail - Attachment File is invalid

Cuando ejecutamos dbo.sp_send_dbmail dentro de un bloque de control de errores, observamos que el siguiente error no es capturado dentro del CATCH:

Msg 22051, Level 16, State 1, Line 0
Attachment file C:\test.xls is invalid.  

Una posible solución a este problema es controlar la existencia de los archivos antes de enviar el correo con xp_fileexist 

Ejemplo de código:

DECLARE @Attachments VARCHAR(MAX)
DECLARE @Attachment VARCHAR(8000)
DECLARE @AttachmentValid INT
DECLARE @DetailError VARCHAR(MAX)

SET @Attachments = 'a;sdf;32;34;3434'
SET @DetailError = ''

WHILE len(@Attachments) > 0
BEGIN
     SET @Attachment = left(@Attachments, charindex(';', @Attachments+';')-1)
     EXEC master.dbo.xp_fileexist @Attachment, @AttachmentValid OUTPUT  
     IF @AttachmentValid = 0 SET @DetailError = @DetailError + '[' + @Attachment + '] no es válido. '
     SET @Attachments = stuff(@Attachments, 1, charindex(';', @Attachments+';'), '')
END

viernes, 6 de enero de 2017

MS Access: The expression On Current you entered as the event property setting produced the following error

En caso de obtener el siguiente error:

"The expression On Current you entered as the event property setting produced the following error"



Pueden intentar resolverlo utilizando:

"C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" /decompile 

lunes, 31 de octubre de 2016

MS Access: Cannot perform join, group, sort, or indexed restriction. A value being searched or sorted on is too long

Me he encontrado con este problema en Access:

Cannot perform join, group, sort, or indexed restriction. A value being searched or sorted on is too long.



Si bien las causas pueden ser varias, en mi caso el problema fue vincular una tabla de SQL Server y seleccionar como clave primaria un campo que poseía valores mayores a 255 caracteres.

jueves, 27 de octubre de 2016

¿Cómo pasar un argumento al abrir un formulario en MSAccess?

El último argumento al abrir un formulario permite pasar parámetros:

    DoCmd.OpenForm "Certificados_Revision", acNormal, , , , , "M"

Luego en la apertura del formulario:

Private Sub Form_Open(Cancel As Integer)

    If Me.OpenArgs = "M" Then
        MsgBox Me.OpenArgs
    Else

viernes, 21 de octubre de 2016

SQL Server - Cannot resolve the collation conflict between

Al intentar crear una vista, se obtiene el siguiente error:

Msg 468, Level 16, State 9, Procedure V_Monitor_Emails_Detalle, Line 3
Cannot resolve the collation conflict between "SQL_Latin1_General_CP1_CI_AS" and "Modern_Spanish_CI_AS" in the UNION operation.

Contexto:
  • La vista es UNION entre una tabla y una vista
  • La tabla ha sido creada por el usuario
  • La vista es una vista sobre otra vista nativa de SQL Server
El problema es que algunas columnas tienen distintas "collation" que otras y esto es verificado por SQL Server, por cada columna al momento de hacer la UNION. En este caso la causa del problema es que una es una vista nativa y la otra es una tabla creada por el usuario.

Accediendo a las propiedades de cada columna, se puede ver el detalle:



La forma de resolverlo es agregando COLLATE DATABASE_DEFAULT en las columnas que correspondan, por ejemplo:

(...)

      ,[Enviado]
      ,[Error]
      ,[Cuenta]
FROM 
Correos C
UNION
SELECT Year(Fecha) As Anio, Month(Fecha) AS Mes, Day(Fecha) AS Dia, DATEPART(HOUR,Fecha) AS Hora,
      null AS [ID]
      ,null AS [Estado]
      ,null AS [Reintentos]
      ,null AS [Último reintento]
      ,[Fecha]
      ,'ND' AS [Para]
      ,null AS [CC]
      ,null AS [CO]
      ,Titulo COLLATE DATABASE_DEFAULT AS [Asunto]
      ,Adicional COLLATE DATABASE_DEFAULT AS [Cuerpo] 
      ,null AS [Adjuntos]
      ,null AS [Formato]

jueves, 20 de octubre de 2016

¿Cómo ejecutar un Stored Procedure de SQL Server desde MS Access que retorne un valor STRING?

Anteriormente explicamos cómo ejecutar un procedimiento de SQL Server. Pueden consultarlo en este enlace:


En esta oportunidad explicaremos cómo ejecutar un procedimiento que retorne un valor como el siguiente:

CREATE PROCEDURE dbo.CerrarProceso 
@proceso INT
AS
    SELECT 'resultado'
GO

La forma de ejecutar el procedimiento desde SQL sería:

EXECUTE CerrarProceso 286

La forma de ejecutarlo desde MS Access sería:

    Dim qdef As DAO.QueryDef
    Dim rs As Recordset
    Set qdef = CurrentDb.CreateQueryDef("")
    qdef.ReturnsRecords = True
    qdef.Connect = CurrentDb.TableDefs("[dbo_Estados]").Connect
    Dim sql As String
    sql = "EXEC CerrarProceso " & Proceso
    qdef.sql = sql
    Set rs = qdef.OpenRecordset()
    MsgBox (rs.Fields(0))

martes, 11 de octubre de 2016

SQL Server - Como copiar datos entre tablas manteniendo el ID con Identitty

Escenario:
  • Queremos copiar datos de una tabla de una base de datos hacia otra tabla similar en otra base de datos
  • La tabla posea una columna que utiliza IDENTITY
  • Queremos usar el mismo ID que en la base origen
Para ello utilizamos la opción identity_insert :

set identity_insert basedestino.dbo.Propuestas_Opciones on

insert into basedestino.dbo.Propuestas_Opciones (ID,Campo,Valor) select ID,Campo,Valor from baseorigen.dbo.Propuestas_Opciones

set identity_insert basedestino.dbo.Propuestas_Opciones off

lunes, 8 de agosto de 2016

SQL Server: eliminar clave foránea si existe

IF EXISTS (SELECT * 
  FROM sys.foreign_keys 
   WHERE object_id = OBJECT_ID(N'dbo.FK_Vigilancias_Normas_Adicionales_Normas')
   AND parent_object_id = OBJECT_ID(N'dbo.Vigilancias_Normas_Adicionales')
)
  ALTER TABLE Vigilancias_Normas_Adicionales DROP CONSTRAINT FK_Vigilancias_Normas_Adicionales_Normas

IF EXISTS (
SELECT * 
FROM sys.columns 
WHERE  object_id = OBJECT_ID(N'[dbo].[Vigilancias_Normas_Adicionales]') 
AND name = 'ID Norma'
)
BEGIN
ALTER TABLE [dbo].[Vigilancias_Normas_Adicionales] DROP COLUMN [ID Norma]
END

viernes, 22 de julio de 2016

SQL Server: inhabilitar trigger temporalmente

ALTER TABLE Certificados DISABLE TRIGGER Certificados_Trigger_Eventos
GO
UPDATE Certificados
SET Resolución = 'blabla'
GO
ALTER TABLE Certificados ENABLE TRIGGER Certificados_Trigger_Eventos
GO

martes, 19 de julio de 2016

SQL Server: leer contenido de una carpeta de Windows

Escenario

Se requiere que un stored procedure acceda a una carpeta de windows y lea los nombres de los archivos dentro de esa carpeta

Enfoque xp_dirtree

La siguiente línea de código funciona:

EXEC xp_dirtree @carpeta, 1, 1 

Pero posee algunas desventajas
  • Estos procedimientos no están documentados
  • Microsoft recomienda no usarlos
  • Microsoft aclara que pueden desaparecer en versiones futuras de SQL Server
  • Requiere permisos de sysadmin para ver el contenido de la carpeta

Enfoque CLR

Todas las recomendaciones indican no utilizar los procedimientos XP y en su lugar crear código C# que pueda ser utilizado desde SQL Server. Para ello se requiere crear un proyecto especial en Visual Studio para SQL Server.

El código para leer los archivos es el publicado en http://stackoverflow.com/a/11560496/2144424 por Eoin Campbell:

public partial class UserDefinedFunctions
{
    [SqlFunction(DataAccess = DataAccessKind.Read,
        FillRowMethodName = "GetFiles_FillRow", TableDefinition = "FilePath nvarchar(4000)")]
    public static IEnumerable GetFiles(SqlString path)
    {
        return System.IO.Directory.GetFiles(path.ToString()).Select(s => new SqlString(s));
    }

    public static void GetFiles_FillRow(object obj,out SqlString filePath)
    {
        filePath = (SqlString)obj;
    }
};

Una vez desplegada esta solución, veremos lo siguiente en SQL Server:


Y funciona simplemente haciendo lo siguiente

select * From GetFiles('C:\Temp\');
En mi caso, como he incluido este SELECT dentro de un sotored procedure, he necesitado darle más privilegios al SP usando esta línea de código:

CREATE PROCEDURE dbo.EnviarMails
@auditoria INT,
@modo NVARCHAR(10)
WITH EXECUTE AS OWNER
AS
DECLARE @para VARCHAR(MAX)

Por último muestro cómo hacer el despliegue de esta solución en ambientes productivos. Pueden ayudarse siguiendo este camino:
  • Despliegan desde Visual Studio en el ambiente de desarrollo
  • Utilizan en SQL Management Studio la función de generar scripts para crear el script de instalación en producción
De todas formas, acá dejo un ejemplo:

USE [mibase]
GO
EXEC sp_configure 'clr enabled', '1'
GO
RECONFIGURE
GO
EXEC sp_changedbowner 'sa'
GO
ALTER DATABASE mibase SET TRUSTWORTHY ON;
GO
IF EXISTS (SELECT *
           FROM   sys.objects
           WHERE  object_id = OBJECT_ID(N'[dbo].[GetFiles]')
                  AND type IN ( N'FN', N'IF', N'TF', N'FS', N'FT' ))
DROP FUNCTION [GetFiles]
GO
IF EXISTS (
SELECT * 
FROM sys.assemblies 
WHERE name='BD_Extended'
)
BEGIN
DROP ASSEMBLY BD_Extended
END
GO
CREATE ASSEMBLY _Extended from 'C:\BD_Extended\BD.Extended.dll' WITH PERMISSION_SET = EXTERNAL_ACCESS
GO
CREATE FUNCTION [dbo].[GetFiles](@path [nvarchar](4000))
RETURNS  TABLE (
[FilePath] [nvarchar](4000) NULL
) WITH EXECUTE AS CALLER
AS 
EXTERNAL NAME [BD_Extended].[UserDefinedFunctions].[GetFiles]
GO

jueves, 14 de julio de 2016

@@IDENTITY con MS Access y SQL Server

Problema

Supongamos un escenario en donde tenemos a SQL Server como base de datos y MS Access como aplicación.

Insertamos un registro en una tabla y queremos ver el ID asignado, para lo cual utilizamos esta línea de código:

Set rs = CurrentDb.OpenRecordset("SELECT @@IDENTITY", dbOpenForwardOnly)

¿Cuál es el problema?

Si existe un trigger detrás de esta tabla que inserta en otra tabla, es posible que el IDENTITY sea el del trigger y no el que estamos buscando

Solución

Una posible solución es usar la función nativa de SQL Server para obtener el último IDENTITY de una tabla:

Function Retornar_Identity_Tabla()
    Dim qdef As DAO.QueryDef
    Dim VarRecords As Variant
    Set qdef = CurrentDb.CreateQueryDef("")
    qdef.ReturnsRecords = True
    qdef.Connect = CurrentDb.TableDefs("dbo_Certificados").Connect
    qdef.sql = "SELECT IDENT_CURRENT('certificados')"
    qdef.OpenRecordset
    VarRecords = qdef.OpenRecordset.GetRows(1)
    Retornar_Scope_Identity = VarRecords(0, 0)
End Function

martes, 12 de julio de 2016

SQL SERVER: crear o reemplazar tabla

IF EXISTS (SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = 'mitabla')
DROP TABLE mitabla
GO
CREATE TABLE [dbo].[mitabla](
[ID] [int] IDENTITY(1,1) NOT NULL,
[Fecha] [datetime] NOT NULL,
[Aplicacion] [nvarchar](200) NOT NULL,
[Version] [nvarchar](50) NOT NULL,
[Titulo] [nvarchar](200) NOT NULL,
[Modulo] [nvarchar](200) NOT NULL,
[Usuario] [nvarchar](200) NULL,
[Detalle] [nvarchar](max) NULL,
[Severidad] [nvarchar](50) NULL,
CONSTRAINT [PK_mitabla] PRIMARY KEY
(
[ID]
)

martes, 28 de junio de 2016

MS Access error ODBC 4405

Quizá se hayan encontrado con este problema:



SQL Server tiene una limitación. Genera un error 4405 cuando se modifican campos en una vista que afectan a más de una tabla base.
Se puede resolver haciendo que cada vez que cambias un campo en esa pantalla, se grabe.

Private Sub Combo53_AfterUpdate()
    RunCommand acCmdSaveRecord
    Me.Requery
    Combo53.SetFocus
End Sub

Private Sub ComboInspector_AfterUpdate()
    RunCommand acCmdSaveRecord
    Me.Requery
    ComboInspector.SetFocus
End Sub


lunes, 27 de junio de 2016

MSAccess: A problem occured while DB was communicating with the OLE server or Active X Control

Me he encontrado con este problema en una base de datos existente:



Luego de probar muchas soluciones encontré una muy sencilla y efectiva:
  • Duplicar el formulario con problemas (copiar y pegar)
  • Borrar el formulario con problemas y reemplazarlo por el duplicado
Esta solución funcionó en mi caso. Más información en: http://stackoverflow.com/a/29355405/2144424

martes, 17 de mayo de 2016

SQL SERVER: crear usuario y login si no existen

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
GO
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
GO

lunes, 16 de mayo de 2016

SQL SERVER: crear o reemplazar stored procedure

IF object_id(N'[dbo].[EnviarMails_Auditoria]', 'p') IS NULL
    EXEC ('create procedure EnviarMails_Auditoria as select 1')
GO
ALTER PROCEDURE EnviarMails_Auditoria
AS
SELECT 2
GO

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

viernes, 29 de abril de 2016

SQL SERVER: error desde trigger

ALTER TRIGGER [dbo].[Web_Usuarios_Trigger_Controles]
ON [dbo].[Web_Usuarios]
AFTER INSERT, UPDATE
AS 
BEGIN
IF EXISTS (
 SELECT 1
 FROM Web_Usuarios 
 WHERE 
Estado = 'Activa' 
AND [ID] NOT IN (SELECT id FROM INSERTED) /* No es el insertado */
AND [ID Solicitante] IN (SELECT [ID Solicitante] FROM INSERTED) /* Mismo solicitante */
AND 'Activa' IN (SELECT Estado FROM INSERTED) /* El registro insertado está activo */
  )
  BEGIN
 RAISERROR ('Una empresa no puede estar autorizada para más de un cliente.' ,10,1)
 ROLLBACK TRANSACTION
  END 
ELSE
BEGIN
UPDATE [Web_Usuarios] SET [Fecha modificación] = GETDATE() WHERE [ID] IN (SELECT id FROM INSERTED)
END
END
GO

SQL SERVER: crear clave foránea si no existe

IF NOT EXISTS (
SELECT * 
FROM sys.foreign_keys 
WHERE object_id = OBJECT_ID(N'[dbo].[FK_Web_Usuarios_Web_Usuarios_Maestro]') 
)
BEGIN
ALTER TABLE Web_Usuarios 
WITH CHECK ADD CONSTRAINT [FK_Web_Usuarios_Web_Usuarios_Maestro]
FOREIGN KEY([ID Usuario Web])
REFERENCES [Web_Usuarios_Maestro] ([ID Usuario Web])
ALTER TABLE Web_Usuarios
CHECK CONSTRAINT [FK_Web_Usuarios_Web_Usuarios_Maestro]
END
GO