Quote:
CREATE PROCEDURE [dbo].[FT1WEB_DELETE_CHARACTER]
@NAME VARCHAR(10)
AS
delete from ExtChrData where [name]=@NAME
delete from guildmember where [name]=@NAME
delete from guildmember where ([g_name] in (select g_name from guild where [g_master]=@NAME))
delete from guild where [g_master]=@NAME
delete from Life where [character]=@NAME
delete from lifelog where ChrName=@NAME
delete from optiondata where [name]=@NAME
delete from event_info where charactername=@NAME
UPDATE ACCOUNTCHARACTER SET GAMEID1=NULL WHERE GAMEID1=@NAME
UPDATE ACCOUNTCHARACTER SET GAMEID2=NULL WHERE GAMEID2=@NAME
UPDATE ACCOUNTCHARACTER SET GAMEID3=NULL WHERE GAMEID3=@NAME
UPDATE ACCOUNTCHARACTER SET GAMEID4=NULL WHERE GAMEID4=@NAME
UPDATE ACCOUNTCHARACTER SET GAMEID5=NULL WHERE GAMEID5=@NAME
UPDATE ACCOUNTCHARACTER SET GAMEIDC=NULL WHERE GAMEIDC=@NAME
delete [Character] where [name]=@NAME
GO
CREATE PROCEDURE [dbo].[FT1WEB_DELETE_ACCOUNT]
@ID VARCHAR(10)
AS
--DELETE ACCOUNT PROCEDURE
--DECLARACION DE VARIABLES
DECLARE @GUID INT, @NAME VARCHAR(10)
--OBTENEMOS EL ID
SET @GUID = (SELECT memb_guid from MEMB_INFO WHERE memb___id=@ID)
--PROCEDEMOS A BORRAR LOS REGISTROS
DELETE VI_MIDS_INFO WHERE memb___id = @ID
DELETE VI_LEAV_INFO WHERE memb___id = @ID
DELETE VI_FQNW_INFO WHERE memb___id = @ID
DELETE VI_CURR_INFO WHERE memb___id = @ID
DELETE T_MU2003_EVENT WHERE AccountID = @ID
DELETE T_Event_Barunson WHERE Memb_Id = @ID
DELETE PointMemo WHERE AccountId = @ID
DELETE MIDS_INFO WHERE Memb_Guid = @GUID
DELETE MembInfoModifyOrigin WHERE memb___id= @ID
DELETE MembInfoModify WHERE memb___id= @ID
DELETE MEMB_STAT WHERE memb___id= @ID
DELETE MEMB_NOTICE WHERE memb___id= @ID
DELETE MEMB_INFO WHERE memb___id= @ID
DELETE MEMB_DETA WHERE memb_guid = @GUID
DELETE MEMB_DESC WHERE memb_guid = @GUID
DELETE MEMB__OUT WHERE memb_guid = @GUID
DELETE LOG_UserLogin WHERE UserID = @ID
DELETE LOG_TakeItem WHERE UserID = @ID
DELETE LOG_ITEMSHOP WHERE UserID = @ID
DELETE LEAV_MEMB WHERE Memb_guid = @GUID
DELETE ExtIdData WHERE AccountID = @ID
DELETE ExtChrData WHERE AccountID = @ID
DELETE EVENT_INFO WHERE AccountID = @ID
DELETE CURR_INFO WHERE memb_guid = @GUID
DELETE AccountCharacter WHERE id=@ID
DELETE warehouse WHERE AccountId = @ID
DECLARE LISTA CURSOR LOCAL FORWARD_ONLY FOR
select name from Character where AccountID=@ID
OPEN LISTA
FETCH NEXT FROM LISTA INTO @NAME
WHILE @@FETCH_STATUS = 0
BEGIN
--borramos los characters
delete from ExtChrData where [name]=@NAME
delete from guildmember where [name]=@NAME
delete from guildmember where ([g_name] in (select g_name from guild where [g_master]=@NAME))
delete from guild where [g_master]=@NAME
delete from Life where [character]=@NAME
delete from lifelog where ChrName=@NAME
delete from optiondata where [name]=@NAME
delete from event_info where charactername=@NAME
FETCH NEXT FROM LISTA INTO @NAME
END
CLOSE LISTA
DEALLOCATE LISTA
DELETE Character WHERE AccountID = @ID
GO
Here are the Second level Procedures:
Quote:
CREATE PROCEDURE [dbo].[FT1WEB_DELETE_EMPTY_ACCOUNTS]
AS
--DELETE ACCOUNTS WITH NO CHARACTERS
DECLARE @ID VARCHAR(10)
--HACEMOS UNA LISTA DE CUENTAS SIN CHARACTERS
DECLARE LISTA CURSOR LOCAL FORWARD_ONLY FOR
/*
SELECT dbo.MEMB_INFO.memb___id
FROM dbo.MEMB_INFO LEFT OUTER JOIN
dbo.[Character] ON dbo.[Character].AccountID = dbo.MEMB_INFO.memb___id
WHERE (dbo.[Character].AccountID IS NULL)
*/
SELECT dbo.MEMB_INFO.memb___id
FROM dbo.MEMB_INFO
LEFT OUTER JOIN dbo.MEMB_STAT ON dbo.MEMB_INFO.memb___id = dbo.MEMB_STAT.memb___id
LEFT OUTER JOIN dbo.[Character] ON dbo.[Character].AccountID = dbo.MEMB_INFO.memb___id
WHERE ((dbo.MEMB_STAT.ConnectTM IS NULL) AND (dbo.[Character].Name IS NULL))
OR ((DATEDIFF(d, ISNULL(dbo.MEMB_STAT.ConnectTM, CONVERT(DATETIME, '1900-01-01 00:00:00', 102)), GETDATE()) > 1)
AND (dbo.[Character].Name IS NULL))
OPEN LISTA
FETCH NEXT FROM LISTA INTO @ID
WHILE @@FETCH_STATUS = 0
BEGIN
--BORRAMOS CADA CUENTA
PRINT 'DELETING:'+@ID
EXECUTE FT1WEB_DELETE_ACCOUNT @ID
FETCH NEXT FROM LISTA INTO @ID
END
CLOSE LISTA
DEALLOCATE LISTA
GO
CREATE PROCEDURE [dbo].[FT1WEB_DELETE_UNUSED_ACCOUNTS]
AS
DECLARE @ACC VARCHAR(10)
DECLARE LISTA CURSOR LOCAL FOR
SELECT TOP 100 PERCENT UserID
FROM dbo.LOG_UserLogin
GROUP BY UserID
HAVING (MAX(LoginTM) < DATEADD(D,-30,GETDATE()))
ORDER BY MAX(LoginTM)
OPEN LISTA
FETCH NEXT FROM LISTA INTO @ACC
WHILE @@FETCH_STATUS = 0
BEGIN
EXECUTE FT1WEB_DELETE_ACCOUNT @ACC
FETCH NEXT FROM LISTA INTO @ACC
END
CLOSE LISTA
DEALLOCATE LISTA
GO
U can now call from the SQL Query Analizer the followings procedures to make your work easy:
Quote:
BEGIN TRANSACTION
DECLARE @JobID BINARY(16)
DECLARE @ReturnCode INT
SELECT @ReturnCode = 0
IF (SELECT COUNT(*) FROM msdb.dbo.syscategories WHERE name = N'[Uncategorized (Local)]') < 1
EXECUTE msdb.dbo.sp_add_category @name = N'[Uncategorized (Local)]'
-- Delete the job with the same name (if it exists)
SELECT @JobID = job_id
FROM msdb.dbo.sysjobs
WHERE (name = N'ACCOUNT CLEANUP2')
IF (@JobID IS NOT NULL)
BEGIN
-- Check if the job is a multi-server job
IF (EXISTS (SELECT *
FROM msdb.dbo.sysjobservers
WHERE (job_id = @JobID) AND (server_id <> 0)))
BEGIN
-- There is, so abort the script
RAISERROR (N'Unable to import job ''ACCOUNT CLEANUP2'' since there is already a multi-server job with this name.', 16, 1)
GOTO QuitWithRollback
END
ELSE
-- Delete the [local] job
EXECUTE msdb.dbo.sp_delete_job @job_name = N'ACCOUNT CLEANUP2'
SELECT @JobID = NULL
END
BEGIN
-- Add the job
EXECUTE @ReturnCode = msdb.dbo.sp_add_job @job_id = @JobID OUTPUT , @job_name = N'ACCOUNT CLEANUP2', @owner_login_name = N'MUSERVER\Administrator', @description = N'No description available.', @category_name = N'[Uncategorized (Local)]', @enabled = 1, @notify_level_email = 0, @notify_level_page = 0, @notify_level_netsend = 0, @notify_level_eventlog = 2, @delete_level= 0
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
-- Add the job steps
EXECUTE @ReturnCode = msdb.dbo.sp_add_jobstep @job_id = @JobID, @step_id = 1, @step_name = N'CLEAN 30 DAYS', @command = N'EXECUTE FT1WEB_DELETE_EMPTY_ACCOUNTS
GO
EXECUTE FT1WEB_DELETE_UNUSED_ACCOUNTS
GO', @database_name = N'Muonline', @server = N'', @database_user_name = N'', @subsystem = N'TSQL', @cmdexec_success_code = 0, @flags = 0, @retry_attempts = 0, @retry_interval = 1, @output_file_name = N'', @on_success_step_id = 0, @on_success_action = 1, @on_fail_step_id = 0, @on_fail_action = 2
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
EXECUTE @ReturnCode = msdb.dbo.sp_update_job @job_id = @JobID, @start_step_id = 1
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
-- Add the job schedules
EXECUTE @ReturnCode = msdb.dbo.sp_add_jobschedule @job_id = @JobID, @name = N'every day at 9 AM', @enabled = 1, @freq_type = 4, @active_start_date = 20050323, @active_start_time = 210000, @freq_interval = 1, @freq_subday_type = 1, @freq_subday_interval = 0, @freq_relative_interval = 0, @freq_recurrence_factor = 0, @active_end_date = 99991231, @active_end_time = 235959
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
-- Add the Target Servers
EXECUTE @ReturnCode = msdb.dbo.sp_add_jobserver @job_id = @JobID, @server_name = N'(local)'
IF (@@ERROR <> 0 OR @ReturnCode <> 0) GOTO QuitWithRollback
END
COMMIT TRANSACTION
GOTO EndSave
QuitWithRollback:
IF (@@TRANCOUNT > 0) ROLLBACK TRANSACTION
EndSave: