Ir para conteúdo

POWERED BY:

Arquivado

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

vivi@ne

Upload vários registros distintos

Por , em ASP Clássico

Recommended Posts

vivi@ne    0

vivi@ne
Postado

Bom galera, to enroscada com um upload meio complexo...

 

De acordo com os erros o cliente tem que corrigir e reenviar pra gravar as informações no banco... o problema é que pra cada registro do bd tem mais 21 itens na mesma linha, sendo que esses itens podem ou não estar errados...

 

consigo fazer o update de uma coluna, certinho, mas quando vou fazer do resto dá pau, ninguém funciona....

 

Se alguma alma boa puder me ajudar agradeço....

 

Seguema as páginas

 

 

 

Essa página recebe e trata as informações do bd

<%				Function Idade(data)Idade = DateDiff("yyyy",data,Now) End FunctionFunction Dtatual(dataatual, datanascimento)if (cint(mid(dataatual, 4, 2)))>=(cint(mid(datanascimento, 4, 2))) then  if (cint(mid(dataatual, 1, 2)))>=(cint(mid(datanascimento, 1, 2))) then	 n1 = cint(mid(dataatual, 7, 4))	 n2 = cint(mid(datanascimento, 7, 4))	 idade = n1-n2  else	 n1 = cint(mid(dataatual, 7, 4))	 n2 = cint(mid(datanascimento, 7, 4))	 idade = n1-n2-1  end ifelse   n1 = cint(mid(dataatual, 7, 4))  n2 = cint(mid(datanascimento, 7, 4))  idade = n1-n2-1end ifEnd FunctionFunction estado(str)  str = LCase(str)  estado = Replace(str, "Casado", "casado")  estado = Replace(str, "Casada", "casado")  estado = Replace(str, "cas", "casado")  estado = Replace(str, "Cas", "casado")  estado = Replace(str, "casada", "casado")    estado = Replace(estado, "Solteiro", "solteiro")  estado = Replace(estado, "Solteira", "solteiro")  estado = Replace(estado, "solt", "solteiro")  estado = Replace(estado, "Solt", "solteiro")  estado = Replace(estado, "solteira", "solteiro")    estado = Replace(estado, "Amasiado", "amasiado")  estado = Replace(estado, "Amasiada", "amasiado")  estado = Replace(estado, "amas", "amasiado")  estado = Replace(estado, "Amas", "amasiado")  estado = Replace(estado, "amasiada", "amasiado")  estado = Replace(estado, "Separado", "separado")  estado = Replace(estado, "Separada", "separado")  estado = Replace(estado, "sep", "separado")  estado = Replace(estado, "Sep", "separado")  estado = Replace(estado, "separada", "separado")  estado = Replace(estado, "Desquitado", "desquitado")  estado = Replace(estado, "Desquitada", "desquitado")  estado = Replace(estado, "desq", "desquitado")  estado = Replace(estado, "Desq", "desquitado")  estado = Replace(estado, "desquitada", "desquitado")  estado = Replace(estado, "Divorciado", "divorciado")  estado = Replace(estado, "Divorciada", "divorciado")  estado = Replace(estado, "div", "divorciado")  estado = Replace(estado, "Div", "divorciado")  estado = Replace(estado, "divorciada", "divorciado")End Functionset Conn= server.CreateObject("ADODB.Connection")Conn.open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath ("caminho do bd.mdb")tipo = Request.QueryString ("tpi")municipio = Request.QueryString("municipio")sql = "SELECT * from Ativos where entidade = '"&municipio&"' and tipo = '"&tipo&"' order by matricula"Set rs = Conn.Execute(sql)%>			   <table height="30" width="1790" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#035faa" style="border-collapse: collapse; border: 1px solid #035FAA">				<form name="Update" method="Post" action="crit.asp">				 <tr align="center">				  <td class="style3" colspan="21">				   <input type="hidden" name="tipo" value="<%=Request.QueryString("tpi")%>" />				   <input type="hidden" name="municipio" value="<%=Request.QueryString("municipio")%>" />				   <input type="submit" name="Submit" value="Corrigir" />				  </td>				 </tr>				 <tr align="center">				  <td class="style3">				  Tipo<br>				   de<br>				  Inst.				  </td>				  <td class="style3"> Município </td>				  <td class="style3"> Matrícula </td>				  <td class="style3"> Nome </td>				  <td class="style3"> Cargo </td>				  <td class="style3"> Sexo </td>				  <td class="style3">Est.<br>				  Civ.</td>				  <td class="style3">Dt.<br>				  Nasc.</td>				  <td class="style3"> INSS Ant. </td>				  <td class="style3"> Dt. RP. </td>				  <td class="style3">Dt.<br>				  Admis.</td>				  <td class="style3">TP.<br>				  Apos.</td>				  <td class="style3"> Salário </td>				  <td class="style3">Nº<br>				  Dep.</td>				  <td class="style3">Dt.<br>				  Conj </td>				  <td class="style3"> Filho 1 </td>				  <td class="style3"> Filho 2 </td>				  <td class="style3"> Filho 3 </td>				  <td class="style3"> Filho 4 </td>				  <td class="style3"> Filho 5 </td>				  <td class="style3"> Data/Hora do envio  </td>				 </tr>				 <%cont=0totalregistros=0   	  Do While rs.EOF = Falsecont=cont+1%>				 <tr>				  <%on error resume nextresponse.write "<tr align=""center"">"%>				  <input type="hidden" name="id<%=cont%>"  value="<%= rs("id") %>">				  <%If IsNull(rs("tipo")) OR rs("tipo") = "0"  or rs("tipo") = "" Then%>				  <td height="30" bgcolor=#eeeeee><span class="style2">N/D</span></td>				  <%Else%>				  <td height="30"bgcolor=#eeeeee><span class="style2"><%= rs("tipo") %></span></td>				  <%End IFIF IsNull(rs("entidade")) OR rs("entidade") = "0" or rs("entidade") = "" Then%>				  <td><span class="style2">N/D</span></td>				  <%Else%>				  <td><span class="style2"><%= rs("entidade") %></span></td>				  <%End IFIF IsNull(rs("matricula")) OR rs("matricula") = "0" or rs("matricula") = "" Then%>				  <td bgcolor=#eeeeee>				   <input size="5" name="matr<%=cont%>" type="text" style="background:#D2F7DB" value ="<%= rs("matricula") %>" >				  </td>				  <%Else%>				  <td bgcolor=#eeeeee><span class="style2"><%= rs("matricula") %></span></td>				  <%End IFIF IsNull(rs("nome")) OR rs("nome") = "0" or rs("nome") = "" Then%>				  <td width="330">				   <textarea name="nome" cols="30" rows="1"><%= rs("nome") %></textarea>				  </td>				  <%Else%>				  <td width="330"><span class="style2"><%= rs("nome") %></span></td>				  <%End IFIF IsNull(rs("cargo")) OR rs("cargo") = "0" or rs("cargo") = "" Then%>				  <td bgcolor=#eeeeee>				   <input type="text" name="cargo<%=cont%>" style="background:#D2F7DB" size ="10"  value ="<%= rs("cargo") %>">				  </td>				  <%Else%>				  <td bgcolor=#eeeeee><span class="style2"><%= rs("cargo") %></span></td>				  <%End IFsexo = "F"sexo2 = "M"IF IsNull(rs("sexo")) OR rs("sexo") < sexo or rs("sexo") = "" or rs("sexo") > sexo2 Then%>				  <td>				   <input type="text" name="sexo<%=cont%>" style="background:#D2F7DB" size ="3"  value ="<%= rs("sexo") %>">				  </td>				  <%Else%>				  <td><span class="style2"><%= rs("sexo") %></span></td>				  <%End IFsolt = "solteiro"ama = "amasiado"desq = "desquitado"divor = "divorciado"casado = "casado"IF IsNull(rs("est_civ")) or rs("est_civ") = ""  or rs("est_civ") = "0" or rs("est_civ") > casado or rs("est_civ") > solt or rs("est_civ") > ama or rs("est_civ") > desq or rs("est_civ") > divor Then%>				  <td bgcolor=#eeeeee>				   <input type="text" name="estciv<%=cont%>" style="background:#D2F7DB" size ="10"  value ="<%= rs("est_civ") %>">				  </td>				  <%Else%>				  <td bgcolor=#eeeeee><span class="style2"><%= rs("est_civ") %></span></td>				  <%End IFdata_nasc = Idade(rs("dt_nasc"))IF Isnull(rs("dt_nasc")) OR rs("dt_nasc") = "" or data_nasc < 14 or data_nasc > 100 Then%>				  <td>				   <input type="text" style="background:#D2F7DB" size ="10" name="dtnasc<%=cont%>"  value ="<%=rs("dt_nasc")%>">				  </td>				  <%Else%>				  <td><span class="style2"><%=rs("dt_nasc")%></span></td>				  <%End IF IF IsNull(rs("inss_ant")) OR  rs("inss_ant") = "" or rs("inss_ant") = "0" Then%>				  <td bgcolor=#eeeeee>				   <input type="text" style="background:#D2F7DB" size ="3" name="inss<%=cont%>" value ="<%= rs("inss_ant")%>">				  </td>				  <%Else%>				  <td bgcolor=#eeeeee><span class="style2"><%=rs("inss_ant")%></span></td>				  <%End IFIF IsNull(rs("dt_rp")) OR rs("dt_rp") = "0" or rs("dt_rp") = ""  Then%>				  <td>				   <input type="text" style="background:#D2F7DB" name="rp<%=cont%>" size ="10"  value ="<%= rs("dt_rp") %>">				  </td>				  <%Else%>				  <td><span class="style2"><%= rs("dt_rp") %></span></td>				  <%End IFdt_adm = Dtatual(rs("dt_adm"))dt_rp = Dtatual(rs("dt_rp"))IF IsNull(rs("dt_adm")) OR rs("dt_adm") = "0" or rs("dt_adm")= "" or (data_nasc - dt_adm) < 18 or (data_nasc - dt_adm) > 70  Then%>				  <td bgcolor=#eeeeee>				   <input type="text" name="adm<%=cont%>" style="background:#D2F7DB" size ="10"  value ="<%= rs("dt_adm") %>">				  </td>				  <%Else%>				  <td bgcolor=#eeeeee><span class="style2"><%= rs("dt_adm") %></span></td>				  <%End IFnorm = "N"esp = "E"IF IsNull(rs("tp_apos")) OR rs("tp_apos") = "0" or rs("tp_apos") = "" or rs("tp_apos") < norm or rs("tp_apos") < esp Then%>				  <td>				   <input type="text" name="apos<%=cont%>" style="background:#D2F7DB" size ="10"  value ="<%= rs("tp_apos") %>">				  </td>				  <%Else%>				  <td><span class="style2"><%= rs("tp_apos") %></span></td>				  <%End IFsalario = FormatNumber(rs("salario"))IF IsNull(rs("salario")) OR rs("salario") = "0" or rs("salario") = "" or salario < 380.50 Then%>				  <td bgcolor=#eeeeee>				   <input name="sal<%=cont%>" type="text" style="background:#D2F7DB" size ="10"  value ="<%= salario %>">				  </td>				  <%Else%>				  <td bgcolor=#eeeeee><span class="style2"><%= salario %></span></td>				  <%End IFIF IsNull(rs("n_dep")) OR rs("n_dep") = "" Then%>				  <td>				   <input type="text" name="fils<%=cont%>" style="background:#D2F7DB" size ="10"  value ="<%= rs("n_dep") %>">				  </td>				  ")				  <%Else%>				  <td>				   <input type="text" name="fils" size="3" value="<%= rs("n_dep") %>">				  </td>				  <%End IFestd = estado(rs("est_civ"))vago = (rs("dt_conj") = "")IF IsNull(rs("dt_conj")) OR  estd <> casado or vago  Then%>				  <td bgcolor=#eeeeee>				   <input name="conj<%=cont%>" type="text" style="background:#D2F7DB" size ="10"  value ="<%= rs("dt_conj") %>">				  </td>				  <%Else%>				  <td bgcolor=#eeeeee><span class="style2"><%= rs("dt_conj") %></span></td>				  <%End IFdt_fl1 = Dtatual(rs("dt_nf1")) IF IsNull(rs("dt_nf1")) OR rs("dt_nf1") = "0" or rs("dt_nf1") = "" or rs("n_dep") = 0 or data_nasc - dt_fl1 =< 15  Then%>				  <td>				   <input type="text" name="f1<%=cont%>" style="background:#D2F7DB" size ="10"  value ="<%= rs("dt_nf1") %>">				  </td>				  <%Else%>				  <td><span class="style2"><%= rs("dt_nf1") %></span></td>				  <%End IFdt_fl = Dtatual(rs("dt_nf2")) IF IsNull(rs("dt_nf2")) OR rs("dt_nf2") = "0"  or rs("n_dep") <= 1  or data_nasc - dt_fl =< 15 Then%>				  <td bgcolor=#eeeeee>				   <input name="f2<%=cont%>" type="text" style="background:#D2F7DB" size ="10"  value ="<%= rs("dt_nf2") %>">				  </td>				  <%Else%>				  <td bgcolor=#eeeeee><span class="style2"><%= rs("dt_nf2") %></span></td>				  <%End IFIF IsNull(rs("dt_nf3")) OR rs("dt_nf3") = "0"  or rs("n_dep") = 3  Then%>				  <td>				   <input type="text" name="f3<%=cont%>" style="background:#D2F7DB" size ="10"  value ="<%= rs("dt_nf3") %>">				  </td>				  <%Else%>				  <td><span class="style2"><%= rs("dt_nf3") %></span></td>				  <%End IfIF IsNull(rs("dt_nf4")) OR rs("dt_nf4") = "0"   or rs("n_dep") = 4 Then%>				  <td>				   <input type="text" name="f4<%=cont%>" style="background:#D2F7DB" size ="10"  value ="<%= rs("dt_nf4") %>">				  </td>				  <%Else%>				  <td><span class="style2"><%= rs("dt_nf4") %></span></td>				  <%End IfIF IsNull(rs("dt_nf5")) OR rs("dt_nf5") = "0"  or rs("n_dep") = 5 Then%>				  <td>				   <input type="text" name="f5<%=cont%>" size ="10" value ="<%= rs("dt_nf5") %>">				  </td>				  <%Else%>				  <td><span class="style2"><%= rs("dt_nf5") %></span></td>				  <%End If%>				  <td><span class="style2"> <%=rs("dt_ult_atual")%></span></td>				  <%totalregistros=totalregistros+contrs.MoveNextLoop%>				  <input type="hidden" name="hidTotalRegistros" value="<%=totalregistros%>">				 </form>				<% response.write "</tr>"	   %>			   </table>			  <%	Set rs = NothingConn.CloseSet Conn = Nothing %>

essa página faz o update do campo matr, mas tem que fazer de todos os campos que correspondam à linha do id que está sendo alterada

 

<%tipo = Request.Form("tipo")municipio = Request.Form("municipio")set Conn=server.CreateObject("ADODB.Connection")Conn.open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("/caminho do bd.mdb")sq1 = "Select * from Ativos where tipo = '"&tipo&"' and entidade = '"&municipio&"' "Set RS = Conn.execute (sq1)totalregistros=Request("hidTotalRegistros")on error resume nextFor cont=1 to totalregistroscodigo="id"&contvarCodigo=Request(codigo)valor="matr"&contvarValor=Request(valor)strSql="Update Ativos set matricula = "& varValor &" where id="& varCodigo &""Conn.execute(strSql)NextSet RS = NothingConn.CloseSet Conn = Nothing %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

vivi@ne    0

vivi@ne
Postado
Boa Noite,Valeu a intenção mass já tinha visto esse post e não adiantou... o problema é que quando eu coloco os valores que devem ser feitos o update as coisas páram de funcionar...dá uma olhada nessa parte do cód. que faz o update das informações:
For cont=1 to totalregistroscodigo="id"&cont ' o nome do campo de idvarCodigo=Request(codigo)valor="matr"&cont  ' o nome do campo matricula que é o que eu consigo fazer o update certinhovarValor=Request(valor)strSql="Update Ativos set matricula = "& varValor &" where id="& varCodigo &""Conn.execute(strSql)
se eu faço assim não funciona:
For cont=1 to totalregistroscodigo="id"&contvarCodigo=Request(codigo)valor="matr"&contvarValor=Request(valor)valor1 ="sexo"&cont ' aqui começa o problema. Se eu incluo um outro campo pra fazer o update, aí tudo pára pq não reconhece esse campo, ou qq outro que eu coloque.varValor1=Request(valor1)strSql="Update Ativos set matricula = "& varValor &", sexo= "& varValor1 &"  where id="& varCodigo &""Conn.execute(strSql)
Se você entendeu o problema vai ver que não funciona o outro tópico q você me passou, mas se puder me dar uma mãozinha...BjsVivi@ne

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