How do I generate CRUD stored procedures from a table in SQL Server Management Studio
How do I take a table, and auto-gen CRUD stored procs for it in SSMS?
-
Thanks for the original script.
I improved it with the following :
- Allow to do on another database
- For select, generate dynamically the query according parameters
- Manage columns CreatedBy/Date and ModificationBy/Date
- Work even if special characters are found in schema/table/column
- Allow to add systematically the user and culture.
- Template for procedure name
And lot of options.
Note: code send in two answers as limited to 30000 characters.IF OBJECT_ID('dbo.GenerateDynamicallyProceduresForTables','P') IS NOT NULL DROP PROCEDURE dbo.GenerateDynamicallyProceduresForTables GO CREATE PROCEDURE dbo.GenerateDynamicallyProceduresForTables @DatabaseName nvarchar(200)=NULL, @SchemaName nvarchar(200) = NULL, @TableName nvarchar(200) = NULL, @NoCount bit=1, @ManageTransaction bit=1, @GenerateDebugScriptForList bit = 1, @ParameterForUser nvarchar(20) = '@UserInP', @ParameterForCulture nvarchar(20) = '@CultureInP', @FirstParametersAreMandatory bit=1, @ProcedureTemplateName nvarchar(100) = '[{SchemaName}].[{TableName}_Proc_{ActionType}]', @ColumnNameLimitation nvarchar(500)= '', --(syscolumns.name LIKE ''%Creation%'' OR syscolumns.name IN (''SomeInt'',''Somebit'') ) @CreationUserMatch nvarchar(500) = 'syscolumns.name LIKE ''%CreationUser%'' OR syscolumns.name LIKE ''%CreationBy%''', @CreationDateMatch nvarchar(500) = 'syscolumns.name LIKE ''%CreationDate%'' OR syscolumns.name LIKE ''%CreatedDate%''', @ModificationUserMatch nvarchar(500) = 'syscolumns.name LIKE ''%ModificationUser%'' OR syscolumns.name LIKE ''%ModifiedBy%'' OR syscolumns.name LIKE ''%ModifiedUser%''', @ModificationDateMatch nvarchar(500) = 'syscolumns.name LIKE ''%ModificationDate%'' OR syscolumns.name LIKE ''%ModifiedDate%''' AS BEGIN DECLARE @UnCommentExecForDebug bit=0 --To set at 0 for final DECLARE @StatementList TABLE(id INT IDENTITY(1,1) NOT NULL PRIMARY KEY,FullTableName nvarchar(1000),StatementType nvarchar(100),Statement nvarchar(max)) DECLARE @FirstParameters nvarchar(400)='',@FirstParametersForExec nvarchar(400)='' IF LEN(@ParameterForUser)>1 BEGIN SET @FirstParameters = @FirstParameters + @ParameterForUser +' nvarchar(500)' + CASE WHEN @FirstParametersAreMandatory =0 THEN ' = NULL' ELSE '' END + ', ' SET @FirstParametersForExec = @FirstParametersForExec + @ParameterForUser + CASE WHEN @FirstParametersAreMandatory =0 THEN ' = NULL' ELSE ' =''K2:Denallix\Administrator''' END + ', ' END IF LEN(@ParameterForCulture)>1 BEGIN SET @FirstParameters = @FirstParameters + @ParameterForCulture + ' nvarchar(10)' + CASE WHEN @FirstParametersAreMandatory =0 THEN ' = NULL' ELSE '' END + ', ' SET @FirstParametersForExec = @FirstParametersForExec + @ParameterForCulture + CASE WHEN @FirstParametersAreMandatory =0 THEN ' = NULL' ELSE '=''en-gb''' END + ', ' END IF NOT(LEN(@DatabaseName)>0) SET @DatabaseName=DB_NAME() IF LEN(@SchemaName)=0 SET @SchemaName=NULL IF LEN(@TableName)=0 SET @TableName=NULL IF NOT(LEN(@ColumnNameLimitation)>0) SET @ColumnNameLimitation = '1=1' IF NOT(LEN(@CreationUserMatch)>0) SET @CreationUserMatch = 'syscolumns.name = ''BIDON12345678917071979''' IF NOT(LEN(@CreationDateMatch)>0) SET @CreationDateMatch = 'syscolumns.name = ''BIDON12345678917071979''' IF NOT(LEN(@ModificationUserMatch)>0) SET @ModificationUserMatch = 'syscolumns.name = ''BIDON12345678917071979''' IF NOT(LEN(@ModificationDateMatch)>0) SET @ModificationDateMatch = 'syscolumns.name = ''BIDON12345678917071979''' DECLARE @strSpText nVarchar(max) ='USE [' + @DatabaseName + ']' IF @DatabaseName!=DB_NAME() INSERT INTO @StatementList (FullTableName,StatementType,Statement) VALUES ('Common','Set current database',@strSPText) DECLARE @sqlstatementForTables nvarchar(max) = -- Not test with USE [' + @DatabaseName + '] ISSUE ON Table iDENTITY.Identity: 'Could not complete cursor operation because the set options have changed since the cursor was declared N' DECLARE Tables_cursor CURSOR FOR SELECT TABLE_SCHEMA,TABLE_NAME FROM [' + @DatabaseName + '].INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE=''BASE TABLE'' AND (TABLE_SCHEMA=@pSchemaName OR @pSchemaName IS NULL) AND (Table_Name=@pTableName OR @pTableName IS NULL)' --EXEC loopbackServerForDebug.[K2FranceDebugDB].dbo.K2FranceDebug '@sqlstatementForColumns',@sqlstatementForColumns exec sp_executesql @sqlstatementForTables, N'@pSchemaName nvarchar(200),@pTableName nvarchar(200)', @pSchemaName=@SchemaName, @pTableName=@TableName; OPEN Tables_cursor DECLARE @CurrentSchemaName nvarchar(100),@CurrentFullTableName nvarchar(1000),@CurrentTableName nVarchar(1000), @DropStatement nvarchar(max)='' Fetch next from Tables_cursor INTO @CurrentSchemaName,@CurrentTableName WHILE @@FETCH_STATUS=0 BEGIN SET @CurrentFullTableName='['+@CurrentSchemaName+'].['+@CurrentTableName+']'; --PRINT @CurrentFullTableName Declare @dbName nVarchar(50) Declare @insertSPName nVarchar(4000), @updateSPName nVarchar(4000), @deleteSPName nVarchar(4000), @listSPName nVarchar(4000)--, @ReadSPName nVarchar(50) ; Declare @ColumnParametersInsert nVarchar(max), @ColumnDefForInsert nVarchar(max),@ColumnInValueForInsert nVarchar(max), @ColumnParametersList nVarchar(max),@ColumnParametersListForExec nVarchar(max), @tableColumnForWhereInList nvarchar(max), @tableColumnForWhereInListVariables nVarchar(max), @tableColumnForWhereInListAffectVariables nVarchar(max),@DebugVariablesForList nvarchar(max)='', @ColumnParametersInsertForExec nvarchar(max) Declare @tableCols nVarchar(max), @ColumnParametersUpdate nVarchar(max),@ColumnParametersUpdateForExec nVarchar(max); Declare @space nVarchar(50) = REPLICATE(' ', 4) ; Declare @colName nVarchar(max) ; Declare @DataType nvarchar(200),@colVariable nVarchar(200),@colVariableProc nVarchar(200); Declare @colParameter nVarchar(max) ; Declare @colAllowNull nvarchar(15), @colIsPrimaryKey INT,@ColIsIdentityAutoIncrement INT,@ColLength INT,@ColIsComputed INT,@ColMatchCreationUser INT,@ColMatchCreationDate INT,@ColMatchModificationUser INT,@ColMatchModificationDate INT; Declare @updCols nVarchar(max); Declare @ColumnParametersDelete nVarchar(max),@ColumnParametersDeleteForExec nVarchar(max), @LastPrimaryKey nvarchar(max),@NbPrimaryKey INT=0,@ColNumber int=0 Declare @whereCols nVarchar(2000); DECLARE @SetVariablesForExec nvarchar(max)='',@SetVariablesForExecUpdate nvarchar(max)='', @SetVariablesForExecDelete nvarchar(max)='' DECLARE @strBegin nvarchar(1000)=' AS' + CHAR(13) + CHAR(10) + 'BEGIN',@spaceForTrans nvarchar(10)='' IF @NoCount=1 Set @strBegin = @strBegin + CHAR(13) + CHAR(10) + @space + 'SET NOCOUNT ON ' IF @ManageTransaction = 1 BEGIN Set @strBegin = @strBegin + CHAR(13) + CHAR(10) + @space + 'SET XACT_ABORT ON -- if a Transact-SQL statement raises a run-time error, the entire transaction is terminated and rolled back.' Set @strBegin = @strBegin + CHAR(13) + CHAR(10) + '' Set @strBegin = @strBegin + CHAR(13) + CHAR(10) + @space + 'BEGIN TRAN ' SET @spaceForTrans= @space; END DECLARE @strEnd nvarchar(1000)='' IF @ManageTransaction = 1 Set @strEnd = @strEnd + CHAR(13) + CHAR(10) + @space + 'COMMIT TRAN ' SET @strEnd = @strEnd + CHAR(13) + CHAR(10) + 'END' Set @strEnd = @strEnd + CHAR(13) + CHAR(10) + 'GO' Set @strEnd = @strEnd + CHAR(13) + CHAR(10) + '' IF @UnCommentExecForDebug = 0 Set @strEnd = @strEnd + CHAR(13) + CHAR(10) + '/*' IF @ProcedureTemplateName IS NULL BEGIN Set @insertSPName = '['+@CurrentSchemaName+'].[sp_' + @CurrentTableName +'_insert]' ; Set @updateSPName = '['+@CurrentSchemaName+'].[sp_' + @CurrentTableName +'_update]' ; Set @deleteSPName = '['+@CurrentSchemaName+'].[sp_' + @CurrentTableName +'_delete]' ; set @listSPName = '['+@CurrentSchemaName+'].[sp_' + @CurrentTableName +'_list]' ; END ELSE BEGIN DECLARE @ProcedureName nvarchar(200)=REPLACE(REPLACE(@ProcedureTemplateName,'{SchemaName}',ISNULL(@SchemaName,@CurrentSchemaName)),'{TableName}',ISNULL(@TableName,@CurrentTableName)); Set @insertSPName = REPLACE(@ProcedureName,'{ActionType}','Insert') Set @updateSPName = REPLACE(@ProcedureName,'{ActionType}','Update') Set @deleteSPName = REPLACE(@ProcedureName,'{ActionType}','Delete') Set @listSPName = REPLACE(@ProcedureName,'{ActionType}','List') END SET @DropStatement = @DropStatement+ ' DROP PROCEDURE ' + @insertSPName + ' DROP PROCEDURE ' + @updateSPName + ' DROP PROCEDURE ' + @deleteSPName +' DROP PROCEDURE ' + @listSPName Set @ColumnParametersInsert = @FirstParameters ; SET @ColumnParametersInsertForExec = @FirstParametersForExec Set @ColumnParametersUpdate=@FirstParameters SET @ColumnParametersUpdateForExec=@FirstParametersForExec Set @ColumnParametersDelete = @FirstParameters ; SET @ColumnParametersDeleteForExec = @FirstParametersForExec ; SET @ColumnParametersList = @FirstParameters; SET @ColumnParametersListForExec = @FirstParametersForExec SET @tableColumnForWhereInList= '' SET @tableColumnForWhereInListVariables ='' SET @tableColumnForWhereInListAffectVariables ='' SET @DebugVariablesForList =''; Set @ColumnDefForInsert = '' ; Set @ColumnInValueForInsert = '' ; Set @strSPText = '' ; Set @tableCols = '' ; Set @updCols = '' ; Set @whereCols = '' ; SET NOCOUNT ON CREATE TABLE #tmp_Structure (colid int,ColumnName nvarchar(max), ColumnVariable nvarchar(max), DataType nvarchar(max), ColumnParameter nvarchar(max), AllowNull int, IsPrimaryKey int, IsIdentityAutoIncrement int, ColLength int, IsIsComputedColumn int, ColMatchCreationUser int,ColMatchCreationDate int, ColMatchModificationUser INT,ColMatchModificationDate INT) DECLARE @sqlstatementForColumns nvarchar(max) = N'USE [' + @DatabaseName + '] SELECT distinct --sysobjects.name as ''Table'', syscolumns.colid , ''['' + syscolumns.name + '']'' as ''ColumnName'', ''@''+syscolumns.name as ''ColumnVariable'', systypes.name + Case When systypes.xusertype in (165,167,175,231,239 ) Then ''('' + Convert(varchar(10),Case When syscolumns.length=-1 Then ''max'' else CAST(syscolumns.length AS nvarchar(10)) end) +'')'' Else '''' end as ''DataType'' , systypes.name + Case When systypes.xusertype in (165,167,175,231,239 ) Then ''('' + Convert(varchar(10),Case When syscolumns.length=-1 Then ''max'' else CAST(syscolumns.length AS nvarchar(10)) end) +'')'' Else '''' end as ''ColumnParameter'', COLUMNPROPERTY(OBJECT_ID(@pFullTableName),syscolumns.name,''AllowsNull'') AS AllowNull, (SELECT COUNT(*) FROM [' + @DatabaseName + '].INFORMATION_SCHEMA.TABLE_CONSTRAINTS Tab, [' + @DatabaseName + '].INFORMATION_SCHEMA.CONSTRAINT_COLUMN_USAGE Col WHERE Col.Constraint_Name = Tab.Constraint_Name AND Col.Table_Name = Tab.Table_Name AND Constraint_Type = ''PRIMARY KEY'' AND Col.Table_Name = @pTableName AND Tab.TABLE_SCHEMA=@pSchemaName AND Col.Column_Name = syscolumns.name ) AS IsPrimaryKey, SC.is_identity AS IsIdentityAutoIncrement, syscolumns.length, (SELECT COUNT(*) FROM sys.computed_columns WHERE computed_columns.object_id=sysobjects.id AND computed_columns.Name=syscolumns.name) AS IsComputedColumn, CASE WHEN ' + @CreationUserMatch +' THEN 1 ELSE 0 END AS ColMatchCreationUser, CASE WHEN ' + @CreationDateMatch +' THEN 1 ELSE 0 END AS ColMatchCreationDate, CASE WHEN ' + @ModificationUserMatch +' THEN 1 ELSE 0 END AS ColMatchModificationUser, CASE WHEN ' + @ModificationDateMatch +' THEN 1 ELSE 0 END AS ColMatchModificationDate FROM sysobjects LEFT JOIN syscolumns ON syscolumns.id=sysobjects.id LEFT JOIN systypes ON systypes.xusertype=syscolumns.xusertype LEFT JOIN sys.columns SC ON SC.object_id = sysobjects.id AND SC.name=syscolumns.name Where sysobjects.xtype = ''u'' and sysobjects.id = OBJECT_ID(@pFullTableName) AND (' + @ColumnNameLimitation + ') Order by syscolumns.colid' --PRINT @sqlstatementForColumns --EXEC loopbackServerForDebug.[K2FranceDebugDB].dbo.K2FranceDebug '@sqlstatementForColumns',@sqlstatementForColumns INSERT INTO #tmp_Structure exec sp_executesql @sqlstatementForColumns, N'@pSchemaName nvarchar(200),@pTableName nvarchar(200),@pFullTableName nvarchar(1000)', @pSchemaName=@CurrentSchemaName, @pTableName=@CurrentTableName,@pFullTableName=@CurrentFullTableName; --SELECT * FROM #tmp_Structure /* Read the table structure and populate variables*/ DECLARE SpText_Cursor CURSOR FOR SELECT ColumnName, ColumnVariable, DataType, ColumnParameter, AllowNull, IsPrimaryKey, IsIdentityAutoIncrement,ColLength, IsIsComputedColumn,ColMatchCreationUser,ColMatchCreationDate,ColMatchModificationUser,ColMatchModificationDate FROM #tmp_Structure OPEN SpText_Cursor FETCH NEXT FROM SpText_Cursor INTO @colName, @colVariable, @DataType, @colParameter, @colAllowNull,@colIsPrimaryKey, @ColIsIdentityAutoIncrement,@ColLength, @ColIsComputed,@ColMatchCreationUser,@ColMatchCreationDate,@ColMatchModificationUser,@ColMatchModificationDate WHILE @@FETCH_STATUS = 0 BEGIN SET @ColNumber=@ColNumber+1 SET @SetVariablesForExec = @SetVariablesForExec + CASE WHEN @colAllowNull =1 THEN '' ELSE CASE WHEN @DataType IN ('datetime','datetime2','smalldatetime','date') AND @SetVariablesForExec NOT LIKE '%@Date%' THEN CHAR(13) +CHAR(10) + 'DECLARE @Date datetime =GetDate()' WHEN @DataType IN ('uniqueidentifier') AND @SetVariablesForExec NOT LIKE '%@GuidTest%' THEN CHAR(13) +CHAR(10) + 'DECLARE @TheGuid uniqueidentifier =NEWID()' ELSE '' END END --RegEx to keep only alphanumeric characters: DECLARE @MatchExpression nvarchar(20) = '%[^a-z0-9]%',@DateTypeWithoutSpecialCharacters nvarchar(100)=@DataType; WHILE PatIndex(@MatchExpression, @DateTypeWithoutSpecialCharacters) > 0 SET @DateTypeWithoutSpecialCharacters = Stuff(@DateTypeWithoutSpecialCharacters, PatIndex(@MatchExpression, @DateTypeWithoutSpecialCharacters), 1, '') --Remove Special characters (like space...) for variable name WHILE PatIndex(@MatchExpression, @colVariable) > 0 SET @colVariable = Stuff(@colVariable, PatIndex(@MatchExpression, @colVariable), 1, '') SET @colVariableProc = '@p'+ @colVariable SET @colVariable = '@'+ @colVariable SET @colParameter = @colVariable + ' ' + @colParameter DECLARE @AffectationForExec nvarchar(max)=@colVariable + CASE WHEN @colAllowNull =1 THEN ' = NULL' ELSE ' = ' + CASE WHEN @DataType IN ('Text','sysname') OR @DataType LIKE '%char%' THEN '''' + SUBSTRING ( CAST(ABS(@ColLength) AS nvarchar(10)) + 'TEST' + @DateTypeWithoutSpecialCharacters,0,CASE WHEN @ColLength < 0 THEN 1000 WHEN @DataType LIKE 'nchar%' THEN @ColLength/2+1 ELSE @ColLength END) + '''' WHEN @DataType IN ('int','numeric','bigint','tinyint') THEN CAST(@ColNumber AS nvarchar(10)) WHEN @DataType IN ('bit') THEN '0' WHEN @DataType IN ('float') THEN CAST(@ColNumber AS nvarchar(10)) + '.' + CAST(@ColNumber+1 AS nvarchar(10)) WHEN @DataType IN ('datetime','datetime2','smalldatetime','date') THEN '@Date' WHEN @DataType IN ('uniqueidentifier') THEN '@TheGuid' WHEN @DataType IN ('xml') THEN '''' + CAST(@ColNumber AS nvarchar(10)) + '
加载中...
- 热议问题