miércoles, 30 de marzo de 2016

SQL Server - Insertar fila si no existe

IF NOT EXISTS (SELECT '1' FROM Opciones C WHERE C.Opcion = 'Carpeta Contratos')
BEGIN
INSERT INTO Opciones (Opcion, Valor, Tipo, [Sección], Notas)
VALUES ('Carpeta Contratos','blabla','Texto','Ubicaciones','Carpeta en donde se almacenan los documentos de contratos.')
END
GO

SQL Server - Crear o reemplazar vista

IF EXISTS (SELECT TABLE_NAME FROM INFORMATION_SCHEMA.VIEWS WHERE TABLE_NAME = 'V_Certificados_Rutas_Contratos')
DROP VIEW V_Certificados_Rutas_Contratos
GO
CREATE VIEW V_Certificados_Rutas_Contratos
AS
SELECT 
...

sábado, 19 de marzo de 2016

Ver y modificar la configuración de SQL Server DataBase Mail

Para consultar la configuración:

select * from msdb.dbo.sysmail_configuration



Para modificar la configuración:

EXECUTE msdb.dbo.sysmail_configure_sp 'AccountRetryAttempts', '4';


viernes, 18 de marzo de 2016

Posicionarse en un registro de MS Access por clave primaria (sin DoCmd.GoToRecord)

Supongamos que queremos movernos a otro registro de otro formulario usando clave primaria donde DoCmd.GoToRecord no puede ayudarnos. Esta es una posible solución:

Dim idExtension As Integer
idExtension = Me("Id Extensión")
[Form_Certificados_Editor].Certificados_Editor_Extensiones.SetFocus
[Form_Certificados_Editor].Certificados_Editor_Extensiones.Form.Recordset.FindFirst "ID=" & idExtension