Ir para conteúdo

POWERED BY:

Arquivado

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

Khelly

Inserir data

Por , em ASP Clássico

Recommended Posts

Khelly    0

Khelly
Postado

Ola pessoal sou nova no forum, estou com problemas para inserir data no meu banco mysql através de um formulario em asp, os demais dados são inseridos, mas a data fica zerada, vcs me dizer o que pode estar acontecendo?...fico grata pela ateção

Compartilhar este post

Link para o post
Compartilhar em outros sites

Matias Rezende    50

Matias Rezende
Postado

Provavelmente formato da data. O padrão do mysql (e recomendado) é AAAA-MM-DD. Altere para este formato na hora de gravar, já que provavelmente o usuário deve digitar na aplicação DD/MM/AAAA.

 

Carlos Eduardo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Khelly    0

Khelly
Postado

Obrigada pela atenção, mas comecei a trabalhar com mysql recentemente, meu codigo é este abaixo ,o que tenho que modificar nele?...mais uma vez grata pela ajuda.

 

<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<table width="75%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="25" valign="top" class="mssansserif4"><strong>Notícias</strong></td>
  </tr>
  <tr>
    <td height="15"> </td>
  </tr>
  <tr>
    <td height="25">
	<% If Request.QueryString("acao") = "" Then %>
	<%
		If Request.QueryString("data") = "" Then
			Set Noticias = Server.CreateObject("ADODB.Recordset")
			Noticias.Open "SELECT * FROM Noticias WHERE DataNoticia = CURDATE() ORDER BY DataNoticia", Conexao
		Else
			Set Noticias = Server.CreateObject("ADODB.Recordset")
			Noticias.Open "SELECT * FROM Noticias WHERE DataNoticia=DateValue('"& Request.QueryString("data") &"') ORDER BY DataNoticia", Conexao
		End If
					
		Contador = 0

		Set Datas = Server.CreateObject("ADODB.Recordset")
		Datas.Open "SELECT DISTINCT DataNoticia FROM Noticias ORDER BY DataNoticia", Conexao
	%>
      <table width="550" border="0" cellpadding="4" cellspacing="2">
        <tr bgcolor="#DADADA">
          <td width="82"><div align="center"><strong class="mssansserif3b">Data</strong></div></td>
          <td width="446"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="51%"><strong class="mssansserif3b">Título</strong></td>
          <form method="get" action="home.asp?item=noticias2">
              <td width="14%">
			  	<strong class="mssansserif3b">Filtro:</strong>
              </td>
	  	      <td width="35%">
			  <% If Datas.EOF Then %>
			  	Banco de dados vazio
			  <% Else %>
			  <select name="data" onChange="MM_jumpMenu('parent.frames[\'home\']',this,0)">
	  	        <option selected>Selecione...</option>
				<% Datas.MoveFirst : While Not Datas.EOF %>
	                <option value="home.asp?item=noticias2&data=<%= Datas("DataNoticia") %>"><%= Datas("DataNoticia") %></option>
				<% Datas.MoveNext : Wend %>
              </select>
			  <% End If %>
			  </td>
          </form>
            </tr>
          </table></td>
        </tr>
		<% If Noticias.EOF Then %>
        <tr class="tahoma1" bgcolor="#FFFFFF">
          <td colspan="2"><div align="center">Não há matérias para a data de hoje</div></td>
        </tr>
		<% Else %>
		<%
		Noticias.MoveFirst : While Not Noticias.EOF
		If Contador Mod 2 = 0 Then Cor="#FFFFFF" Else Cor="#EEEEEE"
		%>
        <tr class="tahoma1" bgcolor="<%= Cor %>">
          <td><div align="center"><%= Noticias("DataNoticia") %></div></td>
          <td><a href="home.asp?item=noticias2&acao=editar&id=<%= Noticias("IdNoticia") %>" class="tahoma1"><%= Noticias("TituloNoticia") %></a></td>
        </tr>
		<%
		Noticias.MoveNext
		Contador = Contador + 1
		Wend
		%>
	<% End If %>
        <tr bgcolor="#DADADA">
          <td colspan="2">
            <div align="center"><a href="home.asp?item=noticias2&acao=incluir" class="mssansserif4"><strong>Adicionar nova Notícia </strong></a>        <a href="home.asp?item=imagens" class="mssansserif4"><strong>Banco de Imagens</strong></a>        <a href="gerar_ticker.asp" class="mssansserif4"><strong>Gerar Ticker</strong></a></div>
          </td>
        </tr>
      </table>
	<%
		Datas.Close
		Set Datas = Nothing

		Noticias.Close
		Set Noticias = Nothing
	%>
	<% End If %>
	<% If Request.QueryString("acao") = "incluir" Then %>
	<%
		Set Autores = Server.CreateObject("ADODB.Recordset")
		Autores.Open "SELECT * FROM Autores WHERE CategoriaAutor='Jornalista' ORDER BY NomeAutor", Conexao

		Set Editorias = Server.CreateObject("ADODB.Recordset")
		Editorias.Open "SELECT * FROM Editorias ORDER BY NomeEditoria", Conexao

		Set Cadernos = Server.CreateObject("ADODB.Recordset")
		Cadernos.Open "SELECT * FROM Cadernos ORDER BY NomeCaderno", Conexao

		Set BancoImagens = Server.CreateObject("ADODB.Recordset")
		BancoImagens.Open "SELECT * FROM BancoImagens ORDER BY NomeImagem", Conexao


                Set Noticias = Server.CreateObject("ADODB.Recordset")
		Noticias.Open "SELECT * FROM Noticias ORDER BY IdNoticia", Conexao
	%>
		
        <form action="acao_noticias2.asp" method="post" name="" id="">
          <table width="550" border="0" cellspacing="1" cellpadding="4">
            <tr class="mssansserif4">
              <td width="101">Autor:</td>
              <td colspan="3">
			  <select name="IdAutor" id="IdAutor">
			  <% Autores.MoveFirst : While Not Autores.EOF %>
                <option value="<%= Autores("IdAutor") %>"><%= Autores("NomeAutor") %></option>
			  <% Autores.MoveNext : Wend %>
              </select>			  </td>
            </tr>
            <tr class="mssansserif4">
              <td>Editoria:</td>
              <td colspan="3">
			  <select name="IdEditoria" id="IdEditoria">
			  <% Editorias.MoveFirst : While Not Editorias.EOF %>
                <option value="<%= Editorias("IdEditoria") %>"><%= Editorias("NomeEditoria") %></option>
			  <% Editorias.MoveNext : Wend %>
              </select>			  </td>
            </tr>
            <tr class="mssansserif4">
              <td>Caderno:</td>
              <td colspan="3">
                <select name="IdCaderno" id="IdCaderno">
                  <% Cadernos.MoveFirst : While Not Cadernos.EOF %>
                  <option value="<%= Cadernos("IdCaderno") %>"><%= Cadernos("NomeCaderno") %></option>
                  <% Cadernos.MoveNext : Wend %>
                </select>              </td>
            </tr>
            <tr class="mssansserif4">
              <td>Data:</td>
              <td width="120"><input name="DataNoticia" type="text" id="DataNoticia" size="20"></td>
              <td width="148" align="right">Hora:</td>
              <td width="144"><input type="text" name="hora" id="hora" /></td>
            </tr>
            <tr class="mssansserif4">
              <td>Sob-Titulo:</td>
              <td colspan="3"><input name="sobtitulonoticia" type="text" id="sobtitulonoticia" size="60" /></td>
            </tr>
            <tr class="mssansserif4">
              <td>Título:</td>
              <td colspan="3"><input name="TituloNoticia" type="text" id="TituloNoticia" size="50"></td>
            </tr>
            <tr class="mssansserif4">
              <td>Sub-Título:</td>
              <td colspan="3"><input name="SubTituloNoticia" type="text" id="SubTituloNoticia" size="60"></td>
            </tr>
            <tr class="mssansserif4">
              <td>Texto:</td>
              <td colspan="3" rowspan="2"><textarea name="TextoNoticia" cols="60" rows="10" id="TextoNoticia"></textarea></td>
            </tr>
            <tr class="mssansserif4">
              <td> </td>
            </tr>
            <tr class="mssansserif4">
              <td>Foto:</td>
              <td colspan="3">
			  <select name="IdImagem" id="IdImagem">
              <option value="0" selected>Sem foto</option>
			  <% BancoImagens.MoveFirst : While Not BancoImagens.EOF %>
                <option value="<%= BancoImagens("IdImagem") %>"><%= BancoImagens("NomeImagem") %></option>
			  <% BancoImagens.MoveNext : Wend %>
              </select>			  </td>
            </tr>
            <tr class="mssansserif4">
              <td>Legenda:</td>
              <td colspan="3"><input name="FotoLegenda" type="text" id="FotoLegenda" size="60"></td>
            </tr>
            <tr class="mssansserif4">
              <td>Destaque:</td>
              <td>
			  <select name="DestaqueNoticia" id="DestaqueNoticia">
                <option value="1">Sim</option>
                <option value="0" selected>Não</option>
              </select>			  </td>
              <td>Destaque2:
                <select name="DestaqueNoticia2" id="DestaqueNoticia2">
                  <option value="1">Sim</option>
                  <option value="0" selected="selected">Não</option>
                </select></td>
              <td>Destaque3:
                <select name="DestaqueNoticia3" id="DestaqueNoticia3">
                  <option value="1">Sim</option>
                  <option value="0" selected="selected">Não</option>
                </select></td>
            </tr>
            <tr class="mssansserif4">
              <td> </td>
              <td> </td>
              <td>Destaque4:
                <select name="DestaqueNoticia4" id="DestaqueNoticia4">
                  <option value="1">Sim</option>
                  <option value="0" selected="selected">Não</option>
                </select></td>
              <td> </td>
            </tr>
            <tr class="mssansserif4">
              <td>Resumo:</td>
              <td colspan="3" rowspan="2"><textarea name="ResumoDestaque" cols="60" rows="5" id="ResumoDestaque"></textarea></td>
            </tr>
            <tr class="mssansserif4">
              <td> </td>
            </tr>
            <tr class="mssansserif4">
              <td> </td>
              <td colspan="3"> </td>
            </tr>
            <tr class="mssansserif4">
              <td colspan="4"><input name="acao" type="submit" class="botao" id="acao" value="Incluir nova Notícia">              </td>
            </tr>
          </table>
      </form>
	<%
		BancoImagens.Close
		Set BancoImagens = Nothing

		Cadernos.Close
		Set Cadernos = Nothing

		Autores.Close
		Set Autores = Nothing
		
		Editorias.Close
		Set Editorias = Nothing
	%>
	<% End If %>
	<% If Request.QueryString("acao") = "editar" Then %>
	<%
		Set Noticias = Server.CreateObject("ADODB.Recordset")
		Noticias.Open "SELECT * FROM Noticias WHERE IdNoticia="& Request.QueryString("id"), Conexao

		Set Autores = Server.CreateObject("ADODB.Recordset")
		Autores.Open "SELECT * FROM Autores WHERE CategoriaAutor='Jornalista' ORDER BY NomeAutor", Conexao

		Set Cadernos = Server.CreateObject("ADODB.Recordset")
		Cadernos.Open "SELECT * FROM Cadernos ORDER BY NomeCaderno", Conexao

		Set Editorias = Server.CreateObject("ADODB.Recordset")
		Editorias.Open "SELECT * FROM Editorias ORDER BY NomeEditoria", Conexao

		Set BancoImagens = Server.CreateObject("ADODB.Recordset")
		BancoImagens.Open "SELECT * FROM BancoImagens ORDER BY NomeImagem", Conexao
	%>
        <form action="acao_noticias2.asp" method="post" name="" id="">
          <table width="550" border="0" cellspacing="1" cellpadding="4">
            <tr class="mssansserif4">
              <td width="101">Autor:</td>
              <td colspan="3">
                <select name="IdAutor" id="IdAutor">
                  <% Autores.MoveFirst : While Not Autores.EOF %>
				  	<% If Autores("IdAutor") = Noticias("IdAutor") Then %>
                  		<option value="<%= Autores("IdAutor") %>" selected><%= Autores("NomeAutor") %></option>
					<% Else %>
                  		<option value="<%= Autores("IdAutor") %>"><%= Autores("NomeAutor") %></option>
					<% End If %>
                  <% Autores.MoveNext : Wend %>
                </select>              </td>
            </tr>
            <tr class="mssansserif4">
              <td>Editoria:</td>
              <td colspan="3">
                <select name="IdEditoria" id="IdEditoria">
                  <% Editorias.MoveFirst : While Not Editorias.EOF %>
				  	<% If Editorias("IdEditoria") = Noticias("IdEditoria") Then %>
	                  <option value="<%= Editorias("IdEditoria") %>" selected><%= Editorias("NomeEditoria") %></option>
				 	<% Else %>
	                  <option value="<%= Editorias("IdEditoria") %>"><%= Editorias("NomeEditoria") %></option>
					<% End If %>
                  <% Editorias.MoveNext : Wend %>
                </select>              </td>
            </tr>
            <tr class="mssansserif4">
              <td>Caderno:</td>
              <td colspan="3">
                <select name="IdCaderno" id="IdCaderno">
                  <% Cadernos.MoveFirst : While Not Cadernos.EOF %>
                  <% If Cadernos("IdCaderno") = Noticias("IdCaderno") Then %>
                  <option value="<%= Cadernos("IdCaderno") %>" selected><%= Cadernos("NomeCaderno") %></option>
                  <% Else %>
                  <option value="<%= Cadernos("IdCaderno") %>"><%= Cadernos("NomeCaderno") %></option>
                  <% End If %>
                  <% Cadernos.MoveNext : Wend %>
                </select>              </td>
            </tr>
            <tr class="mssansserif4">
              <td>Data:</td>
              <td width="120"><input name="DataNoticia" type="text" id="DataNoticia" value="<%= Noticias("DataNoticia") %>" size="20"></td>
              <td width="148" align="right">Hora:</td>
              <td width="144"><input type="text" name="hora" id="hora"  value="<%= Noticias("hora") %>"/></td>
            </tr>
            <tr class="mssansserif4">
              <td>Sob-titulo</td>
              <td colspan="3"><input name="sobtitulonoticia" type="text" id="sobtitulonoticia" size="60" value="<%= Noticias("sobtitulonoticia") %>" /></td>
            </tr>
            <tr class="mssansserif4">
              <td>Título:</td>
              <td colspan="3"><input name="TituloNoticia" type="text" id="TituloNoticia" size="50" value="<%= Noticias("TituloNoticia") %>"></td>
            </tr>
            <tr class="mssansserif4">
              <td>Sub-Título:</td>
              <td colspan="3"><input name="SubTituloNoticia" type="text" id="SubTituloNoticia" size="60" value="<%= Noticias("SubTituloNoticia") %>"></td>
            </tr>
            <tr class="mssansserif4">
              <td>Texto:</td>
              <td colspan="3" rowspan="2"><textarea name="TextoNoticia" cols="60" rows="10" id="TextoNoticia"><%= Noticias("TextoNoticia") %></textarea></td>
            </tr>
            <tr class="mssansserif4">
              <td> </td>
            </tr>
            <tr class="mssansserif4">
              <td>Foto:</td>
              <td colspan="3">
                <select name="IdImagem" id="IdImagem">
         		<option value="0">Sem foto</option>
                  <% BancoImagens.MoveFirst : While Not BancoImagens.EOF %>
				  	<% If BancoImagens("IdImagem") = Noticias("IdImagem") Then %>
	                  <option value="<%= BancoImagens("IdImagem") %>" selected><%= BancoImagens("NomeImagem") %></option>
					<% Else %>
	                  <option value="<%= BancoImagens("IdImagem") %>"><%= BancoImagens("NomeImagem") %></option>
					<% End If %>
                  <% BancoImagens.MoveNext : Wend %>
                </select>              </td>
            </tr>
            <tr class="mssansserif4">
              <td>Legenda:</td>
              <td colspan="3"><input name="FotoLegenda" type="text" id="FotoLegenda" size="60" value="<%= Noticias("FotoLegenda") %>"></td>
            </tr>
            <tr class="mssansserif4">
              <td>Destaque:</td>
              <td>
                <select name="DestaqueNoticia" id="DestaqueNoticia">
				<% If Noticias("DestaqueNoticia") = 1 Then %>
                  <option value="1" selected>Sim</option>
                  <option value="0">Não</option>
				<% Else %>
                  <option value="1">Sim</option>
                  <option value="0" selected>Não</option>
				<% End If %>
                </select>              </td>
              <td>Destaque2:
                <select name="DestaqueNoticia2" id="DestaqueNoticia2">
                  <% If Noticias("DestaqueNoticia2") = 1 Then %>
                  <option value="1" selected="selected">Sim</option>
                  <option value="0">Não</option>
                  <% Else %>
                  <option value="1">Sim</option>
                  <option value="0" selected="selected">Não</option>
                  <% End If %>
                </select></td>
              <td>Destaque3:
                <select name="DestaqueNoticia3" id="DestaqueNoticia3">
                  <% If Noticias("DestaqueNoticia3") = 1 Then %>
                  <option value="1" selected="selected">Sim</option>
                  <option value="0">Não</option>
                  <% Else %>
                  <option value="1">Sim</option>
                  <option value="0" selected="selected">Não</option>
                  <% End If %>
                </select></td>
            </tr>
            <tr class="mssansserif4">
              <td> </td>
              <td> </td>
              <td>Destaque4:
                <select name="DestaqueNoticia4" id="DestaqueNoticia4">
                  <% If Noticias("DestaqueNoticia4") = 1 Then %>
                  <option value="1" selected="selected">Sim</option>
                  <option value="0">Não</option>
                  <% Else %>
                  <option value="1">Sim</option>
                  <option value="0" selected="selected">Não</option>
                  <% End If %>
                </select></td>
              <td> </td>
            </tr>
            <tr class="mssansserif4">
              <td>Resumo:</td>
              <td colspan="3" rowspan="2"><textarea name="ResumoDestaque" cols="60" rows="5" id="ResumoDestaque"><%= Noticias("ResumoDestaque") %></textarea></td>
            </tr>
            <tr class="mssansserif4">
              <td> </td>
            </tr>
            <tr class="tahoma1">
              <td colspan="4"> </td>
            </tr>
            <tr class="tahoma1">
              <td colspan="4"><input name="acao" type="submit" class="botao" id="acao" value="Alterar dados">
                <input name="acao" type="submit" class="botao" id="acao" value="Apagar dados">
                <input name="IdNoticia" type="hidden" id="IdNoticia" value="<%= Noticias("IdNoticia") %>"></td>
            </tr>
          </table>
      </form>
	<%
		BancoImagens.Close
		Set BancoImagens = Nothing

		Cadernos.Close
		Set Cadernos = Nothing

		Autores.Close
		Set Autores = Nothing
		
		Editorias.Close
		Set Editorias = Nothing

		Noticias.Close
		Set Noticias = Nothing
	%>
	<% End If %>
</td>
  </tr>
</table>
<%
Conexao.Close
Set Conexao = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Khelly    0

Khelly
Postado

Eu insiro no banco por esse formulario do codigo que postei, os demais dados sao inseridos normalmente, apenas a data que vai para o banco zerado ao inves de aparecer o que o usuario digitou.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Você postou o código do formulário, mas o problema provavelmente está no código de inserção.

 

Acredito que você não está formatando a data antes de inserir no banco. Dê uma pesquisada no Fórum de ASP que encontrará uma função que formata data para MySQL.

 

Estou movendo o tópico para a área de ASP, por entender que é um problema com a programação e não o banco de dados.

 

Qualquer dúvida poste aqui.

 

 

Tópico movido.

 

Origem: MySQL http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Destino: ASP

Compartilhar este post

Link para o post
Compartilhar em outros sites

Khelly    0

Khelly
Postado

Obrigada Hargon...pessoal desculpem esqueci de postar o codigo de inserção, o codigo é esse aqui:

 

If Request.Form("acao") = "Incluir nova Notícia" Then
	Conexao.Execute "INSERT INTO Noticias (IdAutor,IdEditoria,IdCaderno,DataNoticia,hora,TituloNoticia,sobtitulonoticia,SubTituloNoticia,TextoNoticia,IdImagem,FotoLegenda,DestaqueNoticia,DestaqueNoticia2,DestaqueNoticia3,DestaqueNoticia4,ResumoDestaque) VALUES ("& Request.Form("IdAutor") &","& Request.Form("IdEditoria") &","& Request.Form("IdCaderno") &",'"& Replace(Request.Form("DataNoticia"),"'","''") &"','"& Replace(Request.Form("hora"),"'","''") &"','"& Replace(Request.Form("TituloNoticia"),"'","''") &"','"& Replace(Request.Form("sobtitulonoticia"),"'","''") &"','"& Replace(Request.Form("SubTituloNoticia"),"'","''") &"','"& Replace(Request.Form("TextoNoticia"),"'","''") &"',"& Request.Form("IdImagem") &",'"& Replace(Request.Form("FotoLegenda"),"'","''")  &"',"& Request.Form("DestaqueNoticia")  &","& Request.Form("DestaqueNoticia2")  &","& Request.Form("DestaqueNoticia3")  &","& Request.Form("DestaqueNoticia4")  &",'"& Replace(Request.Form("ResumoDestaque"),"'","''")  &"')"
	Response.Redirect("home.asp?item=noticias2")
End If

If Request.Form("acao") = "Alterar dados" Then
	Conexao.Execute "UPDATE Noticias SET IdAutor="& Request.Form("IdAutor") &",IdEditoria="& Request.Form("IdEditoria") &",IdCaderno="& Request.Form("IdCaderno") &",DataNoticia='"& Request.Form("DataNoticia") &"',hora='"& Replace(Request.Form("hora"),"'","''") &"',TituloNoticia='"& Replace(Request.Form("TituloNoticia"),"'","''") &"',sobtitulonoticia='"& Replace(Request.Form("sobtitulonoticia"),"'","''") &"',SubTituloNoticia='"& Replace(Request.Form("SubTituloNoticia"),"'","''") &"',TextoNoticia='"& Replace(Request.Form("TextoNoticia"),"'","''") &"',IdImagem="& Request.Form("IdImagem") &",FotoLegenda='"& Replace(Request.Form("FotoLegenda"),"'","''")  &"',DestaqueNoticia="& Request.Form("DestaqueNoticia") &",DestaqueNoticia2="& Request.Form("DestaqueNoticia2") &",DestaqueNoticia3="& Request.Form("DestaqueNoticia3") &",DestaqueNoticia4="& Request.Form("DestaqueNoticia4") &",ResumoDestaque='"& Replace(Request.Form("ResumoDestaque"),"'","''")  &"' WHERE IdNoticia="& Request.Form("IdNoticia")
	Response.Redirect("home.asp?item=noticias2")
End If

If Request.Form("acao") = "Apagar dados" Then
	Conexao.Execute "DELETE FROM Noticias WHERE IdNoticia="& Request.Form("IdNoticia")
	Response.Redirect("home.asp?item=noticias2")
End If

Conexao.Close
Set Conexao = Nothing

Grata

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Veja que você já recebe a data e insere ela direto na consulta, sem antes formatá-la.

 

Ela tem que ser tratada antes. Faça uma pesquisa aqui no Fórum de ASP que já existe uma solução para isso.

 

Qualquer dúvida poste aqui.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Khelly    0

Khelly
Postado

Mais uma vez obrigada hargon...e perdoe me esta sendo chata , mas nao consegui encontrar o topico, você poderia me indicar o link, por favor. grata

Compartilhar este post

Link para o post
Compartilhar em outros sites

giesta    29

giesta
Postado 

Conexao.Execute "INSERT INTO Noticias (IdAutor,IdEditoria,IdCaderno,DataNoticia,hora,TituloNoticia,sobtitulonoticia, SubTituloNoticia,TextoNoticia,IdImagem,FotoLegenda,DestaqueNoticia,DestaqueNoticia2, DestaqueNoticia3,DestaqueNoticia4,ResumoDestaque) VALUES ("& Request.Form("IdAutor") &","& Request.Form("IdEditoria") &","& Request.Form("IdCaderno") &", '"& Replace(Request.Form("DataNoticia"),"'","''") &"','"& Replace(Request.Form("hora"),"'","''") &"', '"& Replace(Request.Form("TituloNoticia"),"'","''") &"','"& Replace(Request.Form("sobtitulonoticia"),"'","''") &"', '"& Replace(Request.Form("SubTituloNoticia"),"'","''") &"','"& Replace(Request.Form("TextoNoticia"),"'","''") &"', "& Request.Form("IdImagem") &",'"& Replace(Request.Form("FotoLegenda"),"'","''")  &"', "& Request.Form("DestaqueNoticia")  &","& Request.Form("DestaqueNoticia2")  &", "& Request.Form("DestaqueNoticia3")  &","& Request.Form("DestaqueNoticia4")  &", '"& Replace(Request.Form("ResumoDestaque"),"'","''")  &"')"

 

 

o erro eh esse, mas o codigo eh uma sujerada q eu nao vou me meter...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ronaldo Bueno    23

Ronaldo Bueno
Postado

É impressão minha ou só os moderadores estão respondendo ...

 

faça o seguinte, coloque o campo na BD como (MySQL(varchar(10)), ACCESS (texto(10))) e e grave como o usuário digitou no form assim você não terá que tratar nem na hora de gravar e nem na hora que ler ok ?

 

Ronaldo

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dá um

response.write na sua string sql para ver o k esta sendo passado de valores

 

"INSERT INTO Noticias (IdAutor,IdEditoria,IdCaderno,DataNoticia,hora,TituloNoticia,sobtitulonoticia, SubTituloNoticia,TextoNoticia,IdImagem,FotoLegenda,DestaqueNoticia,DestaqueNoticia2, DestaqueNoticia3,DestaqueNoticia4,ResumoDestaque) VALUES ("& Request.Form("IdAutor") &","& Request.Form("IdEditoria") &","& Request.Form("IdCaderno") &", '"& Replace(Request.Form("DataNoticia"),"'","''") &"','"& Replace(Request.Form("hora"),"'","''") &"', '"& Replace(Request.Form("TituloNoticia"),"'","''") &"','"& Replace(Request.Form("sobtitulonoticia"),"'","''") &"', '"& Replace(Request.Form("SubTituloNoticia"),"'","''") &"','"& Replace(Request.Form("TextoNoticia"),"'","''") &"', "& Request.Form("IdImagem") &",'"& Replace(Request.Form("FotoLegenda"),"'","''")  &"', "& Request.Form("DestaqueNoticia")  &","& Request.Form("DestaqueNoticia2")  &", "& Request.Form("DestaqueNoticia3")  &","& Request.Form("DestaqueNoticia4")  &", '"& Replace(Request.Form("ResumoDestaque"),"'","''")  &"')"

 

response.write(SQL)

response.end()

 

e verifique no form como esta recuperando ela...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Khelly    0

Khelly
Postado

Obrigada a todos que estao me ajudando, vou testar as suas orientações e volto a postar pra dizer se funcionou...mais uma vez grata.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Khelly    0

Khelly
Postado

Meninos, fiz da seguinte maneira, porém continua não inserindo a data, vcs podem dizer onde estou errando?..grata

 

If Request.Form("acao") = "Incluir nova Notícia" Then

'recebe data ( dd/mm/yyyy )e da um split para transformar em array
data = Replace(Request.Form("DataNoticia"),"'","''")
array_data = split(data,"/")
mes = array_data(0)
dia = array_data(1)
ano = array_data(2)
'coloca no formato do banco
data_mysql = ano & "-" & "-" & mes & "-" & dia

	Conexao.Execute "INSERT INTO Noticias  (IdAutor,IdEditoria,IdCaderno,DataNoticia,hora,TituloNoticia,sobtitulonoticia,SubTituloNoticia,TextoNoticia,IdImagem,FotoLegenda,DestaqueNoticia,DestaqueNoticia2,DestaqueNoticia3,DestaqueNoticia4,ResumoDestaque) VALUES ("& Request.Form("IdAutor") &","& Request.Form("IdEditoria") &","& Request.Form("IdCaderno") &",'"& data_mysql &"','"& Replace(Request.Form("hora"),"'","''") &"','"& Replace(Request.Form("TituloNoticia"),"'","''") &"','"& Replace(Request.Form("sobtitulonoticia"),"'","''") &"','"& Replace(Request.Form("SubTituloNoticia"),"'","''") &"','"& Replace(Request.Form("TextoNoticia"),"'","''") &"',"& Request.Form("IdImagem") &",'"& Replace(Request.Form("FotoLegenda"),"'","''")  &"',"& Request.Form("DestaqueNoticia")  &","& Request.Form("DestaqueNoticia2")  &","& Request.Form("DestaqueNoticia3")  &","& Request.Form("DestaqueNoticia4")  &",'"& Replace(Request.Form("ResumoDestaque"),"'","''")  &"')"
	Response.Redirect("home.asp?item=noticias2")
		
	End If

If Request.Form("acao") = "Alterar dados" Then
	Conexao.Execute "UPDATE Noticias SET IdAutor="& Request.Form("IdAutor") &",IdEditoria="& Request.Form("IdEditoria") &",IdCaderno="& Request.Form("IdCaderno") &",DataNoticia='"& Request.Form("DataNoticia") &"',hora='"& Replace(Request.Form("hora"),"'","''") &"',TituloNoticia='"& Replace(Request.Form("TituloNoticia"),"'","''") &"',sobtitulonoticia='"& Replace(Request.Form("sobtitulonoticia"),"'","''") &"',SubTituloNoticia='"& Replace(Request.Form("SubTituloNoticia"),"'","''") &"',TextoNoticia='"& Replace(Request.Form("TextoNoticia"),"'","''") &"',IdImagem="& Request.Form("IdImagem") &",FotoLegenda='"& Replace(Request.Form("FotoLegenda"),"'","''")  &"',DestaqueNoticia="& Request.Form("DestaqueNoticia") &",DestaqueNoticia2="& Request.Form("DestaqueNoticia2") &",DestaqueNoticia3="& Request.Form("DestaqueNoticia3") &",DestaqueNoticia4="& Request.Form("DestaqueNoticia4") &",ResumoDestaque='"& Replace(Request.Form("ResumoDestaque"),"'","''")  &"' WHERE IdNoticia="& Request.Form("IdNoticia")
	Response.Redirect("home.asp?item=noticias2")
End If

If Request.Form("acao") = "Apagar dados" Then
	Conexao.Execute "DELETE FROM Noticias WHERE IdNoticia="& Request.Form("IdNoticia")
	Response.Redirect("home.asp?item=noticias2")
End If

Conexao.Close
Set Conexao = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você fez o

response.write(SQL)
response.end()

e verifique no form como esta recuperando ela...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Khelly    0

Khelly
Postado

Xanburzum desculpe se a pergunta é boba (Mas sou nova em programação) mais onde em meu codigo eu encaixo o response write coloquei no inicio dele e não me retornou nada...você pode me ajudar?..grata

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

coloca antes do seu redirect, pois dae você verá o k esta sendo executado na sua string SQL, para ver os valores k esta passando, ou tb você pode colocar em seus request, nas variaveis para ter certeza k estaun vindo com valores corretos...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Lennontoledo    0

Lennontoledo
Postado

opa...

 

então eu estava com a mesma dúvida..

 

usei uma parte do seu código e tbm não funcionou..

 

ai resolvi mexer e fungo..

 

segue ele abaixo.. caso ainda esteje precisando.

 

'recebe data ( dd/mm/yyyy )e da um split para transformar em array
data = Replace(Request.Form("data_saida_livrocaixa"),"","")
array_data = split(data,"/")
dia = array_data(0)
mes = array_data(1)
ano = array_data(2)
'coloca no formato do banco
data_formatada = ano & "-" & mes & "-" & dia

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