Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

pedrovisk

Array com recordset

Por , em ASP Clássico

Recommended Posts

pedrovisk    1

pedrovisk
Postado

Olá!

 

Estou aprendendo a trabalhar com Array e gostaria de saber como eu poderia utiliza o código abaixo para que o mesmo exibisse o conteúdo do recordset sem precisar utilizar o formulário.

Eu não sei por onde começar, alguém poderia me dá uma ajuda?

 

Para acessar a página que utilizo atualmente, conforme o código abaixo, basta Clicar aqui

 

O recordset que eu gostaria de utilizar é 

rsDep.Fields.Item("Handle").Value
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!--#include file="Connections/SisConTI.asp" --><%Dim rsDep__MMColParamrsDep__MMColParam = "S"If (Request("MM_EmptyValue") <> "") Then   rsDep__MMColParam = Request("MM_EmptyValue")End If%><%Dim rsDepDim rsDep_cmdDim rsDep_numRowsSet rsDep_cmd = Server.CreateObject ("ADODB.Command")rsDep_cmd.ActiveConnection = MM_SisConTI_STRINGrsDep_cmd.CommandText = "SELECT * FROM dbo.Departamento WHERE Ativo = ? ORDER BY NomeDep ASC" rsDep_cmd.Prepared = truersDep_cmd.Parameters.Append rsDep_cmd.CreateParameter("param1", 200, 1, 10, rsDep__MMColParam) ' adVarCharSet rsDep = rsDep_cmd.ExecutersDep_numRows = 0%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><title>Untitled Document</title></head><body><%'A função abaixo é generica e pode ser utilizada como um arquivo includeFunction VetorMonta(Acao,Valor)'Usamos o case para manipular a ação da funçãoSelect Case Trim(Acao)'Inclui nova posicao ao vetorCase "Incluir"'Guarda na variavel Vetor o conteudo da SessionVetor = Session("GuardaVetor")'Verifica se a Variavel Vetor é um Array, caso nao for entao definimos ela um ArrayIf Not IsArray(Vetor) Then Vetor = Array() End if'Verifica se o Valor que esta sendo inserido já esta no Vetor se estiver entao nao inseri para nao haver duplicidades do vetorIf InStr(Join(Vetor), Valor) = 0 Then'Este comando ira preservar o vetor e adciona + 1 valorReDim preserve Vetor(UBound(Vetor)+1)'Este é o valor que estamos adicionando no vetorVetor(Ubound(Vetor )) = Valor'Coloca o conteudo da variavel vetor dentro da SessionSession("GuardaVetor") = VetorEnd if'Apaga uma determinada posicao do vetorCase "Excluir" 'Inicia a varivel vetor como vaziaVetor = Array() 'Criamos uma nova variavel Auxiliar e guardamos o valor da SessionAuxVetor = Session("GuardaVetor") 'Definine a Session como um Array vazioSession("GuardaVetor") = Array() 'Faz um laço em todas as posições do vetorFor i = 0 To Ubound(AuxVetor) 'Verifica se o valor passado para excluir do vetor é diferente do valor que esta dentro da variavel AuxiliarIf AuxVetor(i) <> (Valor) Then'Este comando ira preservar o vetor e adciona + 1 valorReDim preserve Vetor (UBound(Vetor)+1) 'Este é o valor que estamos adicionando no vetorVetor (Ubound(Vetor)) = AuxVetor(i) 'Coloca o conteudo da variavel vetor dentro da SessionSession("GuardaVetor") = VetorEnd IfNext'Fim do CaseEnd Select End Function Function Incluir_Vetor'Executa a função que ira criar uma posição do vetor, basta passar a acao e o valorCall VetorMonta("Incluir",Replace(Request("Valor_Vetor"),"'","")) End FunctionFunction Excluir_Vetor(Valor_Vetor)'Executa a função que ira deletar uma posição do vetor, basra passar a acao e o valorCall VetorMonta("Excluir",Valor_Vetor) End FunctionFunction VisualizaValoresVetor'Veriofica se a Session é um array, caso nao for então atribuimos a Session como um ArrayIF Not IsArray(session("GuardaVetor")) Then session("GuardaVetor") = Array() End if'Faremos um laço entre todos os vetores criadosFor x = 0 To ubound(session("GuardaVetor")) 'ira fazer um laço mostrando todos os vetores criados'Mostra os valores armazenados na Session e adiciona um link para apagar a posição do vetor caso queiraResponse.Write session("GuardaVetor")(x) & "<a href='Array2.asp?action=Excluir_Vetor& Valor_Vetor="&session("GuardaVetor")(x)&"'> (Apagar) </a>" & "<br>"Next'Verifica se a Session tem alguma posição, se tiver mostra a opção de apagar todos os vetoresIf ubound(session("GuardaVetor")) >= 0 ThenResponse.Write "<br>" &"<a href='Array2.asp?action=LimpaVetor'>Apagar Tudo</a>" & "<br>" 'Imprime o Vetor na telaEnd ifEnd FunctionFunction LimpaVetor'Limpa todas as posiçoes do vetor, apagando a Sessionsession("GuardaVetor") = EmptyEnd Function'USAMOS CASES PARA MANUPULARAS CHAMADAS DAS FUNÇÕESuseraction=request("action")select case useractionCase "Incluir_Vetor"'Chama a function que ira incluir um valor para o vetorCall Incluir_VetorCase "Excluir_Vetor"'Chama a function que ira excluir um valor para o vetorCall Excluir_Vetor(Request("Valor_Vetor"))Case "LimpaVetor"'Chama a function que apagar todas as posições do vetorCall LimpaVetorEnd Select%><table width="100%"><form name="form" method="post" action="?action=Incluir_Vetor"><tr><td><input name="Valor_Vetor" type="text" id="Valor_Vetor"> <input type="submit" name="Submit" value="Incluir no Vetor"><%=(rsDep.Fields.Item("Handle").Value)%></td></tr></form></table><%'Chama a função que vizualiza todos os vetores criadosVisualizaValoresVetor%></body></html><%rsDep.Close()Set rsDep = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

não entendi bem, mas seria...na coluna Handle você tem os dados armazenados na forma de array e quer exibi-los separadamente?

Compartilhar este post

Link para o post
Compartilhar em outros sites

pedrovisk    1

pedrovisk
Postado

Não. Na verdade, eu gostaria de colocar as colunas Handle e Departamento no array.

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

veja se é por ai o caminho:

'primeiro vamos fazer um loop dos registros e ir montando na forma de arrayif not rsDep_cmd.eof thendo while not rsDep_cmd.eof'colocamos os registros numa variavelif varArray = "" thenvarArray = rsDep_cmd("Departamento")elsevarArray = varArray&","&rsDep_cmd("Departamento")end ifrsDep_cmd.movenextloopend ifresponse.write(varArray)

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito