Wednesday, December 31, 2025

Force ConnectionString

Sub testConnection()

    Dim strConName As String
    
    strConName = "MATLKSPRPSQD003 TestSecurityModel Model"

    'ActiveWorkbook.Connections("MATLKSPRPSQD003 TestSecurityModel Model").Name = "Benson_test"
    ActiveWorkbook.Connections("Benson_test").Name = strConName
    
    With ActiveWorkbook.Connections(strConName)
        .OLEDBConnection.Connection = "OLEDB;Provider=MSOLAP.5;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=TestSecurityModel;Data Source=MATLKSPRPSQD003;MDX Compatibility=1;Roles=HRSSC_T2_CRT_BENSON;Safety Options=2;MDX Missing Member Mode=Error"

    End With

End Sub


Sub testConnectionString()
    
    With ActiveWorkbook.Connections("MATLKSPRPSQD003 TestSecurityModel Model")
        .OLEDBConnection.Connection = "OLEDB;Provider=MSOLAP.5;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=TestSecurityModel;Data Source=MATLKSPRPSQD003;MDX Compatibility=1;Roles=HRSSC_T2_CRT_BENSON;Safety Options=2;MDX Missing Member Mode=Error"
    End With

End Sub

T-SQL Trigger example



create table Derived_Values
  (
    BusinessUnit nvarchar(100) not null
    ,Questions nvarchar(100) not null
    ,Answer nvarchar(100)
    )

go

ALTER TABLE Derived_Values ADD CONSTRAINT PK_Derived_Values
PRIMARY KEY CLUSTERED (BusinessUnit, Questions);

create table Derived_Values_Test
  (
    BusinessUnit nvarchar(150) not null
    ,Questions nvarchar(100) not null
    ,Answer nvarchar(100)
    )

go

ALTER TABLE Derived_Values_Test ADD CONSTRAINT PK_Derived_Values_Test
PRIMARY KEY CLUSTERED (BusinessUnit, Questions);

CREATE TRIGGER trgAfterInsert ON  [Derived_Values]
FOR INSERT
AS  
begin
    insert
        [Derived_Values_Test]
        (BusinessUnit,Questions,Answer)
    SELECT 
        i.BusinessUnit, i.Questions, i.Answer
    FROM 
        inserted i
end

CREATE TRIGGER dbo.Table1_Updated
ON dbo.Table1
FOR INSERT, UPDATE /* Fire this trigger when a row is INSERTed or UPDATEd */
AS BEGIN
  UPDATE dbo.Table1 SET dbo.Table1.LastUpdated = GETDATE()
  FROM INSERTED
  WHERE inserted.id=Table1.id
END