Fórum Contato
  
   O portal do desenvolvedor ASP Segunda-feira - 14 de Junho de 2021  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
 Fóruns   Meu cadastro   Meu perfil   Ranking de usuários 

 FórumProgramaçãoErros Responder mensagem 

 Array Dinâmico Atualizado em 05/01/2010 ás 15:22:00

Postado em 23/12/2009 ás 10:25:00
Galera já pesquisei na web mas não consegui o que queria, preciso de ajuda no seguinte,

na tabela
[img]http://img41.imageshack.us/img41/1920/tabelaa.gif[/img]

onde gostaria de criar um vetor agrupando somente valores "PAR" ou seja

Jul/09 = 54
Ago/09 = 53
Set/09 = 53
Out/09 = 51
Nov/09 = 46
Dez/09 = 33

Tentei o seguinte :
[code]set rs = conn2.execute(sql)
p=rs.getrows()
conn2.close

x = ubound(p,2)
dim valor(), provedor()
for i = 0 to x
if p(2,i) = "PAR" then
redim preserve valor(i)
redim preserve provedor(i)
valor(i) = p(3,i)
provedor(i) = p(2,i)
end if
next[/code]

o resultado mostrado
[img]http://img20.imageshack.us/img20/2804/resultadoe.gif[/img]

Ele está inserindo valores nulos quando o provedor é diferente de "PAR", como faço pra resolver isso, pegar apenas os valores de cada provedor ?

Postado em 05/01/2010 ás 15:22:00

<%


'Classe responsável em criar objetos do tipo cliente
'e seus respectivos métodos get e set
Class Cliente
 'Declara as propriedades da classe Cliente
 private nome
 private cpf
 private rg
 private telefone
 private dataNascimento
 
 'NOME 
 Public sub setNome(vNome)
  nome = vNome
 End sub
 
 Public Property  get getNome()
  getNome = nome
 End property
 
 'CPF
 Public sub setCpf(vCpf)
  cpf = vCpf
 End sub
 
 Public Property  get getCpf()
  getCpf = cpf
 End property
 
 'RG 
 Public sub setRg(vRg)
  rg = vRg
 End sub
 
 Public Property get getRg()
  getRg = rg
 End property
 
 'TELEFONE
 Public sub setTelefone(vTelefone)
  telefone = vTelefone
 End sub
 
 Public Property get getTelefone()
  getTelefone = telefone
 End property
 
 'DATA NASCIMENTO
 Public sub setDataNascimento(vDataNascimento)
  dataNascimento = vDataNascimento
 End sub
 
 Public Property get getDataNascimento()
  getDataNascimento = dataNascimento
 End property
 
End Class


'Cria um array
Dim arrayObjCliente(3)


'Cria uma instância para cada índice desse array
Set arrayObjCliente(0) = new Cliente
Set arrayObjCliente(1) = new Cliente
Set arrayObjCliente(2) = new Cliente


'O primeiro indice será o objeto do cliente Marcos com suas propriedades(nome,reg cpf, telefone e data de nascimento)
arrayObjCliente(0).setNome("Marcos")
arrayObjCliente(0).setCpf(123456786)
arrayObjCliente(0).setRg(245687)
arrayObjCliente(0).setTelefone(33456778)
arrayobjCliente(0).setDataNascimento("14/12/1985")


'O segundo indice será o objeto da cliente Fernanda com suas propriedades(nome,reg cpf, telefone e data de nascimento)
arrayObjCliente(1).setNome("Fernanda")
arrayObjCliente(1).setCpf(6546549879)
arrayObjCliente(1).setRg(5646458)
arrayObjCliente(1).setTelefone(23144656)
arrayobjCliente(1).setDataNascimento("25/01/1979")


'O terceiro indice será o objeto do cliente Paulo com suas propriedades(nome,reg cpf, telefone e data de nascimento)
arrayObjCliente(2).setNome("Paulo")
arrayObjCliente(2).setCpf(8979875465)
arrayObjCliente(2).setRg(131654)
arrayObjCliente(2).setTelefone(5564897)
arrayobjCliente(2).setDataNascimento("12/05/1982")


Dim i


'Laço de repetição que imprime na tela do usuário
'os valores dos objetos de cada índice utilizando os métodos get.
for i = 0 to (Ubound(arrayObjCliente)-1)
 Response.Write("Nome:"&arrayObjCliente(i).getNome&"<br/>")
 Response.Write("RG:"&arrayObjCliente(i).getRg&"<br/>")
 Response.Write("CPF:"&arrayObjCliente(i).getCpf&"<br/>")
 Response.Write("Telefone:"&arrayObjCliente(i).getTelefone&"<br/>")
 Response.Write("Data de Nascimento:"&arrayObjCliente(i).getDataNascimento&"<br/><hr /><br />")
 Set arrayObjCliente(i) = Nothing 'Destroí o objeto criado em memória
Next


%>




otavio favero



Topo


Exibindo página 1 de 1 encontradas
SuperASP do Brasil Ltda - contato@superasp.com.br

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados