SQL fetch next not working as expected

SQL fetch next not working as expected - sql-server-2005

The following query works but it is not providing all of the correct information. If my table has multiple rows meeting the selection criteria, the procedure successfully sends 1 email for each row selected but all emails reference the same 'commanduidno'. That UID # is always the last one of the multiple rows selected. Each email should reflect a different UID #. I am missing something but can't figure out what.
DECLARE
#CommandUIDNo as varchar(8)
,#Command as varchar(300)
,#ProcessedFlag as varchar(2)
,#CCEmail as varchar(100)
,#NotificationEmail as varchar(100)
,#EmailSubject as varchar(100)
,#EmailMessage as varchar(1000)
,#DateCreated as varchar(20)
,#DateModified as varchar(20)
declare send_unprocessed_emails cursor for
select xp_cmdshell_command_uid from sam_xp_cmdshell_command where processed_flag = 'N'
open send_unprocessed_emails
fetch next from send_unprocessed_emails into #CommandUIDNo
while ##fetch_status = 0
begin
SELECT
#CommandUIDNo = xp_cmdshell_command_uid
,#Command = xp_cmdshell_command
,#ProcessedFlag = processed_flag
,#CCEmail = 'test#test.com'
,#NotificationEmail = 'test#test.com'
,#DateCreated = date_created
,#DateModified = date_last_modified
FROM
sam_xp_cmdshell_command
where
processed_flag = 'N'
SELECT #EmailSubject = 'Unprocessed Jobs Pending in sam_xp_cmdshell Table'
select #EmailMessage =
'Command UID No:' + char(9) + char(160) + char(9) + char(160) + #CommandUIDNo + '<br><br>' +
'Command Text:' + char(9) + char(160) + char(9) + char(160) + #Command + '<br><br>' +
'<B><font color="red">Processed Flag:'+ char(9) + char(160) + char(9) + char(160) + #ProcessedFlag + '</font></B><br><br>' + +
'Date Created:' + char(9) + char(160) + char(9) + char(160) + #DateCreated + '<br>' +
'Date Last Modified:' + char(9) + char(160) + char(9) + char(160) + #DateModified
EXEC msdb..sp_send_dbmail #Recipients = #NotificationEmail, #copy_recipients = #CCEmail, #Subject = #EmailSubject, #body = #EmailMessage, #body_format = 'HTML'
fetch next from send_unprocessed_emails into #CommandUIDNo
end
close send_unprocessed_emails
deallocate send_unprocessed_emails

Related

SQL Server sending blank email

For testing purposes, I did not pass any statement. But, I still get a blank email (test email comes in just fine). I tried the same code on different other servers and it works and prints the information. Below is the code. I added PRINT statement to see if shows me anything, no luck.
DECLARE #FQDN varchar (25)
DECLARE #Domain NVARCHAR(100)
DECLARE #EventTime NVARCHAR (25)
DECLARE #Instance NVARCHAR(50)
DECLARE #NLCR AS CHAR(2) = CHAR(13) + CHAR(10)
EXEC master.dbo.xp_regread 'HKEY_LOCAL_MACHINE',
'SYSTEM\CurrentControlSet\services\Tcpip\Parameters', N'Domain',#Domain OUTPUT
SET #FQDN = CAST(SERVERPROPERTY('MachineName') as nvarchar) + '.' + #Domain
SET #Instance = ##SERVICENAME
SET #EventTime = GETDATE()
DECLARE #strsubject varchar(100)
SELECT #strsubject = 'JDE Submitted Jobs in Error'
DECLARE #tableHTML nvarchar(max);
SET #tableHTML =
N'<H1>JDE Submitted Jobs in Error </H1>' + #NLCR +
N'<b>Server Name: </b>'+ #FQDN + #NLCR +' <br>' +
N'<b>Instance Name: </b>'+ #Instance + #NLCR +' <br>' +
N'<b>Event Time: </b>' + #EventTime + #NLCR +' <br>' +
N'<br>' +
N'<table border="1">' +
N'<tr><th>Queue</th><th>Status</th>' +
N'<th>Env</th><th>User</th>' +
N'<th>Job #</th><th>Description</th>' +
N'<th>Actual Date</th><th>Actual Time</th>' +
N'<th>Host</th></tr>' +
N'</table>'
;
PRINT #tableHTML

SQL Server - Get a list of datatypes, max length, if its an identity and if its a primary key without object_ID function

I need a query that gets the datatype, max length, if its an identity and if its a primary key from a specific table_name without the use of the object_id function. So far what I have right now (and also found this somewhere on stackoverflow):
SELECT col.COLUMN_NAME AS ColumnName
, col.DATA_TYPE AS DataType
, col.CHARACTER_MAXIMUM_LENGTH AS MaxLength
, COLUMNPROPERTY(OBJECT_ID('[' + col.TABLE_SCHEMA + '].[' + col.TABLE_NAME + ']'), col.COLUMN_NAME, 'IsIdentity')AS IS_IDENTITY
, CAST(ISNULL(pk.is_primary_key, 0)AS bit)AS IsPrimaryKey
FROM INFORMATION_SCHEMA.COLUMNS AS col
LEFT JOIN(SELECT SCHEMA_NAME(o.schema_id)AS TABLE_SCHEMA
, o.name AS TABLE_NAME
, c.name AS COLUMN_NAME
, i.is_primary_key
FROM sys.indexes AS i JOIN sys.index_columns AS ic ON i.object_id = ic.object_id
AND i.index_id = ic.index_id
JOIN sys.objects AS o ON i.object_id = o.object_id
LEFT JOIN sys.columns AS c ON ic.object_id = c.object_id
AND c.column_id = ic.column_id
WHERE i.is_primary_key = 1)AS pk ON col.TABLE_NAME = pk.TABLE_NAME
AND col.TABLE_SCHEMA = pk.TABLE_SCHEMA
AND col.COLUMN_NAME = pk.COLUMN_NAME
WHERE col.TABLE_NAME = 'tbl_users'
ORDER BY col.TABLE_NAME, col.ORDINAL_POSITION;
Im using this code for a cursor and when I try to get the value of IS_IDENTITY, its always empty or something. I feel like dynamic sql and cursor don't like the OBJECT_ID function. When I run this query without the cursor and stuff, it works perfectly fine.
FULL CODE:
ALTER Procedure [dbo].[sp_generateUpserts]
#databaseName nvarchar(MAX)
AS
BEGIN
SET NOCOUNT ON
DECLARE #tranState BIT
IF ##TRANCOUNT = 0
BEGIN
SET #tranState = 1
BEGIN TRANSACTION tranState
END
BEGIN TRY
Declare #TABLE_NAME varchar(100)
Declare #COLUMN_NAME varchar(100)
Declare #COLUMN_NAME_WITH_SPACE varchar(100)
Declare #DATA_TYPE varchar(100)
Declare #CHARACTER_MAXIMUM_LENGTH INT
Declare #IS_PK INT
Declare #IS_IDENTITY INT
DECLARE #statement nvarchar(MAX)
SET #statement = N'USE [' + #databaseName + '];
DECLARE cursorUpsert CURSOR FOR
SELECT TABLE_NAME
FROM INFORMATION_SCHEMA.TABLES
ORDER BY TABLE_NAME'
EXECUTE sp_executesql #statement
DECLARE #use_db nvarchar(max)
DECLARE #generateSpStatement varchar(MAX)
DECLARE #spParameters varchar(MAX) = ''
DECLARE #whereColumns varchar(MAX) = ''
DECLARE #updateStatement varchar(MAX) = ''
DECLARE #insertStatement varchar(MAX) = ''
DECLARE #valueStatement varchar(MAX) = ''
OPEN cursorUpsert
FETCH NEXT FROM cursorUpsert
INTO #TABLE_NAME
WHILE ##FETCH_STATUS = 0
BEGIN
DECLARE #statementColumns nvarchar(MAX)
SET #statementColumns = N'USE [' + #databaseName + '];
DECLARE cursorUpsertColumns CURSOR FOR
SELECT col.COLUMN_NAME
, col.DATA_TYPE
, col.CHARACTER_MAXIMUM_LENGTH
, COLUMNPROPERTY(OBJECT_ID(QUOTENAME(col.TABLE_SCHEMA) + ''.'' + QUOTENAME(col.TABLE_NAME)), col.COLUMN_NAME, ''IsIdentity'')AS IS_IDENTITY
, CAST(ISNULL(pk.is_primary_key, 0) AS bit) AS IS_PK
FROM INFORMATION_SCHEMA.COLUMNS AS col
LEFT JOIN(SELECT SCHEMA_NAME(o.schema_id)AS TABLE_SCHEMA
, o.name AS TABLE_NAME
, c.name AS COLUMN_NAME
, i.is_primary_key
FROM sys.indexes AS i JOIN sys.index_columns AS ic ON i.object_id = ic.object_id
AND i.index_id = ic.index_id
JOIN sys.objects AS o ON i.object_id = o.object_id
LEFT JOIN sys.columns AS c ON ic.object_id = c.object_id
AND c.column_id = ic.column_id
WHERE i.is_primary_key = 1)AS pk ON col.TABLE_NAME = pk.TABLE_NAME
AND col.TABLE_SCHEMA = pk.TABLE_SCHEMA
AND col.COLUMN_NAME = pk.COLUMN_NAME
WHERE col.TABLE_NAME = ''' + #TABLE_NAME + '''
ORDER BY col.TABLE_NAME, col.ORDINAL_POSITION;'
EXECUTE sp_executesql #statementColumns
OPEN cursorUpsertColumns
FETCH NEXT FROM cursorUpsertColumns
INTO #COLUMN_NAME, #DATA_TYPE, #CHARACTER_MAXIMUM_LENGTH, #IS_IDENTITY, #IS_PK
WHILE ##FETCH_STATUS = 0
BEGIN
-- Parameters for the SP
IF #COLUMN_NAME LIKE '% %'
BEGIN
SET #COLUMN_NAME_WITH_SPACE = #COLUMN_NAME
SET #COLUMN_NAME_WITH_SPACE = REPLACE(#COLUMN_NAME_WITH_SPACE,' ','_')
SET #spParameters = #spParameters + CHAR(13) + '#' + #COLUMN_NAME_WITH_SPACE + ' ' + #DATA_TYPE
END
ELSE
BEGIN
SET #spParameters = #spParameters + CHAR(13) + '#' + #COLUMN_NAME + ' ' + #DATA_TYPE
END
IF #DATA_TYPE IN ('varchar', 'nvarchar', 'char', 'nchar')
BEGIN
IF #CHARACTER_MAXIMUM_LENGTH = '-1'
BEGIN
SET #spParameters = #spParameters + '(MAX)'
END
ELSE
BEGIN
SET #spParameters = #spParameters + '(' + CAST(#CHARACTER_MAXIMUM_LENGTH As Varchar(10)) + ')'
END
END
-- Add a comma after each parameter
SET #spParameters = #spParameters + ', '
IF #COLUMN_NAME IN ('top')
BEGIN
IF #IS_IDENTITY != 1
BEGIN
print('YES IDENTITY')
END
-- Add where parameters: ColumnName=#ColumnName AND
SET #whereColumns = #whereColumns + CHAR(32) + '[' + #COLUMN_NAME + ']=#' + #COLUMN_NAME + ' AND'
-- Add update parameters: column1 = value1, etc.
IF #IS_IDENTITY != 1 OR #IS_PK != 1
BEGIN
SET #updateStatement = #updateStatement + CHAR(32) + '[' + #COLUMN_NAME + ']=#' + #COLUMN_NAME + ','
END
-- Add insert columns
SET #insertStatement = #insertStatement + CHAR(32) + '[' + #COLUMN_NAME + '],'
-- Add values
SET #valueStatement = #valueStatement + CHAR(32) + '#' + #COLUMN_NAME + ','
END
ELSE IF #COLUMN_NAME LIKE '% %'
BEGIN
IF #IS_IDENTITY != 1
BEGIN
print('YES IDENTITY')
END
-- Add where parameters: ColumnName=#ColumnName AND
SET #whereColumns = #whereColumns + CHAR(32) + '[' + #COLUMN_NAME + ']=#' + #COLUMN_NAME_WITH_SPACE + ' AND'
-- Add update parameters: column1 = value1, etc.
IF #IS_IDENTITY != 1 OR #IS_PK != 1
BEGIN
SET #updateStatement = #updateStatement + CHAR(32) + '[' + #COLUMN_NAME + ']=#' + #COLUMN_NAME_WITH_SPACE + ','
END
-- Add insert columns
SET #insertStatement = #insertStatement + CHAR(32) + '['+ #COLUMN_NAME + '],'
-- Add values
SET #valueStatement = #valueStatement + CHAR(32) + '#' + #COLUMN_NAME_WITH_SPACE + ','
END
ELSE
BEGIN
IF #IS_IDENTITY != 1
BEGIN
print('YES IDENTITY')
END
-- Add where parameters: ColumnName=#ColumnName AND
SET #whereColumns = #whereColumns + CHAR(32) + #COLUMN_NAME + '=#' + #COLUMN_NAME + ' AND'
-- Add update parameters: column1 = value1, etc.
IF #IS_IDENTITY != 1 OR #IS_PK != 1
BEGIN
SET #updateStatement = #updateStatement + CHAR(32) + #COLUMN_NAME + '=#' + #COLUMN_NAME + ','
END
-- Add insert columns
SET #insertStatement = #insertStatement + CHAR(32) + #COLUMN_NAME + ','
-- Add values
SET #valueStatement = #valueStatement + CHAR(32) + '#' + #COLUMN_NAME + ','
END
FETCH NEXT FROM cursorUpsertColumns
INTO #COLUMN_NAME, #DATA_TYPE, #CHARACTER_MAXIMUM_LENGTH, #IS_IDENTITY, #IS_PK
if ##FETCH_STATUS!=0
begin
-- Last row, remove things
-- Remove the last AND word
SET #whereColumns = left (#whereColumns, len(#whereColumns) -3)
-- Remove the last comma from the parameter
SET #spParameters = left (#spParameters, len(#spParameters) -1)
-- Remove the last comma from the updateStatement
SET #updateStatement = left (#updateStatement, len(#updateStatement) -1)
-- Remove the last comma from the insertStatement
SET #insertStatement = left (#insertStatement, len(#insertStatement) -1)
-- Remove the last comma from the valueStatement
SET #valueStatement = left (#valueStatement, len(#valueStatement) -1)
end
END;
CLOSE cursorUpsertColumns;
DEALLOCATE cursorUpsertColumns;
--- End Cursor Columns
-- Generate the SP
SET #generateSpStatement = 'CREATE Procedure [dbo].[sp_' + #TABLE_NAME + '_upsert]' + #spParameters
SET #generateSpStatement = #generateSpStatement + CHAR(13) + 'AS BEGIN' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + 'SET NOCOUNT ON' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + 'DECLARE #tranState BIT' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + 'IF ##TRANCOUNT = 0' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + 'BEGIN' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + CHAR(9) +'SET #tranState = 1' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + CHAR(9) +'set transaction isolation level serializable' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + CHAR(9) +'BEGIN TRANSACTION tranState' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + 'END' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(13) + 'BEGIN TRY' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + 'IF EXISTS(SELECT 1 FROM ' + #TABLE_NAME + ' WITH (updlock) WHERE' + #whereColumns + ')' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + CHAR(9) + 'UPDATE ' + #TABLE_NAME + ' SET' + #updateStatement + ' WHERE ' + #whereColumns + ';' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + 'ELSE' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + CHAR(9) + 'INSERT INTO ' + #TABLE_NAME + ' ('+ #insertStatement + ') VALUES (' + #valueStatement + ');' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + 'IF #tranState = 1 AND XACT_STATE() = 1' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + CHAR(9) + 'COMMIT TRANSACTION tranState' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + 'END TRY' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(13) + 'BEGIN CATCH' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + 'DECLARE #Error_Message VARCHAR(5000)' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + 'DECLARE #Error_Severity INT' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + 'DECLARE #Error_State INT' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + 'SELECT #Error_Message = ERROR_MESSAGE()' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + 'SELECT #Error_Severity = ERROR_SEVERITY()' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + 'SELECT #Error_State = ERROR_STATE()' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + 'IF #tranState = 1 AND XACT_STATE() <> 0' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + CHAR(9) +'ROLLBACK TRANSACTION' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(9) + 'RAISERROR (#Error_Message, #Error_Severity, #Error_State)' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + 'END CATCH' + CHAR(13)
SET #generateSpStatement = #generateSpStatement + CHAR(13)
SET #generateSpStatement = #generateSpStatement + 'END' + CHAR(13)
--print(#generateSpStatement)
-- Reset Variables
SET #generateSpStatement = ''
SET #spParameters = ''
SET #whereColumns = ''
SET #updateStatement = ''
SET #insertStatement = ''
SET #valueStatement = ''
FETCH NEXT FROM cursorUpsert
INTO #TABLE_NAME
END;
CLOSE cursorUpsert;
DEALLOCATE cursorUpsert;
IF #tranState = 1
AND XACT_STATE() = 1
COMMIT TRANSACTION tranState
END TRY
BEGIN CATCH
DECLARE #Error_Message VARCHAR(5000)
DECLARE #Error_Severity INT
DECLARE #Error_State INT
SELECT #Error_Message = ERROR_MESSAGE()
SELECT #Error_Severity = ERROR_SEVERITY()
SELECT #Error_State = ERROR_STATE()
IF #tranState = 1 AND XACT_STATE() <> 0
ROLLBACK TRANSACTION
RAISERROR (#Error_Message, #Error_Severity, #Error_State)
END CATCH
END

I feel like dynamic sql and cursor don't like the OBJECT_ID function.
It has nothing to do with OBJECT_ID but most likely incorrect double qouting when using with dynamic string:
COLUMNPROPERTY(OBJECT_ID(''['' + col.TABLE_SCHEMA + ''].['' + col.TABLE_NAME + '']''), col.COLUMN_NAME, ''IsIdentity'')AS IS_IDENTITY
Anyway you should avoid manually adding [ and use QUOTENAME instead:
COLUMNPROPERTY(OBJECT_ID(QUOTENAME(col.TABLE_SCHEMA) + ''.'' + QUOTENAME(col.TABLE_NAME)), col.COLUMN_NAME, ''IsIdentity'')AS IS_IDENTITY
It's a common case and it would be really nice if here-strings/text quoting were supported.

Another slightly simpler way of getting this information would be something like..
Declare #Schema SYSNAME = 'dbo'
, #Table SYSNAME= 'Orders'
SELECT
name Column_Name
, system_type_name Data_Type
, max_length Max_Length
, is_identity_column Is_Identity_Column
, ISNULL(c.PK_Column,0) Is_Primary_Key_Column
FROM sys.dm_exec_describe_first_result_set (N'SELECT * FROM '+ #Schema +'.' + #Table, null, 0) r
OUTER APPLY (
SELECT 1 PK_Column
FROM INFORMATION_SCHEMA.KEY_COLUMN_USAGE s
WHERE OBJECTPROPERTY(OBJECT_ID(s.CONSTRAINT_SCHEMA + '.' + QUOTENAME(s.CONSTRAINT_NAME)), 'IsPrimaryKey') = 1
AND s.TABLE_NAME = #Table
AND s.TABLE_SCHEMA = #Schema
AND r.name COLLATE DATABASE_DEFAULT = s.COLUMN_NAME
) c(PK_Column)
You can put this code inside a function and simply call this function cross applying it with sys.tables catalog view.
The dynamic management view sys.dm_exec_describe_first_result_set has lots of other useful information too.
Lets suppose you create a function like this..
CREATE FUNCTION dbo.fn_get_Column_Info (
#Schema SYSNAME
, #Table SYSNAME)
RETURNS TABLE
AS
RETURN
(
SELECT
name Column_Name
, system_type_name Data_Type
, max_length Max_Length
, is_identity_column Is_Identity_Column
, ISNULL(c.PK_Column,0) Is_Primary_Key_Column
FROM sys.dm_exec_describe_first_result_set (N'SELECT * FROM '+ #Schema +'.' + #Table, null, 0) r
OUTER APPLY (
SELECT 1 PK_Column
FROM INFORMATION_SCHEMA.KEY_COLUMN_USAGE s
WHERE OBJECTPROPERTY(OBJECT_ID(s.CONSTRAINT_SCHEMA + '.' + QUOTENAME(s.CONSTRAINT_NAME)), 'IsPrimaryKey') = 1
AND s.TABLE_NAME = #Table
AND s.TABLE_SCHEMA = #Schema
AND r.name COLLATE DATABASE_DEFAULT = s.COLUMN_NAME
) c(PK_Column)
);
GO
Then your query to get all the information you need would be as simple as..
SELECT s.name , t.name, f.*
FROM sys.schemas s
INNER JOIN sys.Tables t ON s.schema_id = t.schema_id
CROSS APPLY dbo.fn_get_Column_Info(s.name , t.name) f;
No need for any cursor or dynamic SQL, unless you want to do this for all the databases on a server. But even if you had to do that for all databases it would be a much simpler cursor.

Update column by looping through rows

I have four columns in a table ID, Longitude, Latitude, and SpatialData. I have the first three columns filled out for every row, but I need to enter in the SpatialData for each row. I can currently manually update the SpatialData column by using the below query:
update GioMap set SpatialData = 'Point(-74.009506 40.70602)' Where ID =1
From here I have to keep manually updating the Longitude, Latitude and ID for every row. I am using this code to try to loop through all of the rows and update the table that way:
DECLARE #LoopC INT = 1, #MaxOID INT,
#Long nVarchar(32), #Lat nVarchar(32),#Col1 nVarchar(11)
SET #MaxOID = (select count(*) from GioMap)
Set #Col1 = 'SpatialData'
WHILE(#LoopC <= #MaxOID)
BEGIN
SET #Long = (Select Longitude FROM GioMap where ID = #LoopC)
SET #Lat = (Select Latitude FROM GioMap where ID = #LoopC)
DECLARE #sql VARCHAR(MAX) = ('update GioMap set ' + #Col1 +' = ' + '''' + 'Point(' + #Long + ' ' + #Lat + ')' + '''' + ' Where ID = ' + #LoopC)
EXEC sp_executesql #sql
SET #LoopC = #LoopC + 1
END
When I run this code I keep getting this error message:
Msg 245, Level 16, State 1, Line 13
Conversion failed when converting the nvarchar value 'update [ISSHXI1].[dbo].[GioMap] set SpatialDat = 'Point(-74.0095 40.706)' Where ID = ' to data type int.
I don't understand why it would be trying to convert it to an int?

You could do something like this:
UPDATE GioMap SET SpatialData = 'Point(' + cast(Longitude as varchar) + ' ' + cast(Latitude as varchar) + ')'

I think the way you are doing it is bad, but that's not technically what you asked.
It is trying to convert it to an int because you are adding a varchar to an int. You need to change this:
DECLARE #sql VARCHAR(MAX) = ('update GioMap set ' + #Col1 +' = ' +
'''' + 'Point(' + #Long + ' ' + #Lat + ')' + '''' + ' Where ID = ' +
#LoopC)
to this
DECLARE #sql VARCHAR(MAX) = ('update GioMap set ' + #Col1 +' = ' +
'''' + 'Point(' + #Long + ' ' + #Lat + ')' + '''' + ' Where ID = ' +
Cast(#LoopC as varchar))

The point statement paramaters need to be seperated by a comma.
DECLARE #sql VARCHAR(MAX) = ('update GioMap set ' + #Col1 +' = ' + '''' + 'Point(' + #Long + ' ' + #Lat + ')' + '''' + ' Where ID = ' + #LoopC)
Instead of:
#Long + ' ' + #Lat + ')
try
#Long + ',' + #Lat + ')
To see what is being executed you can try adding a print statement:
DECLARE #sql VARCHAR(MAX) = ('update GioMap set ' + #Col1 +' = ' + '''' + 'Point(' + #Long + ' ' + #Lat + ')' + '''' + ' Where ID = ' + #LoopC)
print #sql
EXEC sp_executesql #sql
Also why do you parans around strings you are assigning? Its confusing in TSQL. While it works it is jarring and unusual.
Instead of:
SET #MaxOID = (select count(*) from GioMap)
try
SET #MaxOID = 'select count(*) from GioMap'
Later in the code you do both parens and quotes. The great, great majority of TSQL developers just use single quotes.
Ben

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?

SSMS doesn't have the capability to generate CRUD procedures. You can generate INSERT, UPDATE statements etc. by right-clicking, Script Table As > but I think you will have better luck with Mladen Prajdic's SSMS Tools Pack.

If you are using Visual Studio you can do it: http://weblogs.asp.net/stevewellens/archive/2009/12/11/automatically-generate-stored-procedures-with-visual-studio.aspx

I have a simple TSQL script I use to do mine. It's basic but easily modified to suit your needs. It generates TSQL for an Upsert, Select, and Delete Procedure using table & view you specify.
/*
This is a simple, single-table CRUD Generator. It does not have a bunch of
bells and whistles, and is easy to follow and modify. I wrote this to make
my job easier, and I am sharing it with you to do with it as you wish.
The Basics:
The TSQL below will create 3 procedures:
1. An Upsert Procedure: Suffix _ups
2. A Select Procedure: Suffix _sel
3. A Delete Procedure: Suffix _del
A Little More Detail:
Things you should know:
All 3 procedures have a parameter called #MyID which is used to set
the Context, so that my audit procedures get the validated user. If you
Have no use for it, you'll need to remove the piece of generator code
that adds it as a parameter to each of the 3 procedures. You will also
need to remove the PRINT statement for each procedure that looks like:
PRINT N' SET CONTEXT_INFO #MyID;' + CHAR(13) + CHAR(10)
This generator expects to perform inserts, updates, and deletes on a
table, and selects from a view. If you want to perform selects directly
from the table, simply use the table name in both #TableName and
#ViewName.
The Upsert Procedure:
If ID (Primary Key) is supplied it will perform an Update. Otherwise it
will perform an Insert. This generator is hard-coded to avoid inserting
or updating these particular fields:
Created
CreatedBy
Modified
ModifiedBy
RowVersion
<The Primary Key Field>
That's because in my databases I use those field names for audit, and they
are never modified except internally within the database. You can modify
the part of this procedure that performs this function to suit your needs.
This generator always uses the Parameter name #ID to represent the Primary
key defined for the table. This is my preference but you can modify to suit.
The Select Procedure:
If ID (Primary Key) is supplied it will select a single row from the View
(Table) whose name you provide. Otherwise it will select all rows. If the
#ISACTIVE_SEL variable is set to 1 (True), then the Select Procedure expects
your View (Table) to have a bit-type field named 'IsActive'. My tables are
standardized to this. If #ISACTIVE_SEL = 1 the Select Procedure will have an
additional parameter called #IsActive (bit). When #ID is not supplied, and
#IsActive is not supplied, the procedure selects all rows. When #ID is not
supplied, and #IsActive is supplied, the procedure selects all rows where
the field IsActive matches the parameter #IsActive
The Delete Procedure:
The Delete Pocedure requires that the Key value and the RowVersion value
be supplied. I use an Int type RowVersion, so if you use TimeStamp (varbinary(128))
then you will need to tweak the generator.
--Casey W Little
--Kaciree Software Solutions, LLC
Version 1.00
*/
--Type Your Database Name in this Use statement:
USE [<Your Database>]
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
/*MODIFY THE VALUES BELOW TO SUIT YOUR NEEDS*/
DECLARE #DBName nvarchar(100)=N'<Your Database>';
DECLARE #ProcName nvarchar(100)=N'<Your Proc Name>';
DECLARE #DBRoleName nvarchar(100)=N'<Role that should have exec Rights>';
DECLARE #TableName nvarchar(100)=N'<Your Table Name>';
DECLARE #ViewName nvarchar(100)=N'<Your View Name>';
DECLARE #OrderBy nvarchar(100)=N'<Your Field Name>';
DECLARE #OrderByDir nvarchar(4)=N'ASC';
DECLARE #AUTHOR nvarchar(50) ='<Your Name & Company>';
DECLARE #DESC nvarchar(100) ='<Proc Information>'; -- Ex. 'User Data' will return 'Description : Upsert User Data'
DECLARE #ISACTIVE_SEL bit =0; --Set to 1 if your table has a Bit field named IsActive
/*DO NOT MODIFY BELOW THIS LINE!!!*/
DECLARE #NNND char(23) ='NOT_NULLABLE_NO_DEFAULT';
DECLARE #NNWD char(22) ='NOT_NULLABLE_W_DEFAULT';
DECLARE #NBLE char(8) ='NULLABLE';
DECLARE #LEGEND nvarchar(max);
DECLARE #PRIMARY_KEY nvarchar(100);
--Set up Legend
SET #LEGEND = N'USE [' + #DBName + N'];' + CHAR(13) + CHAR(10)
SET #LEGEND = #LEGEND + N'GO' + CHAR(13) + CHAR(10)
SET #LEGEND = #LEGEND + CHAR(13) + CHAR(10)
SET #LEGEND = #LEGEND + N'SET ANSI_NULLS ON' + CHAR(13) + CHAR(10)
SET #LEGEND = #LEGEND + N'GO' + CHAR(13) + CHAR(10)
SET #LEGEND = #LEGEND + CHAR(13) + CHAR(10)
SET #LEGEND = #LEGEND + N'SET QUOTED_IDENTIFIER ON' + CHAR(13) + CHAR(10)
SET #LEGEND = #LEGEND + N'GO' + CHAR(13) + CHAR(10)
SET #LEGEND = #LEGEND + CHAR(13) + CHAR(10)
SET #LEGEND = #LEGEND + N'-- ===================================================================' + CHAR(13) + CHAR(10)
SET #LEGEND = #LEGEND + N'-- Author : ' + #AUTHOR + CHAR(13) + CHAR(10)
SET #LEGEND = #LEGEND + N'-- Create date : ' + CONVERT(nvarchar(30),GETDATE(),101) + CHAR(13) + CHAR(10)
SET #LEGEND = #LEGEND + N'-- Revised date: ' + CHAR(13) + CHAR(10)
--Get Primary Key Field
SELECT TOP 1 #PRIMARY_KEY = COLUMN_NAME
FROM INFORMATION_SCHEMA.KEY_COLUMN_USAGE
WHERE OBJECTPROPERTY(OBJECT_ID(constraint_name), 'IsPrimaryKey') = 1 AND TABLE_NAME = #TableName AND TABLE_CATALOG = #DBName;
DECLARE TableCol Cursor FOR
SELECT c.TABLE_SCHEMA, c.TABLE_NAME, c.COLUMN_NAME, c.DATA_TYPE, c.CHARACTER_MAXIMUM_LENGTH
, IIF(c.COLUMN_NAME='RowVersion',#NBLE,IIF(c.COLUMN_NAME=#PRIMARY_KEY,#NBLE,IIF(c.IS_NULLABLE = 'NO' AND c.COLUMN_DEFAULT IS NULL,#NNND,IIF(c.IS_NULLABLE = 'NO' AND c.COLUMN_DEFAULT IS NOT NULL,#NNWD,#NBLE)))) AS [NULLABLE_TYPE]
FROM INFORMATION_SCHEMA.Columns c INNER JOIN
INFORMATION_SCHEMA.Tables t ON c.TABLE_NAME = t.TABLE_NAME
WHERE t.Table_Catalog = #DBName
AND t.TABLE_TYPE = 'BASE TABLE'
AND t.TABLE_NAME = #TableName
ORDER BY [NULLABLE_TYPE], c.ORDINAL_POSITION;
DECLARE #TableSchema varchar(100), #cTableName varchar(100), #ColumnName varchar(100);
DECLARE #DataType varchar(30), #CharLength int, #NullableType varchar(30);
DECLARE #PARAMETERS nvarchar(max);
DECLARE #INSERT_FIELDS nvarchar(max),#INSERT_VALUES nvarchar(max);
DECLARE #UPDATE_VALUES nvarchar(max);
SET #PARAMETERS ='#MyID int,';
SET #INSERT_FIELDS ='';
SET #INSERT_VALUES ='';
SET #UPDATE_VALUES ='';
-- open the cursor
OPEN TableCol
-- get the first row of cursor into variables
FETCH NEXT FROM TableCol INTO #TableSchema, #cTableName, #ColumnName, #DataType, #CharLength, #NullableType
WHILE ##FETCH_STATUS = 0
BEGIN
IF #ColumnName NOT IN('Created','CreatedBy','Modified','ModifiedBy')
BEGIN
SET #PARAMETERS=#PARAMETERS + '#' + IIF(#ColumnName=#PRIMARY_KEY,'ID',#ColumnName) + ' ' + iif(#CharLength IS NULL,#DataType,#DataType + '(' +
CAST(#CharLength AS nvarchar(10)) + ')') + IIF(#NullableType=#NNND OR #NullableType=#NNWD,',','=NULL,');
IF #ColumnName <> #PRIMARY_KEY AND #ColumnName <> N'RowVersion'
BEGIN
SET #INSERT_FIELDS=#INSERT_FIELDS + '[' + #ColumnName + '],';
SET #INSERT_VALUES=#INSERT_VALUES + '#' + IIF(#ColumnName=#PRIMARY_KEY,'ID',#ColumnName) + ',';
SET #UPDATE_VALUES=#UPDATE_VALUES + '[' + #ColumnName + ']=#' + IIF(#ColumnName=#PRIMARY_KEY,'ID',#ColumnName) + ',';
END
END
FETCH NEXT FROM TableCol INTO #TableSchema, #cTableName, #ColumnName, #DataType, #CharLength, #NullableType
END;
SET #PARAMETERS=LEFT(#PARAMETERS,LEN(#PARAMETERS)-1)
SET #INSERT_FIELDS=LEFT(#INSERT_FIELDS,LEN(#INSERT_FIELDS)-1)
SET #INSERT_VALUES=LEFT(#INSERT_VALUES,LEN(#INSERT_VALUES)-1)
SET #UPDATE_VALUES=LEFT(#UPDATE_VALUES,LEN(#UPDATE_VALUES)-1)
-- ----------------
-- clean up cursor
-- ----------------
CLOSE TableCol;
DEALLOCATE TableCol;
--Print Upsert Statement
PRINT N'/****** Object: StoredProcedure [dbo].[' + #ProcName + '_ups] Script Date: ' + CAST(GETDATE() AS nvarchar(30)) + ' ******/' + CHAR(13) + CHAR(10)
PRINT #LEGEND;
PRINT N'-- Description : Upsert ' + #DESC + CHAR(13) + CHAR(10)
PRINT N'-- ===================================================================' + CHAR(13) + CHAR(10)
PRINT CHAR(13) + CHAR(10)
PRINT N'CREATE PROCEDURE [dbo].[' + #ProcName + '_ups]' + CHAR(13) + CHAR(10);
PRINT N' (' + #PARAMETERS + N')' + CHAR(13) + CHAR(10);
PRINT N'AS' + CHAR(13) + CHAR(10)
PRINT N'BEGIN' + CHAR(13) + CHAR(10)
PRINT N' SET CONTEXT_INFO #MyID;' + CHAR(13) + CHAR(10)
PRINT N' IF #ID IS NULL OR #ID = 0' + CHAR(13) + CHAR(10)
PRINT N' BEGIN' + CHAR(13) + CHAR(10)
PRINT N' INSERT INTO [dbo].[' + #TableName + ']' + CHAR(13) + CHAR(10)
PRINT N' (' + #INSERT_FIELDS + N')' + CHAR(13) + CHAR(10)
PRINT N' VALUES' + CHAR(13) + CHAR(10)
PRINT N' (' + #INSERT_VALUES + N');' + CHAR(13) + CHAR(10)
PRINT N' SELECT * FROM [dbo].[' + #ViewName + '] WHERE [ID] = SCOPE_IDENTITY();' + CHAR(13) + CHAR(10)
PRINT N' END' + CHAR(13) + CHAR(10)
PRINT N' ELSE' + CHAR(13) + CHAR(10)
PRINT N' BEGIN' + CHAR(13) + CHAR(10)
PRINT N' UPDATE [dbo].[' + #TableName + ']' + CHAR(13) + CHAR(10)
PRINT N' SET ' + #UPDATE_VALUES + CHAR(13) + CHAR(10)
PRINT N' WHERE ([' + #PRIMARY_KEY + '] = #ID) AND ([RowVersion] = #RowVersion);' + CHAR(13) + CHAR(10)
PRINT N' SELECT * FROM [dbo].[' + #ViewName + '] WHERE [ID] = #ID;' + CHAR(13) + CHAR(10)
PRINT N' END' + CHAR(13) + CHAR(10)
PRINT N'END' + CHAR(13) + CHAR(10)
PRINT N'GO' + CHAR(13) + CHAR(10)
PRINT CHAR(13) + CHAR(10)
----Now add GRANT and DENY permissions to the Role
PRINT N'GRANT EXECUTE ON [dbo].[' + #ProcName + '_ups] TO [' + #DBRoleName + ']' + CHAR(13) + CHAR(10)
PRINT N'GO' + CHAR(13) + CHAR(10)
PRINT N'DENY VIEW DEFINITION ON [dbo].[' + #ProcName + '_ups] TO [' + #DBRoleName + ']' + CHAR(13) + CHAR(10)
PRINT N'GO' + CHAR(13) + CHAR(10)
PRINT CHAR(13) + CHAR(10)
PRINT CHAR(13) + CHAR(10)
--Print Select Statement
PRINT N'/****** Object: StoredProcedure [dbo].[' + #ProcName + '_sel] Script Date: ' + CAST(GETDATE() AS nvarchar(30)) + ' ******/' + CHAR(13) + CHAR(10)
PRINT #LEGEND;
PRINT N'-- Description : Select ' + #DESC + CHAR(13) + CHAR(10)
PRINT N'-- ===================================================================' + CHAR(13) + CHAR(10)
PRINT CHAR(13) + CHAR(10)
PRINT N'CREATE PROCEDURE [dbo].[' + #ProcName + '_sel]' + CHAR(13) + CHAR(10);
PRINT N' (#MyID int, #ID int=NULL' + IIF(#ISACTIVE_SEL = 1,', #IsActive bit=NULL','') + ')' + CHAR(13) + CHAR(10);
PRINT N'AS' + CHAR(13) + CHAR(10)
PRINT N'BEGIN' + CHAR(13) + CHAR(10)
PRINT N' SET CONTEXT_INFO #MyID;' + CHAR(13) + CHAR(10)
PRINT N' IF #ID IS NULL OR #ID = 0' + CHAR(13) + CHAR(10)
IF #ISACTIVE_SEL = 1
BEGIN
PRINT N' BEGIN' + CHAR(13) + CHAR(10)
PRINT N' IF #IsActive IS NULL' + CHAR(13) + CHAR(10)
PRINT N' SELECT * FROM [dbo].[' + #ViewName + '] ORDER BY [' + #OrderBy + '] ' + #OrderByDir + ';' + CHAR(13) + CHAR(10)
PRINT N' ELSE' + CHAR(13) + CHAR(10)
PRINT N' SELECT * FROM [dbo].[' + #ViewName + '] WHERE [isActive] = #IsActive ORDER BY [' + #OrderBy + '] ' + #OrderByDir + ';' + CHAR(13) + CHAR(10)
PRINT N' END' + CHAR(13) + CHAR(10)
END
ELSE
PRINT N' SELECT * FROM [dbo].[' + #ViewName + '] ORDER BY [' + #OrderBy + '] ' + #OrderByDir + ';' + CHAR(13) + CHAR(10)
PRINT N' ELSE' + CHAR(13) + CHAR(10)
PRINT N' SELECT * FROM [dbo].[' + #ViewName + '] WHERE [ID] = #ID;' + CHAR(13) + CHAR(10)
PRINT N'END' + CHAR(13) + CHAR(10)
PRINT N'GO' + CHAR(13) + CHAR(10)
PRINT CHAR(13) + CHAR(10)
----Now add GRANT and DENY permissions to the Role
PRINT N'GRANT EXECUTE ON [dbo].[' + #ProcName + '_sel] TO [' + #DBRoleName + ']' + CHAR(13) + CHAR(10)
PRINT N'GO' + CHAR(13) + CHAR(10)
PRINT N'DENY VIEW DEFINITION ON [dbo].[' + #ProcName +'_sel] TO [' + #DBRoleName + ']' + CHAR(13) + CHAR(10)
PRINT N'GO' + CHAR(13) + CHAR(10)
PRINT CHAR(13) + CHAR(10)
PRINT CHAR(13) + CHAR(10)
--Print Delete Statement
PRINT N'/****** Object: StoredProcedure [dbo].[' + #ProcName + '_del] Script Date: ' + CAST(GETDATE() AS nvarchar(30)) + ' ******/' + CHAR(13) + CHAR(10)
PRINT #LEGEND;
PRINT N'-- Description : Delete ' + #DESC + CHAR(13) + CHAR(10)
PRINT N'-- ===================================================================' + CHAR(13) + CHAR(10)
PRINT CHAR(13) + CHAR(10)
PRINT N'CREATE PROCEDURE [dbo].[' + #ProcName + '_del]' + CHAR(13) + CHAR(10);
PRINT N' (#MyID int, #ID int, #RowVersion int)' + CHAR(13) + CHAR(10);
PRINT N'AS' + CHAR(13) + CHAR(10)
PRINT N'BEGIN' + CHAR(13) + CHAR(10)
PRINT N' SET CONTEXT_INFO #MyID;' + CHAR(13) + CHAR(10)
PRINT N' SET NOCOUNT ON;' + CHAR(13) + CHAR(10)
PRINT N' DELETE FROM [dbo].[' + #TableName + '] WHERE [' + #PRIMARY_KEY + ']=#ID AND [RowVersion]=#RowVersion;' + CHAR(13) + CHAR(10)
PRINT N' SELECT ##ROWCOUNT as [Rows Affected];' + CHAR(13) + CHAR(10)
PRINT N'END' + CHAR(13) + CHAR(10)
PRINT N'GO' + CHAR(13) + CHAR(10)
PRINT CHAR(13) + CHAR(10)
----Now add GRANT and DENY permissions to the Role
PRINT N'GRANT EXECUTE ON [dbo].[' + #ProcName + '_del] TO [' + #DBRoleName + ']' + CHAR(13) + CHAR(10)
PRINT N'GO' + CHAR(13) + CHAR(10)
PRINT N'DENY VIEW DEFINITION ON [dbo].[' + #ProcName +'_del] TO [' + #DBRoleName + ']' + CHAR(13) + CHAR(10)
PRINT N'GO' + CHAR(13) + CHAR(10)

Beside tools mentioned before, there is another free tool you can use to get the job done in a few clicks.
To do so, you need to enter prefix and suffix in the ApexSQL Complete options window, where you can choose one of the sub-tabs for each of CRUD procedure templates (Select, Insert, Update, Delete). After this is done, the CRUD procedures feature will be available by right clicking in the Object Explorer window, in database or table in the drop down menu.
Here is an article with more details about this functionality (article is a bit old though, as feature is added into the current release)

You can generate four CRUD procedures using a predefined templates from the selected table. This functionality is available in several add-ins, such as SSMS Toolpack and SQL Complete.

CREATE PROCEDURE SP_USUARIO
#usuario varchar(30)=null,
#clave varchar(500)=null,
#idPersona int=null,
#idRol int=null,
#idUsuario int=null,
#TIPO TINYINT=1
AS
BEGIN
IF #TIPO=1 -- LISTAR PERSONAS
BEGIN
SELECT idPersona,Nombre,ApePaterno,ApeMaterno,DNI,Direccion,celular,email FROM Persona
END
IF #TIPO=2 -- LISTAR ROLES
BEGIN
SELECT idRol,Nombre,Descripcion FROM ROL
END
IF #TIPO=3 -- LISTAR USUARIOS
BEGIN
SELECT idUsuario,usuario,pass,idPersona,idRol from Usuario
END
IF #TIPO=3 -- USUARIOS
BEGIN
SELECT idUsuario,usuario,pass,idPersona,idRol from Usuario where idUsuario=#idUsuario
END
IF #TIPO=4 -- AGREGAR USUARIO
BEGIN
INSERT Usuario(usuario,pass,idPersona,idRol) values(#usuario,#clave,#idPersona,#idRol)
END
IF #TIPO=5 -- EDITAR USUARIO
BEGIN
UPDATE Usuario SET usuario=#usuario,pass=#clave,#idPersona=#idPersona,idRol=#idRol where idUsuario=#idUsuario
END
IF #TIPO=6 -- ELIMINAR USUARIO
BEGIN
DELETE Usuario WHERE idUsuario=#idUsuario
END
END
go

-- Here end end of the procedure (started on another post)
If (LEN(#ColumnParametersInsert)>0)
Begin
Set #ColumnParametersInsert = LEFT(#ColumnParametersInsert,LEN(#ColumnParametersInsert)-3) ;
SET #LastPosOfComma = LEN(#ColumnParametersInsertForExec) - CHARINDEX(' ,',REVERSE(#ColumnParametersInsertForExec))
SET #ColumnParametersInsertForExec = LEFT(#ColumnParametersInsertForExec,#LastPosOfComma+3) + SUBSTRING(#ColumnParametersInsertForExec,#LastPosOfComma+5,40000);
Set #ColumnParametersDelete = LEFT(#ColumnParametersDelete,LEN(#ColumnParametersDelete)-4) ;
SET #LastPosOfComma = LEN(#ColumnParametersDeleteForExec) - CHARINDEX(' ,',REVERSE(#ColumnParametersDeleteForExec))
SET #ColumnParametersDeleteForExec = LEFT(#ColumnParametersDeleteForExec,#LastPosOfComma+3) + SUBSTRING(#ColumnParametersDeleteForExec,#LastPosOfComma+5,40000);
SET #ColumnParametersList = LEFT(#ColumnParametersList,LEN(#ColumnParametersList)-3) ;
SET #LastPosOfComma = LEN(#ColumnParametersListForExec) - CHARINDEX(' ,',REVERSE(#ColumnParametersListForExec))
SET #ColumnParametersListForExec = LEFT(#ColumnParametersListForExec,#LastPosOfComma+3) + SUBSTRING(#ColumnParametersListForExec,#LastPosOfComma+5,40000);
IF LEN(#ColumnInValueForInsert)>0
Set #ColumnInValueForInsert = LEFT(#ColumnInValueForInsert,LEN(#ColumnInValueForInsert)-3) ;
IF LEN(#ColumnDefForInsert)>0
Set #ColumnDefForInsert = LEFT(#ColumnDefForInsert,LEN(#ColumnDefForInsert)-3) ;
IF LEN(#tableCols)>0
Set #tableCols = LEFT(#tableCols,LEN(#tableCols)-1) ;
IF LEN(#updCols)>0
Set #updCols = LEFT(#updCols,LEN(#updCols)-3) ;
SET #tableColumnForWhereInListVariables = LEFT(#tableColumnForWhereInListVariables,LEN(#tableColumnForWhereInListVariables)-3)
SET #tableColumnForWhereInListAffectVariables = LEFT(#tableColumnForWhereInListAffectVariables,LEN(#tableColumnForWhereInListAffectVariables)-3) ;
END
If (LEN(#whereCols)>0)
Set #whereCols = 'WHERE ' + LEFT(#whereCols,LEN(#whereCols)-4) ;
ELSE
Set #whereCols = 'WHERE 1=0 --Too dangerous to do update or delete on all the table'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '-- ============================================='
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '-- Author : ' + SYSTEM_USER
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '-- Create date : ' + Convert(varchar(20),Getdate())
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '-- Description : Insert Procedure for ' + #CurrentTableName
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '-- ============================================='
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'IF OBJECT_ID(''' + REPLACE(#insertSPName,'''','''''') + ''',''P'') IS NOT NULL'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + ' DROP PROCEDURE ' + #insertSPName
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'GO'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + ''
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + ''
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'CREATE PROCEDURE ' + #insertSPName
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + '' + #ColumnParametersInsert
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #strBegin
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #spaceForTrans + 'INSERT INTO ' + #CurrentFullTableName + '('
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #spaceForTrans + ' ' + '' + #ColumnDefForInsert + ')'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #spaceForTrans + 'VALUES ('
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #spaceForTrans + ' ' + '' + #ColumnInValueForInsert + ')'
IF #NbPrimaryKey =1 --No return if 2 or 0 primarykeys
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #spaceForTrans + 'SELECT SCOPE_IDENTITY() AS ' + #LastPrimaryKey
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #strEnd
Set #strSPText = #strSPText + #SetVariablesForExec
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'EXEC ' + #insertSPName + ' ' + #ColumnParametersInsertForExec
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'GO'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'SELECT * FROM ' + #CurrentFullTableName + ' ORDER BY 1 DESC'
IF #UnCommentExecForDebug = 0 Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '*/'
INSERT INTO #StatementList (FullTableName,StatementType,Statement) VALUES (#CurrentFullTableName,'Insert',#strSPText)
Set #strSPText = ''
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '-- ============================================='
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '-- Author : ' + SYSTEM_USER
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '-- Create date : ' + Convert(varchar(20),Getdate())
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '-- Description : Update Procedure for ' + #CurrentTableName
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '-- ============================================='
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'IF OBJECT_ID(''' + REPLACE(#updateSPName,'''','''''') + ''',''P'') IS NOT NULL'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + ' DROP PROCEDURE ' + #updateSPName
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'GO'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + ''
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + ''
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'CREATE PROCEDURE ' + #updateSPName
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + '' + #ColumnParametersUpdate
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #strBegin
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #spaceForTrans+ 'UPDATE ' + #CurrentFullTableName
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #spaceForTrans+ ' SET ' + #updCols
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #spaceForTrans+ ' ' + #whereCols
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #strEnd
Set #strSPText = #strSPText + #SetVariablesForExec + #SetVariablesForExecUpdate
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'EXEC ' + #updateSPName + ' ' + #ColumnParametersUpdateForExec
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'SELECT * FROM ' + #CurrentFullTableName + ' '
IF #UnCommentExecForDebug = 0 Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '*/'
INSERT INTO #StatementList (FullTableName,StatementType,Statement) VALUES (#CurrentFullTableName,'Update',#strSPText)
Set #strSPText = ''
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '-- ============================================='
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '-- Author : ' + SYSTEM_USER
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '-- Create date : ' + Convert(varchar(20),Getdate())
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '-- Description : Delete Procedure for ' + #CurrentTableName
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '-- ============================================='
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'IF OBJECT_ID(''' + REPLACE(#deleteSPName,'''','''''') + ''',''P'') IS NOT NULL'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + ' DROP PROCEDURE ' + #deleteSPName
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'GO'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + ''
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + ''
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'CREATE PROCEDURE ' + #deleteSPName
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + '' + #ColumnParametersDelete
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #strBegin
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #space + #spaceForTrans + 'DELETE FROM ' + #CurrentFullTableName
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #space + #spaceForTrans + ' ' + #whereCols
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #strEnd
Set #strSPText = #strSPText + #SetVariablesForExecDelete
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'EXEC ' + #deleteSPName + ' ' + #ColumnParametersDeleteForExec
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'GO'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'SELECT * FROM ' + #CurrentFullTableName + ' ORDER BY 1 DESC'
IF #UnCommentExecForDebug = 0 Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '*/'
INSERT INTO #StatementList (FullTableName,StatementType,Statement) VALUES (#CurrentFullTableName,'Delete',#strSPText)
Set #strSPText = ''
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '-- ============================================='
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '-- Author : ' + SYSTEM_USER
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '-- Create date : ' + Convert(varchar(20),Getdate())
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '-- Description : List Procedure for ' + #CurrentFullTableName
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '-- ============================================='
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'IF OBJECT_ID(''' + REPLACE(#listSPName,'''','''''') + ''',''P'') IS NOT NULL'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + ' DROP PROCEDURE ' + #listSPName
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'GO'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + ''
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'CREATE PROCEDURE ' + #listSPName
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + '' + #ColumnParametersList
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #strBegin
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space +' DECLARE #Separator nvarchar(20) =''
WHERE '''
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space +' DECLARE #SeparatorAnd nvarchar(20) =''
AND '''
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space +' DECLARE #Statement nvarchar(max) =''SELECT *
FROM ' + REPLACE(#CurrentFullTableName,'''','''''') + '''' + #tableColumnForWhereInList
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #space + #spaceForTrans + ' --PRINT #Statement'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #space + #spaceForTrans + ' BEGIN TRY'
IF #GenerateDebugScriptForList=1
BEGIN
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #space + #spaceForTrans + ' IF 1=0--DEBUG --TODO: verify if not set for final version'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #space + #spaceForTrans + ' BEGIN'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #space + #spaceForTrans + ' DECLARE #FullQueryForDebug nvarchar(max)=' + #DebugVariablesForList
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #space + #spaceForTrans + ' CHAR(13) +CHAR(10) + #Statement'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #space + #spaceForTrans + ' '
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #space + #spaceForTrans + ' --PRINT #FullQueryForDebug'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #space + #spaceForTrans + ' --EXEC [K2FranceDebugDB].dbo.K2FranceDebug ''#FullQueryForDebug DIRECT'', #FullQueryForDebug'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #space + #spaceForTrans + ' --EXEC loopbackServerForDebug.[K2FranceDebugDB].dbo.K2FranceDebug ''#FullQueryForDebug loopback'', #FullQueryForDebug'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #space + #spaceForTrans + ' END'
END
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #space + #spaceForTrans + ' exec sp_executesql #Statement ,N''' + #tableColumnForWhereInListVariables + ''',' + #tableColumnForWhereInListAffectVariables
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #space + #spaceForTrans + ' END TRY'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #space + #spaceForTrans + ' BEGIN CATCH'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #space + #spaceForTrans + ' DECLARE #ErrorToDisplay nvarchar(max)= ''Error trying to execute Query Error number:'' + CAST(ERROR_NUMBER() AS nvarchar(max)) +
--'' Error severity:'' + ISNULL(CAST(ERROR_SEVERITY() AS nvarchar(max)),'''') +
--'' Error state:'' + ISNULL(CAST(ERROR_STATE() AS nvarchar(max)),'''') +
--'' Error procedure:'' + ISNULL(CAST(ERROR_PROCEDURE() AS nvarchar(max)),'''') +
--'' Error line:'' + ISNULL(CAST(ERROR_LINE() AS nvarchar(max)),'''') +
'' Error message:'' + ISNULL(CAST(ERROR_MESSAGE() AS nvarchar(max)),'''')
'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #space + #spaceForTrans + ' RAISERROR(#ErrorToDisplay, 16, 1);'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #space + #space + #spaceForTrans + ' END CATCH'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + #strEnd
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'EXEC ' + #listSPName + ' ' + #ColumnParametersListForExec
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'GO'
Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + 'SELECT * FROM ' + #CurrentFullTableName + ' ORDER BY 1'
IF #UnCommentExecForDebug = 0 Set #strSPText = #strSPText + CHAR(13) + CHAR(10) + '*/'
INSERT INTO #StatementList (FullTableName,StatementType,Statement) VALUES (#CurrentFullTableName,'List',#strSPText)
Drop table #tmp_Structure
Fetch next from Tables_cursor INTO #CurrentSchemaName,#CurrentTableName
END
CLOSE Tables_cursor
DEALLOCATE Tables_cursor
SET #DropStatement = '
------------------------------------------- TO CLEAN COMPLETELY THE APPLICATION ---------------------------------------
/*' + #DropStatement +'
*/'
INSERT INTO #StatementList (FullTableName,StatementType,Statement) VALUES ('Common','Drop statement to put at the end of final script',#DropStatement)
SELECT * FROM #StatementList
ORDER BY 1
END
GO
--For all tables of schema dbo of database "OlivierDb":
EXEC dbo.GenerateDynamicallyProceduresForTables 'OlivierDB','dbo'
--With all possible parameters:
EXEC dbo.GenerateDynamicallyProceduresForTables #DatabaseName = 'OlivierDB',
#SchemaName = 'dbo',
#TableName = 'Table5',
#NoCount = 1,
#ManageTransaction = 1,
#GenerateDebugScriptForList = 1,
#ParameterForUser = '#UserInP',
#ParameterForCulture = '#CultureInP',
#FirstParametersAreMandatory= 1,
#ProcedureTemplateName = '[{SchemaName}].[{TableName}_Proc_{ActionType}]',
#ColumnNameLimitation = '', --(syscolumns.name LIKE ''%Creation%'' OR syscolumns.name IN (''SomeInt'',''Somebit'') )
#CreationUserMatch = 'syscolumns.name LIKE ''%CreationUser%'' OR syscolumns.name LIKE ''%CreationBy%''',
#CreationDateMatch = 'syscolumns.name LIKE ''%CreationDate%'' OR syscolumns.name LIKE ''%CreatedDate%''',
#ModificationUserMatch = 'syscolumns.name LIKE ''%ModificationUser%'' OR syscolumns.name LIKE ''%ModifiedBy%'' OR syscolumns.name LIKE ''%ModifiedUser%''',
#ModificationDateMatch = 'syscolumns.name LIKE ''%ModificationDate%'' OR syscolumns.name LIKE ''%ModifiedDate%'''

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 '''<testXML><value name="test">' + CAST(#ColNumber AS nvarchar(10)) + '</value></testXML>'''
ELSE '''1''--Currently Not managed'
END
END + ', --Type ' + #DataType + CHAR(13) + CHAR(10) + #space
IF #ColIsIdentityAutoIncrement = 0 AND #ColIsComputed = 0
BEGIN
IF #ColMatchModificationUser = 0 AND #ColMatchModificationDate = 0
Set #ColumnDefForInsert = #ColumnDefForInsert + #colName+ ',' + CHAR(13) + CHAR(10) + #space + #space + #spaceForTrans ;
IF #ColMatchCreationUser= 0 AND #ColMatchCreationDate = 0 AND #ColMatchModificationUser = 0 AND #ColMatchModificationDate = 0
BEGIN
Set #ColumnParametersInsert = #ColumnParametersInsert + #colParameter + CASE WHEN #colAllowNull =1 THEN ' = NULL' ELSE '' END + ',' + CHAR(13) + CHAR(10) + #space ;
SET #ColumnParametersInsertForExec = #ColumnParametersInsertForExec + #AffectationForExec
END
IF #ColMatchCreationUser= 1
BEGIN
IF LEN(#ParameterForUser)>1
Set #ColumnInValueForInsert = #ColumnInValueForInsert + 'ISNULL(' + #ParameterForUser + ',SYSTEM_USER)'
ELSE
Set #ColumnInValueForInsert = #ColumnInValueForInsert + 'SYSTEM_USER'
END
ELSE
BEGIN
IF #ColMatchCreationDate= 1
Set #ColumnInValueForInsert = #ColumnInValueForInsert + 'GETDATE()'
ELSE
IF #ColMatchModificationUser = 0 AND #ColMatchModificationDate = 0
Set #ColumnInValueForInsert = #ColumnInValueForInsert + #colVariable
END
IF #ColMatchCreationUser= 1 OR #ColMatchCreationDate= 1 OR #ColMatchModificationUser = 0 AND #ColMatchModificationDate = 0
SET #ColumnInValueForInsert =#ColumnInValueForInsert + ',' + CHAR(13) + CHAR(10) + #space + #space+ #spaceForTrans
Set #tableCols = #tableCols + #colName + ',' ;
IF #ColMatchModificationUser = 1
BEGIN
IF LEN(#ParameterForUser)>1
Set #updCols = #updCols + #colName + ' = ISNULL(' + #ParameterForUser + ',SYSTEM_USER)';
ELSE
Set #updCols = #updCols + #colName + ' = SYSTEM_USER';
END
ELSE
BEGIN
IF #ColMatchModificationDate = 1
Set #updCols = #updCols + #colName + ' = GETDATE()';
ELSE
IF #ColMatchCreationUser=0 AND #ColMatchCreationDate=0
Set #updCols = #updCols + #colName + ' = ' + #colVariable;
END
IF #ColMatchModificationUser = 1 OR #ColMatchModificationDate = 1 OR #ColMatchCreationUser=0 AND #ColMatchCreationDate=0
SET #updCols =#updCols + ',' + CHAR(13) + CHAR(10) + #space + #space+ ' ' + #spaceForTrans
END
SET #ColumnParametersList = #ColumnParametersList + #colParameter + ' = NULL' + ',' + CHAR(13) + CHAR(10) + #space ;
SET #ColumnParametersListForExec = #ColumnParametersListForExec+ #colVariable + ' = NULL, --Type ' + #DataType + CHAR(13) + CHAR(10) + #space
IF #ColIsIdentityAutoIncrement = 1 AND #DataType='int'
BEGIN
SET #SetVariablesForExecUpdate = CHAR(13)+CHAR(10)+'DECLARE #PrimaryKeyValue INT= (SELECT MIN(' + #colName + ') FROM ' + #CurrentFullTableName + ')'
SET #AffectationForExec = #colVariable + '= #PrimaryKeyValue, --Type ' + #DataType + CHAR(13) + CHAR(10) + #space
END
IF #ColIsComputed = 0 AND #ColMatchCreationUser=0 AND #ColMatchCreationDate=0 AND #ColMatchModificationUser=0 AND #ColMatchModificationDate=0
BEGIN
Set #ColumnParametersUpdate = #ColumnParametersUpdate + #colParameter + ',' + CHAR(13) + CHAR(10) + #space ;
SET #ColumnParametersUpdateForExec = #ColumnParametersUpdateForExec + #AffectationForExec
END
IF #DataType NOT IN ('text')
BEGIN
IF #DataType NOT IN ('Xml')
BEGIN
SET #tableColumnForWhereInList = #tableColumnForWhereInList + '
IF ' + #colVariable + ' IS NOT NULL
BEGIN
SET #Statement= #Statement+ #Separator + ''' + REPLACE(#colName,'''','''''') + '= '+ #colVariableProc +'''
SET #Separator = #SeparatorAnd
END'
SET #tableColumnForWhereInListVariables = #tableColumnForWhereInListVariables + #space + #space + #space + #spaceForTrans + #colVariableProc + ' ' + #DataType +',
'
SET #tableColumnForWhereInListAffectVariables = #tableColumnForWhereInListAffectVariables + #space + #space + #space + #spaceForTrans + #colVariableProc + '=' + #colVariable + ',
'
END
SET #DebugVariablesForList = #DebugVariablesForList+ CHAR(13) +CHAR(10) + #space + #space + #space + #space +#space+ #spaceForTrans
IF #DataType IN ('Xml')
SET #DebugVariablesForList = #DebugVariablesForList+ 'ISNULL(''DECLARE '+ #colVariableProc + ' ' + #DataType+' = CAST('''''' + REPLACE(CAST(' +#colVariable + ' as nvarchar(max)),'''''''','''''''''''') + ''''''AS XML);''+CHAR(13)+CHAR(10) ,'''') + '
ELSE
SET #DebugVariablesForList = #DebugVariablesForList+ 'ISNULL(''DECLARE '+ #colVariableProc + ' ' + #DataType+' = '''''' + REPLACE(' +#colVariable + ','''''''','''''''''''') + '''''';''+CHAR(13)+CHAR(10) ,'''') + '
END
IF #colIsPrimaryKey= 1
BEGIN
IF #ColIsIdentityAutoIncrement = 1 AND #DataType='int'
BEGIN
SET #SetVariablesForExecDelete = CHAR(13)+CHAR(10)+'DECLARE #PrimaryKeyValue INT= (SELECT MAX(' + #colName + ') FROM ' + #CurrentFullTableName + ')'
END
SET #ColumnParametersDelete = #ColumnParametersDelete + #colParameter +', ' + CHAR(13) + CHAR(10) + #space ;
SET #ColumnParametersDeleteForExec = #ColumnParametersDeleteForExec + #AffectationForExec
SET #whereCols = #whereCols + #colName + ' = ' + #colVariable + ' AND ' ;
SET #NbPrimaryKey = #NbPrimaryKey +1
SET #LastPrimaryKey = #colName
END
FETCH NEXT FROM SpText_Cursor INTO #colName, #colVariable, #DataType,#colParameter, #colAllowNull,#colIsPrimaryKey,#ColIsIdentityAutoIncrement,#ColLength,#ColIsComputed,#ColMatchCreationUser,#ColMatchCreationDate,#ColMatchModificationUser,#ColMatchModificationDate
END
CLOSE SpText_Cursor
DEALLOCATE SpText_Cursor
IF #ColumnDefForInsert IS NULL
RAISERROR('#ColumnDefForInsert IS NULL',16,1)
IF #ColumnParametersInsert IS NULL
RAISERROR('#ColumnParametersInsert IS NULL',16,1)
IF #ColumnParametersInsertForExec IS NULL
RAISERROR('#ColumnParametersInsertForExec IS NULL',16,1)
IF #ColumnInValueForInsert IS NULL
RAISERROR('#ColumnInValueForInsert IS NULL',16,1)
IF #tableCols IS NULL
RAISERROR('#tableCols IS NULL',16,1)
IF #updCols IS NULL
RAISERROR('#updCols IS NULL',16,1)
IF #ColumnParametersDelete IS NULL
RAISERROR('#ColumnParametersDelete IS NULL',16,1)
IF #whereCols IS NULL
RAISERROR('#whereCols IS NULL',16,1)
DECLARE #LastPosOfComma INT
If (LEN(#ColumnParametersUpdate)>0)
BEGIN
Set #ColumnParametersUpdate = LEFT(#ColumnParametersUpdate,LEN(#ColumnParametersUpdate)-3) ;
SET #LastPosOfComma = LEN(#ColumnParametersUpdateForExec) - CHARINDEX(' ,',REVERSE(#ColumnParametersUpdateForExec))
SET #ColumnParametersUpdateForExec = LEFT(#ColumnParametersUpdateForExec,#LastPosOfComma+3) + SUBSTRING(#ColumnParametersUpdateForExec,#LastPosOfComma+5,40000);
END
--See next post for the end of procedure

T-SQL copy Logins, Users, roles, permissions etc

We have implemented log shipping as a database disaster recovery solution and want to know if there is a way I can use T-SQL to script all the logins, users, roles permissions etc to the master database on the secondary server so that the T-SQL can be sheduled to run as an SQL Job?
My aim is that in the event of a D/R situation we can simply restore the transaction logs for each database to the secondary server and not have to worry about orphaned users etc.
Thanks for you help!

There is a login copy script here designed to copy logins to another server for disaster recovery purposes:
http://www.sqlsoldier.com/wp/sqlserver/transferring-logins-to-a-database-mirror
Use master;
Go
If Exists (Select 1 From INFORMATION_SCHEMA.ROUTINES
Where ROUTINE_NAME = 'dba_CopyLogins'
And ROUTINE_SCHEMA = 'dbo')
Drop Procedure dbo.dba_CopyLogins
Go
SET ANSI_NULLS ON
SET QUOTED_IDENTIFIER ON
GO
Create Procedure dbo.dba_CopyLogins
#PartnerServer sysname,
#Debug bit = 0
As
Declare #MaxID int,
#CurrID int,
#SQL nvarchar(max),
#LoginName sysname,
#IsDisabled int,
#Type char(1),
#SID varbinary(85),
#SIDString nvarchar(100),
#PasswordHash varbinary(256),
#PasswordHashString nvarchar(300),
#RoleName sysname,
#Machine sysname,
#PermState nvarchar(60),
#PermName sysname,
#Class tinyint,
#MajorID int,
#ErrNumber int,
#ErrSeverity int,
#ErrState int,
#ErrProcedure sysname,
#ErrLine int,
#ErrMsg nvarchar(2048)
Declare #Logins Table (LoginID int identity(1, 1) not null primary key,
[Name] sysname not null,
[SID] varbinary(85) not null,
IsDisabled int not null,
[Type] char(1) not null,
PasswordHash varbinary(256) null)
Declare #Roles Table (RoleID int identity(1, 1) not null primary key,
RoleName sysname not null,
LoginName sysname not null)
Declare #Perms Table (PermID int identity(1, 1) not null primary key,
LoginName sysname not null,
PermState nvarchar(60) not null,
PermName sysname not null,
Class tinyint not null,
ClassDesc nvarchar(60) not null,
MajorID int not null,
SubLoginName sysname null,
SubEndPointName sysname null)
Set NoCount On;
If CharIndex('\', #PartnerServer) > 0
Begin
Set #Machine = LEFT(#PartnerServer, CharIndex('\', #PartnerServer) - 1);
End
Else
Begin
Set #Machine = #PartnerServer;
End
-- Get all Windows logins from principal server
Set #SQL = 'Select P.name, P.sid, P.is_disabled, P.type, L.password_hash' + CHAR(10) +
'From ' + QUOTENAME(#PartnerServer) + '.master.sys.server_principals P' + CHAR(10) +
'Left Join ' + QUOTENAME(#PartnerServer) + '.master.sys.sql_logins L On L.principal_id = P.principal_id' + CHAR(10) +
'Where P.type In (''U'', ''G'', ''S'')' + CHAR(10) +
'And P.name <> ''sa''' + CHAR(10) +
'And P.name Not Like ''##%''' + CHAR(10) +
'And CharIndex(''' + #Machine + '\'', P.name) = 0;';
Insert Into #Logins (Name, SID, IsDisabled, Type, PasswordHash)
Exec sp_executesql #SQL;
-- Get all roles from principal server
Set #SQL = 'Select RoleP.name, LoginP.name' + CHAR(10) +
'From ' + QUOTENAME(#PartnerServer) + '.master.sys.server_role_members RM' + CHAR(10) +
'Inner Join ' + QUOTENAME(#PartnerServer) + '.master.sys.server_principals RoleP' +
CHAR(10) + char(9) + 'On RoleP.principal_id = RM.role_principal_id' + CHAR(10) +
'Inner Join ' + QUOTENAME(#PartnerServer) + '.master.sys.server_principals LoginP' +
CHAR(10) + char(9) + 'On LoginP.principal_id = RM.member_principal_id' + CHAR(10) +
'Where LoginP.type In (''U'', ''G'', ''S'')' + CHAR(10) +
'And LoginP.name <> ''sa''' + CHAR(10) +
'And LoginP.name Not Like ''##%''' + CHAR(10) +
'And RoleP.type = ''R''' + CHAR(10) +
'And CharIndex(''' + #Machine + '\'', LoginP.name) = 0;';
Insert Into #Roles (RoleName, LoginName)
Exec sp_executesql #SQL;
-- Get all explicitly granted permissions
Set #SQL = 'Select P.name Collate database_default,' + CHAR(10) +
' SP.state_desc, SP.permission_name, SP.class, SP.class_desc, SP.major_id,' + CHAR(10) +
' SubP.name Collate database_default,' + CHAR(10) +
' SubEP.name Collate database_default' + CHAR(10) +
'From ' + QUOTENAME(#PartnerServer) + '.master.sys.server_principals P' + CHAR(10) +
'Inner Join ' + QUOTENAME(#PartnerServer) + '.master.sys.server_permissions SP' + CHAR(10) +
CHAR(9) + 'On SP.grantee_principal_id = P.principal_id' + CHAR(10) +
'Left Join ' + QUOTENAME(#PartnerServer) + '.master.sys.server_principals SubP' + CHAR(10) +
CHAR(9) + 'On SubP.principal_id = SP.major_id And SP.class = 101' + CHAR(10) +
'Left Join ' + QUOTENAME(#PartnerServer) + '.master.sys.endpoints SubEP' + CHAR(10) +
CHAR(9) + 'On SubEP.endpoint_id = SP.major_id And SP.class = 105' + CHAR(10) +
'Where P.type In (''U'', ''G'', ''S'')' + CHAR(10) +
'And P.name <> ''sa''' + CHAR(10) +
'And P.name Not Like ''##%''' + CHAR(10) +
'And CharIndex(''' + #Machine + '\'', P.name) = 0;'
Insert Into #Perms (LoginName, PermState, PermName, Class, ClassDesc, MajorID, SubLoginName, SubEndPointName)
Exec sp_executesql #SQL;
Select #MaxID = Max(LoginID), #CurrID = 1
From #Logins;
While #CurrID <= #MaxID
Begin
Select #LoginName = Name,
#IsDisabled = IsDisabled,
#Type = [Type],
#SID = [SID],
#PasswordHash = PasswordHash
From #Logins
Where LoginID = #CurrID;
If Not Exists (Select 1 From sys.server_principals
Where name = #LoginName)
Begin
Set #SQL = 'Create Login ' + quotename(#LoginName)
If #Type In ('U', 'G')
Begin
Set #SQL = #SQL + ' From Windows;'
End
Else
Begin
Set #PasswordHashString = '0x' +
Cast('' As XML).value('xs:hexBinary(sql:variable("#PasswordHash"))', 'nvarchar(300)');
Set #SQL = #SQL + ' With Password = ' + #PasswordHashString + ' HASHED, ';
Set #SIDString = '0x' +
Cast('' As XML).value('xs:hexBinary(sql:variable("#SID"))', 'nvarchar(100)');
Set #SQL = #SQL + 'SID = ' + #SIDString + ';';
End
If #Debug = 0
Begin
Begin Try
Exec sp_executesql #SQL;
End Try
Begin Catch
Set #ErrNumber = ERROR_NUMBER();
Set #ErrSeverity = ERROR_SEVERITY();
Set #ErrState = ERROR_STATE();
Set #ErrProcedure = ERROR_PROCEDURE();
Set #ErrLine = ERROR_LINE();
Set #ErrMsg = ERROR_MESSAGE();
RaisError(#ErrMsg, 1, 1);
End Catch
End
Else
Begin
Print #SQL;
End
If #IsDisabled = 1
Begin
Set #SQL = 'Alter Login ' + quotename(#LoginName) + ' Disable;'
If #Debug = 0
Begin
Begin Try
Exec sp_executesql #SQL;
End Try
Begin Catch
Set #ErrNumber = ERROR_NUMBER();
Set #ErrSeverity = ERROR_SEVERITY();
Set #ErrState = ERROR_STATE();
Set #ErrProcedure = ERROR_PROCEDURE();
Set #ErrLine = ERROR_LINE();
Set #ErrMsg = ERROR_MESSAGE();
RaisError(#ErrMsg, 1, 1);
End Catch
End
Else
Begin
Print #SQL;
End
End
End
Set #CurrID = #CurrID + 1;
End
Select #MaxID = Max(RoleID), #CurrID = 1
From #Roles;
While #CurrID <= #MaxID
Begin
Select #LoginName = LoginName,
#RoleName = RoleName
From #Roles
Where RoleID = #CurrID;
If Not Exists (Select 1 From sys.server_role_members RM
Inner Join sys.server_principals RoleP
On RoleP.principal_id = RM.role_principal_id
Inner Join sys.server_principals LoginP
On LoginP.principal_id = RM.member_principal_id
Where LoginP.type In ('U', 'G', 'S')
And RoleP.type = 'R'
And RoleP.name = #RoleName
And LoginP.name = #LoginName)
Begin
If #Debug = 0
Begin
Exec sp_addsrvrolemember #rolename = #RoleName,
#loginame = #LoginName;
End
Else
Begin
Print 'Exec sp_addsrvrolemember #rolename = ''' + #RoleName + ''',';
Print ' #loginame = ''' + #LoginName + ''';';
End
End
Set #CurrID = #CurrID + 1;
End
Select #MaxID = Max(PermID), #CurrID = 1
From #Perms;
While #CurrID <= #MaxID
Begin
Select #PermState = PermState,
#PermName = PermName,
#Class = Class,
#LoginName = LoginName,
#MajorID = MajorID,
#SQL = PermState + space(1) + PermName + SPACE(1) +
Case Class When 101 Then 'On Login::' + QUOTENAME(SubLoginName)
When 105 Then 'On ' + ClassDesc + '::' + QUOTENAME(SubEndPointName)
Else '' End +
' To ' + QUOTENAME(LoginName) + ';'
From #Perms
Where PermID = #CurrID;
If Not Exists (Select 1 From sys.server_principals P
Inner Join sys.server_permissions SP On SP.grantee_principal_id = P.principal_id
Where SP.state_desc = #PermState
And SP.permission_name = #PermName
And SP.class = #Class
And P.name = #LoginName
And SP.major_id = #MajorID)
Begin
If #Debug = 0
Begin
Begin Try
Exec sp_executesql #SQL;
End Try
Begin Catch
Set #ErrNumber = ERROR_NUMBER();
Set #ErrSeverity = ERROR_SEVERITY();
Set #ErrState = ERROR_STATE();
Set #ErrProcedure = ERROR_PROCEDURE();
Set #ErrLine = ERROR_LINE();
Set #ErrMsg = ERROR_MESSAGE();
RaisError(#ErrMsg, 1, 1);
End Catch
End
Else
Begin
Print #SQL;
End
End
Set #CurrID = #CurrID + 1;
End
Set NoCount Off;

We Keep Coding

sql objective-c vba vb.net react-native apache vue.js tensorflow api pandas

SQL fetch next not working as expected - sql-server-2005

Related

SQL Server sending blank email

SQL Server - Get a list of datatypes, max length, if its an identity and if its a primary key without object_ID function

Update column by looping through rows

How do I generate CRUD stored procedures from a table in SQL Server Management Studio

T-SQL copy Logins, Users, roles, permissions etc

Categories

Resources