jueves, 16 de julio de 2015

Borrar una restricción DEFAULT si conocer el nombre - SQL SERVER

DECLARE @ObjectName NVARCHAR(100)
SELECT @ObjectName = OBJECT_NAME([default_object_id]) 
FROM SYS.COLUMNS
WHERE [object_id] = OBJECT_ID('[dbo].[Certificados]') AND [name] = 'Print_QR';
EXEC('ALTER TABLE [dbo].[Certificados] DROP CONSTRAINT ' + @ObjectName)
GO

miércoles, 8 de julio de 2015

Sencillo método para abrir un archivo desde un campo hipervínculo en MS ACCESS.

Sencillo método para abrir un archivo desde un campo hipervínculo en MS ACCESS.

Private Sub FileList_Click()
    On Error GoTo NoSePuedoAbrir
    Application.FollowHyperlink FileList.Value
    Exit Sub
NoSePuedoAbrir:
    MsgBox "No se puede abrir el archivo porque no existe una aplicación asociada a esa extensión."
    Exit Sub
End Sub