Ir para conteúdo
Fórum Script Brasil

Paulo Nunes

Membros
  • Total de itens

    4
  • Registro em

  • Última visita

Tudo que Paulo Nunes postou

  1. Paulo Nunes

    FOR EACH

    Meu caramara muito obrigado sem você eu não teria consiguido. É verdade esse código ele somente salva um array por vez procurei na net alguma função desse tipo não achei nada a solução foi criar a minha propria. o Código ficou redondo segue ele concluido caso alguém tenha esse mesmo problema. <!--#include file="conexao.asp" --> <% Session.LCID = 1046 Set rst = Server.CreateObject("ADODB.Recordset") RSS = "SELECT * FROM lista" rst.open RSS, conexao, 3, 3 Dim pre() Dim times() i = 0 For Each alunos In Request("nome") Redim Preserve nomes(i) nomes(i) = alunos i = i + 1 Next i = 0 For Each lista In Request("presenca") Redim Preserve listas(i) listas(i) = lista i = i + 1 Next i = 0 For Each professor In Request("professor") Redim Preserve professores(i) professores(i) = professor i = i + 1 Next i = 0 For Each disciplina In Request("curso") Redim Preserve cursos(i) cursos(i) = disciplina i = i + 1 Next i = 0 For Each calendario In Request("dia") Redim Preserve dias(i) dias(i) = calendario i = i + 1 Next i = 0 For Each calendario_mes In Request("mes") Redim Preserve meses(i) meses(i) = calendario_mes i = i + 1 Next i = 0 For Each calendario_ano In Request("ano") Redim Preserve anos(i) anos(i) = calendario_ano i = i + 1 Next i = 0 For Each data_cadastro In Request("data") Redim Preserve datas(i) datas(i) = data_cadastro i = i + 1 Next i = 0 For Each hora_cadastro In Request("hora") Redim Preserve horas(i) horas(i) = hora_cadastro i = i + 1 Next For i = 0 To UBound(nomes) rst.AddNew rst("nome") = nomes(i) rst("presenca") = listas(i) rst("professor") = professores(i) rst("curso") = cursos(i) rst("dia") = dias(i) rst("mes") = meses(i) rst("ano") = anos(i) rst("data") = datas(i) rst("hora") = horas(i) rst.Update Next rst.movenext cont =1 cont = cont + 1 rst.close set rst = nothing Conexao.close Set conexao = nothing Response.write"0k" %> Um abraço até a proxima.
  2. Paulo Nunes

    FOR EACH

    Seria isso mesmo como eu poderia receber mais de dois valores em request dentro do For Each Exemplo Dim times(), I I = 0 For Each txtnome In Request("nome") Redim Preserve times(I) times(I) = txtnome I = I + 1 rst.AddNew rst("nome") = txtnome rst("presenca") = txtpresenca Não consegui receber os dois no mesmo array.
  3. Paulo Nunes

    FOR EACH

    <!--#include file="conexao.asp" --> <% Session.LCID = 1046 txtdia = request("dia") txtmes = request("mes") txtano= request("ano") txtdata = date() txthora = time() Set rst = Server.CreateObject("ADODB.Recordset") RSS = "SELECT * FROM lista" rst.open RSS, conexao, 3, 3 Dim times(), I I = 0 For Each txtnome In Request("nome") Redim Preserve times(I) times(I) = txtnome I = I + 1 rst.AddNew rst("nome") = txtnome Next Dim times2(), O O = 0 For Each txtpresenca In Request("presenca") Redim Preserve times2(O) times(O) = txtpresenca O = O + 1 rst("presenca") = txtpresenca Next rst.Update rst.movenext cont =1 cont = cont + 1 rst.close set rst = nothing Conexao.close Set conexao = nothing Response.write"0k" Então adcionei o movenext mais mesmo assim os nomes ele salva todos em sequencia só que a presença ele só salva uma vez.
  4. Paulo Nunes

    FOR EACH

    Olá Galera to desenvolvendo uma lista de chamada de alunos para uma escola estou tento um probleminha faço selecr no banco pego todos os alunos cadastrados na tabela de alunos crio um formulário com campos presenca, professor, dia, mes, hora, data, hora fiz a seguinte função <!--#include file="conexao.asp" --> <% Session.LCID = 1046 txtdia = request("dia") txtmes = request("mes") txtano= request("ano") txtdata = date() txthora = time() Set rst = Server.CreateObject("ADODB.Recordset") RSS = "SELECT * FROM lista" rst.open RSS, conexao, 3, 3 Dim times(), I I = 0 For Each txtnome In Request("nome") Redim Preserve times(I) times(I) = txtnome I = I + 1 rst.AddNew rst("nome") = txtnome Next Dim times2(), O O = 0 For Each txtpresenca In Request("presenca") Redim Preserve times2(O) times(O) = txtpresenca O = O + 1 rst("presenca") = txtpresenca Next rst.Update rst.close set rst = nothing Conexao.close Set conexao = nothing Response.write"0k" %> Esta funcionando só que no campo nome eu salvo todos alunos em ordem mas no campo presenca, professor que nem esta ai no código ele só salva o utilmo item ou seja aparece assim Nome Presenca Paulo Nunes Pedro Santana Wilham Silva Gomes P Alguém poderia me dar um help ai.
×
×
  • Criar Novo...