Ir para conteúdo

POWERED BY:

Arquivado

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

ruinas

rs.Move X

Por , em ASP Clássico

Recommended Posts

ruinas    0

ruinas
Postado

Alo galera....Blzinha???To desenvolvendo um sisteminha aqui e acho que devo estar com um erro de logica no cod abaixo....<% 'RecordSet para pegar o numero total de carros Set contarVeiculos = conexao.execute("select count(idVeiculo)as total from Veiculo") 'Numero Total de Carros numero_carros = FormatNumber(Trim(contarVeiculos("total")),0) contarVeiculos.close 'Fecha o RecordSet 'Array do valor random indice = array(7) redim indice(7) 'Zerando tudo for i = 0 to 7 indice(i) = -1 next 'Quantos carros serao pegos ? if numero_carros > 8 Then pega = 8 else pega = numero_carros end if 'Começando o Loop 'Para preencher o array de posicoes for i = 0 to (pega-1) condicao = 0 while condicao = 0 Randomize Time RNDVeiculo = int(RND * numero_carros) grava = 1 for x = 0 to pega-1 if indice(x) = RNDVeiculo then grava = 0 exit for end if next if grava = 1 then indice(i) = RNDVeiculo condicao = 1 end if wend next%><meta name="generator" content="Namo WebEditor"><BODY BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0><% Set rs_Veiculos = conexao.execute("select * from Veiculo") for i = 0 to (pega-1) rs_Veiculos.Move indice(i) 'response.write rs_Veiculos("idVeiculo")%><table width="168" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="89"><TABLE WIDTH=89 BORDER=0 CELLPADDING=0 CELLSPACING=0> <TR> <TD COLSPAN=3> <IMG SRC="../images/destaque_01.jpg" WIDTH=89 HEIGHT=4 ALT=""></TD> </TR> <TR> <TD ROWSPAN=2> <IMG SRC="../images/destaque_02.jpg" WIDTH=3 HEIGHT=67 ALT=""></TD> <TD>Foto</TD> <TD> <IMG SRC="../images/destaque_04.jpg" WIDTH=8 HEIGHT=58 ALT=""></TD> </TR> <TR> <TD COLSPAN=2> <IMG SRC="../images/destaque_05.jpg" WIDTH=86 HEIGHT=9 ALT=""></TD> </TR> </TABLE></td> <td width="395"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Blazer 00/00</font></td> </tr></table><% next rs_Veiculos.close set rs_Veiculos = nothing%>Problema:Tipo de erro:ADODB.Field (0x80020009)BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.Explicando basicamente o que eu quero fazer...Quero sortear alguns registros do banco... no maximo 8.e inserir os indices (posições) dos registros em um array, para depois fazer um outro select e usar o MOVE para mover o registro... Acho que o erro estar no MOVE X... ele ta caindo fora do intervalo do record.Alguem pode dar uma força ai ????Brigadão

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ratu    0

Ratu
Postado

Cara, você quer pegar um registro randomico?se for isso e se você estiver usando SQL(microsoft) utilize a clausula order by NEWID(), e ele traz um registro randomico automatico!se naum for SQL, faça uma pesquisa no forum tb tem os seus correspondentes para ACCESS e MySQL!falow

Compartilhar este post

Link para o post
Compartilhar em outros sites

explore    3

explore
Postado

Problema:Tipo de erro:ADODB.Field (0x80020009)BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.Cara o erro é claro, você precisa verificar o indice do banco antes de visualizar alguma coisa dele.La em cima você coloca isso aquiSet rs_Veiculos = conexao.execute("select * from Veiculo")if not rs_Veiculos.eof thenfor i = 0 to (pega-1)rs_Veiculos.Move indice(i)'response.write rs_Veiculos("idVeiculo")........

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