SUBSERVER VIP ALIMENTANDO CONNECTMEMBER AUTOMATICAMENTE

SUBSERVER VIP ALIMENTANDO CONNECTMEMBER AUTOMATICAMENTE
« : 06 de Março de 2008, 21:16 »

--------------------------------------------------------------------------------
Fla galera muciados, depois de muita busca na net e nenhum resultado. Resolvi fazer o seguinte Script para mu.

Pra que serve? O que ele faz?

Ele serve pra quem tem subserver e necessita colocar manualmente a conta do usuario no arquivo ConnectMember.txt, que fica na pasta data.

Esse script insere automaticamente o nome da conta dentro do aqruivo txt, precisando unica e exclusicamente mudar a conta de nao vip pra vip, e quando ele para de ser vip t retira automatincamente o nome da conta do arquivo

O que fazer com o scritp??

Crie uma JOB dentro do sqlserver e configure com o tempo de atualização que vc preferir.

eis o scrip


Reponder
--exclui o arquivo para nao haver duplicação.
EXEC MASTER..XP_CMDSHELL 'del D:\MuserverBeta\Subserver\data\ConnectMember.txt'


--definindo o banco MuOnline
-- use MuOnline;
--definindo variaveis
declare @arqTexto varchar(8000),
@memb_guid varchar(50),
@memb___id varchar(50),
@caminho varchar(255),
@vip varchar(20),
@retEcho INT --variavel para verificar se o comando foi executado com exito ou ocorreu alguma falha

--definindo o caminho e arquivo que será escrito, OBS: este caminho deve ser no servidor onde estiver instalado o SQL Server
set @caminho = 'D:\MuserverBeta\Subserver\data\ConnectMember.txt'
--setando o menor id para verificação do loop
select @memb_guid = min(memb_guid) from MEMB_INFO
--while da tabela authors
while @memb_guid is not null
begin
--buscando os valores dos campos e adicionando nas variaveis
select @memb_guid = memb_guid, @memb___id = memb___id, @vip = vip from MEMB_INFO
where memb_guid = @memb_guid
--setando o menor id para verificação do loop
select @memb_guid = min(memb_guid) from MEMB_INFO
where memb_guid > @memb_guid
IF @vip=(1) BEGIN
--definindo a linha que será escrita no arquivo txt
SET @arqTexto ='ECHO;' + @memb___id + ' >> ' + @caminho

--escreve no arquivo txt, se ele naum existir será criado, se existir será adicionado (incrementado) a partir da última linha
exec @retEcho = MASTER..XP_CMDSHELL @arqTexto
END
IF (@retEcho <> 0)
BEGIN
--caso ocorrer algum erro podemos retornar uma mensagem
select 'ocorreu erro, verifique se o diretório existe' as Falha, @retEcho as retEcho
--parar o loop em caso de erro
break
END
end
-- Créditos magnetu MUDIRECT mu.directcorp.com.br