-
Notifications
You must be signed in to change notification settings - Fork 11
Expand file tree
/
Copy pathVersionControl_mssql2016.sql
More file actions
240 lines (207 loc) · 6.11 KB
/
VersionControl_mssql2016.sql
File metadata and controls
240 lines (207 loc) · 6.11 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
/* Version Control
Author: Lestat Kim ( lestvt@gmail.com )
sqlcom.ru | vk.com/sqlcom | @sqlcom
*/
USE master
GO
-- Сначала создаем историческую таблицу
IF NOT EXISTS (
SELECT 1
FROM sys.objects
WHERE name = 'VersionControlHistory'
AND type = 'U'
)
CREATE TABLE dbo.VersionControlHistory(
Id INT NOT NULL,
Event sysname NOT NULL,
Db sysname NOT NULL,
Sch sysname NOT NULL,
Object sysname NOT NULL,
Sql XML NOT NULL,
Login sysname NOT NULL,
StartDate DATETIME2(0) NOT NULL,
EndDate DATETIME2(0) NOT NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GO
-- А затем таблицу журнала изменений
IF NOT EXISTS (
SELECT 1
FROM sys.objects
WHERE name = 'VersionControl'
AND type = 'U'
)
CREATE TABLE dbo.VersionControl(
Id INT IDENTITY(1,1) NOT NULL CONSTRAINT PK_VersionControl
PRIMARY KEY NONCLUSTERED,
Event sysname NOT NULL,
Db sysname NOT NULL,
Sch sysname NOT NULL,
Object sysname NOT NULL,
Sql XML NOT NULL,
Login sysname NOT NULL,
StartDate DATETIME2(0) GENERATED ALWAYS AS ROW START NOT NULL,
EndDate DATETIME2(0) GENERATED ALWAYS AS ROW END NOT NULL,
PERIOD FOR SYSTEM_TIME (StartDate, EndDate)
) WITH (
SYSTEM_VERSIONING = ON (
HISTORY_TABLE = dbo.VersionControlHistory
)
);
GO
-- Создадим полезный индекс для обновления таблицы
IF NOT EXISTS (
SELECT 1
FROM sys.indexes
WHERE name = 'IX_VersionControl_upd_key'
)
CREATE UNIQUE NONCLUSTERED INDEX IX_VersionControl_upd_key
ON MASTER.dbo.VersionControl (Db, Sch, Object)
INCLUDE (Sql, Event, Login);
GO
/*
Важно помнить об ограничениях для Temporal Table
1. После создания temporal table вы не можете применять DDL команды ни к основной, ни
к исторической таблицам. И нельзя удалять Temporal table.
2. Нельзя изменять данные в исторической таблице
Второе ограничение - логично. Первое решается инструкцией:
ALTER TABLE dbo.VersionControl SET ( SYSTEM_VERSIONING = OFF )
И снова включаем поддержку изменений:
ALTER TABLE dbo.Products SET (
SYSTEM_VERSIONING = ON (
HISTORY_TABLE = dbo.ProductsHistory,
DATA_CONSISTENCY_CHECK = OFF
)
)
*/
-- Проинициалирируем существующие объекты
DECLARE @query NVARCHAR(MAX),
@template NVARCHAR(MAX) = N'
USE [db]
INSERT INTO MASTER.dbo.VersionControl WITH (TABLOCKX) (
Event, Db, Sch, Object, Sql, Login
)
SELECT ''INIT'' AS Event,
DB_NAME(),
ss.name AS Sch,
so.name AS Object,
CONCAT(''<query><![CDATA['', sasm.definition, '']]></query>'' ),
SUSER_SNAME() AS Login
FROM sys.objects AS so
JOIN sys.schemas AS ss ON ss.schema_id = so.schema_id
JOIN sys.all_sql_modules AS sasm ON sasm.object_id = so.object_id
WHERE so.is_ms_shipped = 0
AND NOT EXISTS (
SELECT 1
FROM MASTER.dbo.VersionControl AS vc
WHERE vc.Db = ''[db]''
AND vc.Sch = ss.name
AND vc.Object = so.name
);
';
DECLARE @databases TABLE (rn INT, Name sysname);
INSERT @databases (rn, Name)
SELECT ROW_NUMBER() OVER (ORDER BY (SELECT NULL)) rn, name
FROM sys.databases
WHERE owner_sid != 0x01;
DECLARE @i INT = 1,
@max INT = (SELECT MAX(rn) FROM @databases),
@error NVARCHAR(128),
@db sysname;
WHILE @i < @max BEGIN
SELECT @query = REPLACE(@template, '[db]', Name),
@db = Name
FROM @databases
WHERE rn = @i;
BEGIN TRY
EXECUTE sp_executesql @query;
SET @i += 1;
CONTINUE;
END TRY
BEGIN CATCH
SET @error = CONCAT(
'XML Parsing error. In this case that''s mean one of [',
@db, '] object is invalid for convert to XML'
);
PRINT @error;
SET @i += 1;
CONTINUE;
END CATCH
END;
GO
-- Создаем DDL Trigger
IF EXISTS (
SELECT 1
FROM sys.server_triggers
WHERE name = 'tr_VersionControl'
)
DROP TRIGGER tr_VersionControl ON ALL SERVER
GO
CREATE TRIGGER tr_VersionControl ON ALL SERVER
--WITH ENCRYPTION -- по желанию
/* Указываем отлавливаемые события
полный список событий:
https://docs.microsoft.com/ru-ru/sql/relational-databases/triggers/ddl-events?view=sql-server-2017
*/
FOR
CREATE_TABLE, ALTER_TABLE, DROP_TABLE,
CREATE_VIEW, ALTER_VIEW, DROP_VIEW,
CREATE_FUNCTION, ALTER_FUNCTION, DROP_FUNCTION,
CREATE_PROCEDURE, ALTER_PROCEDURE, DROP_PROCEDURE,
CREATE_ASSEMBLY, ALTER_ASSEMBLY, DROP_ASSEMBLY,
CREATE_INDEX, ALTER_INDEX, DROP_INDEX,
CREATE_TRIGGER, ALTER_TRIGGER, DROP_TRIGGER,
RENAME
AS
BEGIN
SET NOCOUNT ON;
UPDATE vs
SET vs.Event = ev.EventType,
vs.Sql = CONCAT('<query><!CDATA', ev.Sql, '></query>' ),
vs.Login = ev.Login
FROM MASTER.dbo.VersionControl AS vs
JOIN (
SELECT *
FROM ( VALUES (
EVENTDATA().value('(/EVENT_INSTANCE/EventType)[1]', 'NVARCHAR(128)'),
EVENTDATA().value('(/EVENT_INSTANCE/SchemaName)[1]', 'NVARCHAR(128)'),
EVENTDATA().value('(/EVENT_INSTANCE/ObjectName)[1]', 'NVARCHAR(128)'),
EVENTDATA().value('(/EVENT_INSTANCE/TSQLCommand/CommandText)[1]', 'NVARCHAR(MAX)'),
EVENTDATA().value('(/EVENT_INSTANCE/LoginName)[1]', 'NVARCHAR(128)')
)) AS Event (EventType, Sch, Object, Sql, Login )
) ev ON vs.Db = DB_NAME()
AND vs.Sch = ev.Sch
AND vs.Object = ev.Object
;
END
GO
-- Включаем триггер
ENABLE TRIGGER tr_VersionControl ON ALL SERVER
GO
-- Для удобного просмотра таблицы с версиями создадим процедуру
CREATE PROC dbo.sp_Vc
@db sysname = '%',
@sch sysname = '%',
@obj sysname = '%',
@from DATETIME2(0) = NULL,
@to DATETIME2(0) = NULL
AS
BEGIN
SET NOCOUNT ON;
IF @from IS NULL AND @to IS NULL BEGIN
SELECT *
FROM master.dbo.VersionControl
WHERE Db LIKE @db
AND Sch LIKE @sch
AND Object LIKE @obj
ORDER BY StartDate DESC
END
ELSE BEGIN
SELECT *
FROM master.dbo.VersionControl FOR SYSTEM_TIME BETWEEN @from AND @to
WHERE Db LIKE @db
AND Sch LIKE @sch
AND Object LIKE @obj
ORDER BY StartDate DESC
END
END
GO