While dentro outro While

[The Jhunior 0]

Opa, estou tentando colocar um While dentro de outro While

 

 

Pedidos = "SELECT * FROM Pedidos Order by ID Desc"

while not Pedidos.Eof

  CodSecao = Pedidos("CodSecao")

  ConsPedido = "SELECT * FROM Carrinho Where CodSecao=" & CodSecao

      while not ConsPedido.Eof



      ConsPedido.MoveNext

      wend

Pedidos.MoveNext

wend 

 

Ele me retorna o erro

 

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

 

Objeto necessário: 'SELECT * FROM Carrinho'

 

/Historico.asp, line 132

[Felipe Tonolli 0]

mas você ta criando outro recordset? provavelmente não ..

 

você usou ConsPedido tanto pra setar o objeto quanto pra receber a string sql?

 

Se sim, faltou abrir:

 

ConsPedido.Open ConsPedido, string_conexao

[andersonleme 1]

'recordset Pedidos
' primeiro slect
while not Pedidos.Eof 'while do Pedidos "o externo"
'conteudo do Recordset Pedidos
'recordset ConsPedido
segundo select

while not ConsPedido.Eof  'while do Conspedido "o interno"
'conteudo do Recordset ConsPedido

ConsPedido.MoveNext 'while do Conspedido "o interno"
wend        

Pedidos.MoveNext 'while do Pedidos "o externo"
wend

 

essa é a estrutura.