trabalhando com split

[Renata Pedrosa 0]

Pessoal

 

Eu preciso fazer com que um usuário possa pertencer a varias sessoes do site.

 

Tradicionalmente eu teria tabela de cadastro do cliente um campo na informando o codigo da sessão essa tabela estaria relacionada com a tabela sessao.

 

Mais minha necessidade seria que o cliente porssa pertencer a varias sessões, dai ao inves de gravar o id da sessão em um campo int eu penso em gravar em um campo texto com os numeros separados por virgula. Andei pesquisando e vi que isso faz com split.

 

Alguem tem alguma dica de como fazer, principalmente na hora que eu for fazer um select para retornar os registros que no campo sessao tenha por exemplo o numero 1 ?

[xanburzum 169]

O Split é usado quando precisamos transformar uma string em um array de strings através de um delimitador em comum. no seu caso vocte terá que ter uma campo na tabela , onde poderá gravar assim, por exemplo:

 

1,2,5,9,8

sendo que

1 area de vendas, 2 area de finanças , ou seja, as varias sessões

[Clauido José 3]

Bom você pode criar um for vou mostrar um exemplo que tenho trabalhando com array mesma coisa separando com ,

 

			sNoOs=Request("sNoOs")
			vItensMarcado = split(sNoOs,",")
			'Response.Write("teste"&sNoOs)
			'response.End()
			if not IsArray(vItensMarcado) then
				vItensMarcado = array(vItensMarcado)
			end if
			for i = 0 to ubound(vItensMarcado)
				if trim(vItensMarcado(i)) <> "" then
					strSql = "Select * from tabDTH where DatCompromisso = '" & (Data) & "' "
					strSql = strSql & " and NoOs = " &  vItensMarcado(i) 
					if rsRota.state=1 then rsRota.Close
					rsRota.Open strSql,Conexao,1,1
					if rsRota.RecordCount>0 then
						if sidEmpresa = "" then 
							sidEmpresa = 0					  
							sATribuido = "RE"
						else
							sATribuido = "RE"	
						end if
						if sidTecnico = "" then 
							sidTecnico = 0 
							sATribuido = "RT"
						else
							sATribuido = "RT"
						end if
						if sidEmpresa <> 0 and sidTecnico <> 0 then 
							sATribuido = "RA"
						end if				
						strSql = "Update tabDth Set "
						strSql = StrSql & "Atribuido='"&sAtribuido&"',"
						strSql = StrSql & "idEmpresa=" & cint(sidEmpresa) & ","
						strsql = strSql & "idTecnico=" & cint(sidTecnico) & ","
						strSql = strSql & "idUsuario=" & session("idUsuario")
						strSql = strSql & " where DatCompromisso = '" & (Data) & "' "
						strSql = strSql & " and NoOs = " &  vItensMarcado(i)
						Conexao.Execute(StrSql)
					end if
				end if		
			next

Pegue o exemplo ve se ajuda

[xanburzum 169]

você precisa criar um campo na tabela que irá receber os valores contendo as virgulas e depois tratar, como menciosando acima...

[Clauido José 3]

Isso mesmo esqueci desse detalhe no meu caso o NoOs e campo da tabela que recebe os valores do conteudo da virgula