Insert Com Array

ri_nepo · Agosto 18, 2004

estou usando array pegando dados de um formulario , ele gera um loop na página até da time out

<%

vdata = split(request.form("data"),",")

%>

<%

for a = 0 to ubound(vdata)

%>

<%

sql = "insert into apostas (data) values ('"& vdata(a) &"')"

conexao.execute(sql)

%>

<% next %>

mandei escreve na tela e deu este erro

insert into apostas (data) values ('14/08/2004 ')insert into apostas (data) values (' 14/08/2004 ')insert into apostas (data) values (' 14/08/2004 ')insert into apostas (data) values (' 14/08/2004 ')insert into apostas (data) values (' 15/08/2004 ')insert into apostas (data) values (' 15/08/2004 ')insert into apostas (data) values (' 15/08/2004 ')insert into apostas (data) values (' 15/08/2004 ')insert into apostas (data) values (' 15/08/2004 ')insert into apostas (data) values (' 15/08/2004 ')insert into apostas (data) values (' 15/08/2004 ')insert into apostas (data) values (' 15/08/2004 ')

alguém pode dar uma força ?

cyberalexxx · Agosto 18, 2004

Ele deve estar dando time out por ter entrado em loop infinito.

cyberalexxx · Agosto 18, 2004

Estranho!!!

Fiz esse teste aqui e funcionou:

<%
data = "15/10/2005,16/11/2004,13/08/2004,31/08/2004"
vdata = split(data,",")
for a = 0 to ubound(vdata)
    sql = "insert into apostas (data) values ('"& vdata(a) &"')"
    response.write (sql) & "<br>"
next
%>

Voce tem ideia do tamanho do looping??

da uma olhada no valor de ubound(vdata)

ursolouco · Agosto 18, 2004

Não sei quanto a vocês!!!

Mas, eu conto da seguinte forma:

 For I = 0 To UBound(Data)-1

Pois sempre, o vetor, se incia a partir de zero, e confunde muito o programador dando subscrito fora do intervalo.

Abraços!!!

cyberalexxx · Agosto 18, 2004

Não sei quanto a vocês!!!
Mas, eu conto da seguinte forma:
 For I = 0 To UBound(Data)-1
Pois sempre, o vetor, se incia a partir de zero, e confunde muito o programador dando subscrito fora do intervalo. Abraços!!!

A prinicipio concordei com o raciocionio do ursolouco Mais fazendo um teste pratico percebi que usando a logica dele no exemplo que dou abaixo, o ultimo valor da array não é pego.

<%
data = "15/10/2005,16/11/2004,13/08/2004,31/08/2004"
vdata = split(data,",")
for a = 0 to ubound(vdata) - 1
   sql = "insert into apostas (data) values ('"& vdata(a) &"')"
   response.write (sql) & "<br>"
next
%>

Editado Agosto 18, 2004 por cyberalexxx

cyberalexxx · Agosto 18, 2004

Só pra deixar esclarecido o questionamento levanto pelo ursolouco, o contador não pode ser até Ubound(data) - 1.

Vejamos o conceito da fução UBound:

UBound() = Devolve o maior valor da dimensão de um array

ou seja se a array data tem 20 elementos o valor de UBound(data) sera 19 que é o numero do ultimo elemento e não 20 que é o total de elementos.

ursolouco · Agosto 18, 2004

Só pra deixar esclarecido o questionamento levanto pelo ursolouco, o contador não pode ser até Ubound(data) - 1.
Vejamos o conceito da fução UBound:
UBound() = Devolve o maior valor da dimensão de um array
ou seja se a array data tem 20 elementos o valor de UBound(data) sera 19 que é o numero do ultimo elemento e não 20 que é o total de elementos.

Alexx!!

Veja:

<%

	vetor = Array()

	For I = O to 20

	Response.Write("</p>")
	Redim Preserve vetor(i)
  vetor(i) = CInt(i)
  Response.Write(vetor(i) & "<br>")
	Next
	Response.Write("</p>")

	Response.Write(UBound(vetor))
%>

Lhe pergunto, quantos itens há neste vetor ? 19, 20, 21 ?

E porque ?

cyberalexxx · Agosto 18, 2004

21 itens

Por que?? pois de 0 a 20 são 21 elementos obviamente.

Só não entendi o que você quiz demonstrar com isso, acho que um não esta entendendo o outro.

ursolouco · Agosto 18, 2004

Só não entendi o que você quiz demonstrar com isso, acho que um não esta entendendo o outro.

Olha o espirito da coisa:

Response.Write(UBound(vetor))

' OutPut: 20

Viu só como se confunde este lance de vetor !

Toda vez, particularmente EU faço isso, não é uma regra, que retorno informações de um banco de dados e quebro informações com GetRows ou Split (enfim, transforme em vetor!!) conto sempre um registro a menos, pois se puxando o maior iten com UBound do vetor, deixamos de contar o item (0) ou o Ultimo item (*) que no caso não sabemos.

Foi isso que tentei mostrar.

Abraços!!!

[urso]

cyberalexxx · Agosto 18, 2004

Concordo que realmente confunde.

O que eu quiz foi até mesmo tentar deixar menos confuso, para outros usuários que as vezes tenham menos experiencias com variaveis vetoriais.

Continuo achando que a contrução abaixo ignora o ultimo valor da array portanto não é adaptavel ao caso proposto neste Post.

For I = 0 To UBound(Data)-1

Mas para finalizar, a solução mais segura seria:

for I = LBound(vdata) to UBound(vdata)

Abraços

T+

ursolouco · Agosto 18, 2004

Ok!! Fechado!!

For I = LBound(Array) to UBound(Array)

E o Dark paga as Brejas!!!

Abraços!!!

cyberalexxx · Agosto 18, 2004

Valeu!!!

Vo "pindura" uma na conta do Dark hoje!!!

e a segunda vou tomar em homenagem a galera do Forum!!!

Só pra constar:

A galera que programa em progress faria assim:

é mais facil:

<%
data = "15/10/2005,16/11/2004,13/08/2004,31/08/2004"
vdata = split(data,",")
For each valor in Vdata
    response.write (valor) & "<br>"
next
%>

Até +

Editado Agosto 18, 2004 por cyberalexxx

ri_nepo · Agosto 18, 2004

Pessoal , usando o ultimo exemplo que o amigo cyberalexxx passou , com um dado funciona , o problema é que eu estou fazendo tipo um bolão

veja na url

http://www.ondesta.locaweb.com.br/pitacos_internauta.asp

o codigo segue abaixo

<tr>

<div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="pontuacao.asp"><font color="#000000">Clique

aqui para visualizar sua pontuação</font></a></font></div>

</td>

</tr>

<%strsql = "select * from jogos"

set rs = conexao.execute(strsql)

%>

<tr>

<div align="center"><font size="2" face="Verdana, Arial, sans-serif"><b>Próximos

Jogos </b></font></div>

</td>

</tr>

<tr>

</td>

<div align="center"><font size="2" face="Verdana, Arial, sans-serif"><b>Horário</b></font></div>

</td>

<div align="center"><font size="2" face="Verdana, Arial, sans-serif"><b>Local</b></font></div>

</td>

</tr>

<%while not rs.eof%>

<tr>

</font></div>

</td>

</td>

</font></div>

</td>

</td>

</td>

</td>

</font></div>

</td>

</font></div>

</td>

</tr>

<%

rs.movenext

wend

%>

</table>

<tr>

</tr>

<tr>

</div>

</td>

</font></div>

</td>

</tr>

<tr>

</td>

</font></div>

</td>

</tr>

<tr>

<div align="left"><font size="2" face="Verdana, Arial, sans-serif"> Cidade:</font></div>

</td>

</font></div>

</td>

</tr>

<tr>

<div align="left"><font size="2" face="Verdana, Arial, sans-serif"> Estado:</font></div>

</td>

</font></div>

</td>

</tr>

<tr>

<div align="left"><font size="2" face="Verdana, Arial, sans-serif"> Seu

time:</font></div>

</td>

</font></div>

</td>

</tr>

</font></td>

</tr>

</table>

Ai eu chamado a página apostas.asp

http://www.ondesta.locaweb.com.br/apostas.asp

código abaixo

<%

data = request.form("data")

vdata = split(data,",")

For each valor in vdata

%>

<%

time1 = request.form("time1")

vtime1 = split(time1,",")

For each valor1 in vtime1

%>

<%

time2 = request.form("time2")

vtime2 = split(time2,",")

For each valor2 in vtime2

%>

<%

resultado1 = request.form("resultado1")

vresultado1 = split(resultado1,",")

For each valor3 in vresultado1

%>

<%

resultado2 = request.form("resultado2")

vresultado2 = split(resultado2,",")

For each valor4 in vresultado2

%>

<%

sql = "insert into apostas (data,time1,time2,resultado1,resultado2,nome,email,cidade,estado,time_coracao) values ('"& valor &"','"& valor1 &"','"& valor2 &"','"& valor3 &"','"& valor4 &"','"& request.form("nome") &"','"& request.form("email") &"','"& request.form("cidade") &"','"& request.form("estado") &"','"& request.form("time_coracao") &"')"

conexao.execute(sql)

%>

<% next %>

<%

conexao.close

set conexao = nothing

%>

ai ele gera um loop até dar time out

alguém tem ideia do que poderia ser ou alguma sugestão ?

cyberalexxx · Agosto 18, 2004

Da uma olhada se isso da certo:

apostas.asp

<%
data = request.form("data")
vdata = split(data,",")

time1 = request.form("time1")
vtime1 = split(time1,",")

time2 = request.form("time2")
vtime2 = split(time2,",")

resultado1 = request.form("resultado1")
vresultado1 = split(resultado1,",")

resultado2 = request.form("resultado2")
vresultado2 = split(resultado2,",")

for x = 0 to UBound(vdata)
    sql = "insert into apostas (data,time1,time2,resultado1,resultado2,nome,email,cidade,estado,time_coracao) values ('"& vdata(x) &"','"& vtime1(X) &"','"& vtime2(X) &"','"& vresultado1(x) &"','"& vresultado2(x) &"','"& request.form("nome") &"','"& request.form("email") &"','"& request.form("cidade") &"','"& request.form("estado") &"','"& request.form("time_coracao") &"')"
    conexao.execute(sql)
next

conexao.close
set conexao = nothing
%>

ri_nepo · Agosto 18, 2004

deu certo

muito obrigado

ri_nepo · Agosto 18, 2004

cyberalexxx

você tem alguma dica , de como eu posso fazer para a partir do momento que eu atualizar os resultados dos jogos , automaticamente eu somar a pontuação do usuario .

mais uma vez obrigado

cyberalexxx · Agosto 18, 2004

É meu caro, ai a coisa fica mais complexa e sem conhecer a sua estrutura fica mais dificil ainda.

Alguns toques:

- Criação de uma tabela de usuarios para armazenar dos dados do apostador e sua pontuação

- Identificação do concurso na tabela de apostas

- Criar uma pagina de administração para cadastro dos resultados e solicitação de processamento dos pontos dos apostadores.

Cara, como eu disse sem conhecer o sistema é complicado.

Mais fica a vontade pra voltar a cada duvida que for surgindo

Agosto 25, 2004

Ae amigão

esta quase funcionando o meu bolão

o unico problema é o seguinte

ele compara os valores da tabela jogos com os resultados

se for igual adiciona mais 1

o unico problema é que se já existe algum valor e o resultado do jogo está errado , desde ele manter a pontuação , ele volta para 0

veja o código abaixo

<%vemail=session("email")%>

<%

vid = request.querystring("id")

sql1 = "select * from apostas where id="&vid

set rs = conexao.execute(sql1)

vresultado1 = rs("resultado1")

vresultado2 = rs("resultado2")

sql2 = "select * from resultados"

set rs1 = conexao.execute(sql2)

while not rs1.eof

comando="select max(pontuacao) as ultimo_numero from apostadores where email ='"& vemail &"'"

set SHOBA = conexao.execute(comando)

r_resultado1 = rs1("resultado1")

r_resultado2 = rs1("resultado2")

rs1.movenext

wend

if cint(vresultado1) = cint(r_resultado1) and cint(vresultado2) = cint(r_resultado2) then

apostas = cint(apostas) + 1

ultimo = SHOBA("ultimo_numero") + apostas

end if

%>

<%

sql_update = "update apostadores set pontuacao = '"& ultimo &"' where email='"&vemail &"'"

conexao.execute(sql_update)

%>

cyberalexxx · Agosto 25, 2004

Caso já exista uma pontuação e ele acerte o resultado, o sistema esta somando ou esta colocando apenas 1 no update???

Agosto 25, 2004

eu acabei de conseguir , eu so precisei fazer isso

if cint(vresultado1) = cint(r_resultado1) and cint(vresultado2) = cint(r_resultado2) then

apostas = cint(apostas) + 1

end if

ultimo = SHOBA("ultimo_numero") + apostas

tinha que colocar a variavel ultimo para fora do if.

no exemplo que eu utilizei acima eu atualizo resultado por resultado , você tem alguma dica de como eu atualizar a pontuação de uma vez daquele determinado usuario ?

abraço

Ricardo

cyberalexxx · Agosto 25, 2004

Da pra fazer automatico sim, me explica como estão as suas tabelas que eu te passo uma lógica.

Agosto 27, 2004

possuo 3 tabelas

tabelas apostas , resultados e apostadores

na tabelas apostas eu armazeno

id

time1

time2

resultado1

resultado2

data

email

id_jogador

na tabela resultados eu armazeno

id

time1

resultado1

time2

resultado2

data

horario

local

na tabela apostadores eu armazeno

id

nome

email

cidade

pontuacao

senha

Agosto 27, 2004

o que eu faço atualmente é o seguinte

primeiro eu faça uma busca em todos os apostadores através do email

depois atraves do id_jogador eu busco as apostas feitas na tabela apostas

depois eu faço a comparação entre a tabela apostas e a resultados

depois eu atualizo jogo por jogo na tabelas apostadores

cyberalexxx · Agosto 27, 2004

Cara não to tendo tempo pra pensar muito agora, assim que der tempo monto uma lógica

Setembro 8, 2004

Eai mano , você conseguiu algum tempinho para dar uma dica sobre este assunto ?

Entrar

Insert Com Array

Pergunta

Link para o comentário

Compartilhar em outros sites

24 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest Guest

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest Guest

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest essa é minha tabela

Link para o comentário

Compartilhar em outros sites

Guest bolão

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest dica

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns