Ir para conteúdo

POWERED BY:

Arquivado

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

Matheus Brito

Atualizar no banco

Por , em ASP Clássico

Recommended Posts

Matheus Brito    12

Matheus Brito
Postado

pessoal vou postar o codigo todo, eu sei que eh um pouco grande, mas talvez seja nenecessário para descobrir o erro. E vou postar tb o relacionamento entre as tabelas tenho quase certeza, que o erro está ai pois nao to sabendo interpretar estes relacionamentos.

 

Imagem Postada

 

ASP
<html>

<head>

<title>Alteração</title>

<style type="text/css">

<!--

form.insere {

background-color: #FFFFCC;

width:380px;

height:465px;

font: 11px Verdana, sans-serif;

color: #003399;

border: 0px solid #0000FF;

padding-left:10px;}

 

.campos {

background-color:#B0E0E6;

font: 11px georgia, sans-serif;

color:#0033CC;

margin-right: 20px;

}

 

 

.botao {

background-color: #CC3300;

font: 10px Arial, sans-serif;

color: #CCFFFF;

}

.style1 {font-size: larger}

-->

</style>

 

<script type="text/javascript">

        function validaForm(formulario){

                //validar nome

                if (formulario.nome.value == ""){

                        alert("O campo " + formulario.nome.name + " deve ser preenchido!");

                        formulario.nome.focus();

                        return false;

                }

// valida endereco

  if (formulario.endereco.value == ""){

      alert("O campo " + formulario.endereco.name + " deve ser preenchido!");

      formulario.endereco.focus();

      return false;

         }

 

 if (formulario.bairro.value == ""){

      alert("O campo " + formulario.bairro.name + " deve ser preenchido!");

      formulario.bairro.focus();

      return false;

         }

 

if (formulario.complemento.value == ""){

      alert("O campo " + formulario.complemento.name + " deve ser preenchido!");

      formulario.complemento.focus();

      return false;

         }

 

if (formulario.email.value == ""){

      alert("O campo " + formulario.email.name + " deve ser preenchido!");

      formulario.email.focus();

      return false;

         }

 

 

//validar email

                if (formulario.email.value == ""){

                        alert("O campo " + formulario.email.name + " deve ser preenchido!");

                        formulario.email.focus();

                        return false;

                }

                //validar email(verificao de endereco eletronico)

                parte1 = formulario.email.value.indexOf("@");

                parte2 = formulario.email.value.indexOf(".");

                parte3 = formulario.email.value.length;

                if (!(parte1 >= 3 && parte2 >= 6 && parte3 >= 9)) {

                        alert("O campo " + formulario.email.name + " deve ser conter um endereco eletronico!");

                        formulario.email.focus();

                        return false;

                }

                //validar telefone

                if (formulario.telefone.value == ""){

                        alert("O campo " + formulario.telefone.name + " deve ser preenchido!");

                        formulario.telefone.focus();

                        return false;

                }

                //validar telefone(verificacao se contem apenas numeros)

                if (isNaN(formulario.telefone.value)){

                        alert("O campo " + formulario.telefone.name + " deve conter apenas numeros!");

                        formulario.telefone.focus();

                        return false;

                }

 

 

if (formulario.fax.value == ""){

                        alert("O campo " + formulario.fax.name + " deve ser preenchido!");

                        formulario.fax.focus();

                        return false;

                }

               

                if (isNaN(formulario.fax.value)){

                        alert("O campo " + formulario.fax.name + " deve conter apenas numeros!");

                        formulario.fax.focus();

                        return false;

                }

               

               

        if (formulario.razao.value == ""){

      alert("O campo " + formulario.razao.name + " deve ser preenchido!");

      formulario.razao.focus();

      return false;

         }     

       

        if (formulario.entrega.value == ""){

      alert("O campo " + formulario.entrega.name + " deve ser preenchido!");

      formulario.entrega.focus();

      return false;

         }     

        //formulario.submit();

}

</script>

 

 

</head>

 

<body>

<% sub formulario_principal()

 

Str= "DRIVER={Microsoft Access Driver (*.mdb)} ;DBQ=" & server.MapPath("dataBase") & "bd.mdb"

 

set conexao= Server.CreateObject("adodb.connection")

 

conexao.open Str

 

%>

<form name="alterar" id="alterar" class="insere" action="alterar.asp?fazer=alterar" method="post">

<p><b>Credenciados:</b>

<select name="cod_empresa" >

<%

 

sql ="SELECT * FROM credenciados ORDER BY nome;"

Set RS_Credenciados = conexao.execute(sql)

Do While Not RS_Credenciados.Eof

'response.Write(sql)

'response.End()

%>

<option value="<% = RS_Credenciados("cod_empresa") %>"><% = RS_Credenciados("nome") %></option>

<%

        RS_Credenciados.MoveNext

Loop

RS_Credenciados.Close

Set RS_Credenciados = Nothing

%>

</select>

<input name="enviar" type="submit" value="Buscar Dados" class="botao"  />

</form>

<% end sub %>

 

<% sub executar_alteracao %>

 

<%

Str= "DRIVER={Microsoft Access Driver (*.mdb)} ;DBQ=" & server.MapPath("dataBase") & "bd.mdb"

set conexao= Server.CreateObject("adodb.connection")

conexao.open Str

 

sql="UPDATE credenciados set"

sql=sql & "nome='"&Request.Form("nome") & "',"

sql=sql & "endereco='"&Request.Form("endereco") & "',"

sql=sql & "complemento='"&request.Form("complemento") & "',"

sql=sql & "site='"&request.Form("site") & "',"

sql=sql & "cod_cidade='"&request.Form("cod_cidade") & "',"

sql=sql & "telefone='"&request.Form("telefone") & "',"

sql=sql & "email='"&request.form("email") & "',"

sql=sql & "fax='"&request.form("fax") & "',"

sql=sql & "bairro='"&request.Form("bairro") & "',"

sql=sql & "razao='"&request.Form("razao") & "',"

sql=sql & "entrega='"&request.form("entrega") & "',"

sql=sql & "where cod_empresa="&request.Form("cod_empresa")

Response.write(sql)

Response.end()

set rs_altera=conexao.execute(sql)

rs_altera=nothing

%>

 

<strong><font face="Arial" size="3">O contato escolhido foi alterado com sucesso.</font></strong></br>

<br><a href="alterar.asp">Deseja alterar mais algum contato?</a>

<% end sub %>

 

<% sub alterar()

 

Str= "DRIVER={Microsoft Access Driver (*.mdb)} ;DBQ=" & server.MapPath("dataBase") & "bd.mdb"

set conexao= Server.CreateObject("adodb.connection")

conexao.open Str

 

sql= "select * from credenciados where cod_empresa=" & request.Form("cod_empresa")

set rs_cod=conexao.execute(sql)

'response.Write(sql)

'response.end()

 

%>

 

<form name="altera" id="altera" method="post" action="alterar.asp?fazer=executar" class="insere">

  <strong>

  <label>

  <b><span class="style1">Formulário de Alteração </span></b><br />

  </p>

 

   <strong>Nome:</strong><b>

  <input type="text" name="nome" id="nome" size="59" maxlength="50" class="campos" value="<% = rs_cod.Fields("nome")%>" />

  </label>

  <p>

    <label><b>Endereço:</b>

    <input type="text" name="endereco" size="55" maxlength="55" class="campos" value="<% = rs_cod.Fields("endereco")%> "  />

    </label>

</p>

  <label></label>

  <label></label>

  <p><b>Bairro:</b>

 <input type="text" name="bairro" size="59" maxlength="30" class="campos" value="<% = rs_cod.Fields("bairro")%> "  />

</p>

  <p><b>Complemento:</b>

    <input type="text" name="complemento" size="49" maxlength="20" class="campos" value="<% = rs_cod.Fields("complemento")%> "   />

  </p>

  <p><b>Site:</b>

    <input type="text" name="site" size="22" maxlength="20" class="campos" value="<% = rs_cod.Fields("site")%> "   />

    <b>Email:</b>

    <input type="text" name="email" size="22" maxlength="20" class="campos" value="<% = rs_cod.Fields("email")%> "   />

  </p>

  <p><b>Cidade:</b>

<select name="cod_atividade">

<%

Str= "DRIVER={Microsoft Access Driver (*.mdb)} ;DBQ=" & server.MapPath("dataBase") & "bd.mdb"

set conexao= Server.CreateObject("adodb.connection")

conexao.open Str

sql ="SELECT * FROM credenciados_cidades ORDER BY cidade;"

Set RS_Cidades = conexao.execute(sql)

Do While Not RS_Cidades.Eof

'       Response.write("<option value=""" & RS_Cidades("cod_cidade") & """>" & RS_Cidades("cidade") & "</option>")

%>

<option value="<% = RS_Cidades("cod_cidade") %>"><% = RS_Cidades("cidade") %></option>

<%

        RS_Cidades.MoveNext

Loop

RS_Cidades.Close

Set RS_Cidades = Nothing

%>

</select>

  </p>

  <p><b>Telefone:</b>

    <input type="text" name="telefone" size="20" maxlength="14" class="campos" value="<% = rs_cod.Fields("telefone")%> "   />

    <b>Fax:</b>

    <input type="text" name="fax" size="20" maxlength="14" class="campos" value="<% = rs_cod.Fields("fax")%> "   />

  </p>

  <p><b>Razão:</b>

    <input type="text" name="razao" size="58" maxlength="30" class="campos" value="<% = rs_cod.Fields("razao")%> "   />

  </p>

  <p>    <b>Entrega:</b>

    <input type="text" name="entrega" size="56" maxlength="30" class="campos" value="<% = rs_cod.Fields("entrega")%> "  />

  </p>

  <p> </p>

  <div align="center">

      <input name="enviar" type="submit" value="Alterar Dados" class="botao" onClick="return validaForm(this.form);" />

   

     

     

  </div>

  </div>

</form>

<% end sub %>

<%

if request.QueryString("fazer")= "alterar" then

alterar

else if request.QueryString("fazer")="executar" then

%>

<script language="JavaScript">

validaForm(formulario);

</script>

<%

else

formulario_principal

end if

end if

%>

 

</body>

</html>

 

 

 

Nao da erro nenhum, mas tb nao atualiza a tabela. Por favor deem uma forca ai.

abs

Compartilhar este post

Link para o post
Compartilhar em outros sites

dataset    0

dataset
Postado

Posta o que ta vindo no response.write(sql) do teu update.

 

Tá dando submit na pagina? to vendo que o teu submit ta comentado: //formulario.submit();

 

Não vi também o <form name='formulario'> Não ta dando erro de javascript ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

você criou uma sub para fazer o update. Eu aconselho retirar da sub e fazer um if validando pela querystring fazer, quando for = alterar executa o codigo de update

Compartilhar este post

Link para o post
Compartilhar em outros sites

Matheus Brito    12

Matheus Brito
Postado

cara nao funcionou nao, e nao ta dando erro nenhum, apenas ta ficando uma tela branca quando clico no botao alterar dados.

abs

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

nao aparece nenhum erro escondido no font HTML?

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