Como Coloco Um For No Insert

webdotx · Maio 16, 2004

ai galera tem como vocês me ajudarem eu tenho um formulario de emprestimo e cada text recebe como name o numero da parcela desejada ou seja

<body>
<div align="center"><span class="data"><strong><font size="+1">SISTEMA DE LAN&Ccedil;AMENTOS</font></strong></span> 
</div>
<center>
<form method="post" name="form1">
    <div align="center" class="lanca"><br>
      <br>
      Quantidade de Parcelas 
      <select name="numero" size="1" class="lanca">
        <option value="2">À vista</option>
        <option value="3">Em até 2x</option>
        <option value="4">Em até 3x</option>
        <option value="5">Em até 4x</option>
        <option value="6">Em até 5x</option>
        <option value="7">Em até 6x</option>
      </select>
      <br>
      Data de Inicio 
      <input type="text" name="dt" value="<%=Day(02)%>/<%=Month(now)%>/<%=Year(now)%>" class="lanca">
      <br>
      Cod. Movimento 
      <input type="text" name="movimento" value="0" class="lanca">
      <br>
      Valor 
      <input type="text" name="capital" value="0" class="lanca">
    </div>
    <div align="center"><span class="lanca"> 
      <input name="enviar" type="submit" class="bts" value="Gerar Lista">
      </span> </div>
  </form>
</center>
<%
valor = request.Form("capital")
movimento = request.Form("movimento")
vezes = request.Form("numero")
For i = 2 to vezes
%>
<%
qtdParcela = i
dtInicial = request.Form("dt")


'// Verifico qual o mês (posso simplesmente fazer um loop de 1 até 12) 
For x = 0 To (qtdParcela - 1) 
   if x = 0 Then 
'      Response.write "entrada: "& dtInicial &"<br>" 
   else 

      '// Monto uma data referente ao mês e ano desejados (01/01/2004 / 01/02/2004 / 01/03/2004, etc...) 
      dtParcela = DateAdd("m",x,dtInicial) 
      dtVencimento = CDate("02/"& Month(dtParcela) &"/"& Year(dtParcela)) 

      '// Verifico que dia da semana esta data é ( WeekDay("01/01/2004) ) 
      diasemana = WeekDay(dtVencimento) 

'// Se a data for domingo? ( if dia da semana + 2 ) 
      if diasemana = 7 then dtVencimento = DateAdd("d",2,dtVencimento) 
'// Se a data for sábado? (if dia da semana + 1 ) 
      if diasemana = 1 then dtVencimento = DateAdd("d",1,dtVencimento) 

      '// ALTERAÇÃO PARA O SEGUNDO DIA ÚTIL DO MÊS 
      '=============================================================== 
      if diasemana = 7 then dtVencimento = DateAdd("d",1,dtVencimento)   'SÁBADO 
      if diasemana = 1 then dtVencimento = DateAdd("d", 1,dtVencimento)   'DOMINGO 
      if diasemana = 2 then dtVencimento = DateAdd("d",1,dtVencimento)   'SEGUNDA 

      'response.write "parcelas: "& (x)
      'response.write "&nbsp;&nbsp; data base: "& dtParcela &"<br>" 
       
      '// Qual o resultado desta verificação, segunda feira 
      dia = FormatDateTime(dtVencimento,2)       
      'response.write "<br>" 

      '// Senão for sábado nem domingo a data já é um dia útil.<br> 
      '// ou seja a data não entrará nos ifs 

      '// Para ser o segundo dia útil no caso, basta fazer algumas alterações 
      '=============================================================== 
      '. se for sábado acrescenta + 3 
      '. se for domingo acrescenta + 2 
      '. se for segunda acrescenta + 1 

   end if 

Next 
%>
<center>
<form action="exe.asp" method="post">
  <table width="42%" border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#FFFFFF">
    <thead>
      <tr> 
        <th width="13%" class="lanca">Parcelas</th>
        <th width="44%" class="lanca">Movimento</th>
        <th width="20%" class="lanca">valor</th>
        <th width="23%" class="lanca">data</th>
      </tr>
    </thead>
    <tr> 
      <td align="center" bordercolor="#FFFFFF" class="lanca"><%=i - 1%></td>
      <td align="center" bordercolor="#FFFFFF" class="lanca"> 
        <input type='text' name="movimento" size='15' value="<%=movimento%>" class="lanca">
      </td>
      <td align="center" bordercolor="#FFFFFF" class="lanca"> 
        <input type='text' name='valor<%=i%>' size='10' value="<%=valor%>" class="lanca">
      </td>
      <td align="center" bordercolor="#FFFFFF" class="lanca"> 
        <input type='text' name='data<%=i%>' size="10" value="<%=dtvencimento%>" class="lanca">
      </td>
    </tr>
  </table>
  
  <%
next
%>
    <span class="lanca">Matricula 
    <input type="text" name="matricula" value="0" class="lanca">
    - 
    <input name="enviar" type="submit" class="bts" value="Enviar para o banco de dados">
    </span> 
  </form>
</center>

ai eu coleto as informações e envio pro BD sendo que se for parcelado da erro veja o codigo de envio

<%
response.expires = 0 
response.expiresabsolute = Now() - 1 
response.addHeader "pragma","no-cache" 
response.addHeader "cache-control","private" 
Response.CacheControl = "no-cache" 


Set Conexao = Server.CreateObject("ADODB.Connection")
	Conexao.Open "DBQ=C:\coopsx\cooperativa.mdb;Driver={Microsoft Access Driver (*.mdb)};"
'Coletando informações do Formulario'
vezes = request.Form("numero")
	matricula = Request.Form("matricula")
	movimento = Request.Form("movimento")
	strSQL = "INSERT INTO test (matricula,movimento) VALUES ('" & matricula & "','" & movimento & "')"
  conexao.execute strSQL
  Response.Write(strsql)
  Response.Write("<br>")
  Response.Write("<br>")
  Response.Write("Dados enviados com sucesso !!!")
  Set strsql = Nothing
  Set Conexao = Nothing
	response.End
%>

eu acho que tem que colocar um for ai no insert pra ele gerar X insert conforme o numero de parcelas, sendo que não estou sabendo como fazer tem como vc´s me ajudarem?

Victor · Maio 16, 2004

Faz assim:

for i = 1 to 10
'aqui o u insert
next

Qualquer coisa posta are que estaremos te ajudando!!!!

Abraços,

[]'s

Victor

webdotx · Maio 16, 2004

Cara num funciona de jeito nenhum sera que pode fazer isso que estou querendo?

veja abaixo o codigo que eu fiz pra enviar as infos pro BD

Não esta dando nenhum erro mais quando eu chego no ACCESS não tem informações cadastradas

eu até coloquei um response.write no insert pra ver mais não aparece...

essa variavel vezes ela aparece no formulario anterior pois ela coleta o numero de parcelas do usuario mais não funciona - me ajuda ahee galera????

<%
dim numero,valro,data,vezes
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "DBQ=" & Server.MapPath("sitemacoop.mdb") &";driver={microsoft Access Driver (*.mdb)}"
for i = 1 to vezes
parcela=i
movimento&i = Request.Form("movimento"&i)
valor&i = Request.Form("valor"&i)
data&i = Request.Form("data"&i)
strSQL = "INSERT INTO emp (movimento,valor,data) VALUES ('"&movimento&"','"&valor&"','#"&data&"#')"
conexao.execute strSQL
next
end if
response.Write("Dados Enviados com Sucesso")
response.write("<a href='lanca.asp'>Voltar</a>")
Set strsql = Nothing
Set Conexao = Nothing
response.End
%>

webdotx · Maio 17, 2004

já resolvi aqui o problema e depois eu disponibilizo pra galera

OK?

Entrar

Como Coloco Um For No Insert

Pergunta

webdotx

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

Victor

Link para o comentário

Compartilhar em outros sites

webdotx

Link para o comentário

Compartilhar em outros sites

webdotx

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades