Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) *'* U-P-D-A-T-E *'*


AAAAAOOOOO

Pergunta

Primeiramente Bom dia a todos:

Estou tentando realizar uma alteração no meu bd

Mas está dando o seguinte erro:

Microsoft OLE DB Provider for ODBC Drivers erro '80040e14'

[MySQL][ODBC 5.1 Driver][mysqld-4.1.22-community-nt-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '9:43:53,IpAlterado='192.168.0.1' WHERE ID=17' at line 1

Segue o update:

If Request.Form("Alterar") = "Alterar" Then

ID = RemoveLixo(Request.Form("ID"))

Titulo = RemoveLixo(Request.Form("Titulo"))

Descricao = RemoveLixo(Request.Form("Descricao"))

DataInicio = RemoveLixo(Request.Form("DataInicio"))

DataFim = RemoveLixo(Request.Form("DataFim"))

Texto = RemoveLixo(Request.Form("Texto"))

DataAlterado = ""& Year(Now) &"/"& Month(Now) &"/"& Day(Now) &" "& Hour(Now) &":"& Minute(Now) &":"& Second(Now) &""

IpAlterado = Request.ServerVariables("REMOTE_ADDR")

If Erro = "" Then

If DataInicio <> "" Then DataInicio = ""& Year(CDate(DataInicio)) &"/"& Month(CDate(DataInicio)) &"/"& Day(CDate(DataInicio)) &""

If DataFim <> "" Then DataFim = ""& Year(CDate(DataFim)) &"/"& Month(CDate(DataFim)) &"/"& Day(CDate(DataFim)) &""

If DataInicio = "" Then

DataInicio = "Null"

Else

DataInicio = ""& DataInicio &""

End If

If DataFim = "" Then

DataFim = "Null"

Else

DataFim = ""& DataFim &""

End If

Valores = "Titulo='"& Titulo &"',"

Valores = Valores & "Descricao='"& Descricao &"',"

Valores = Valores & "DataInicio='"& DataInicio &"',"

Valores = Valores & "DataFim='"& DataFim &"',"

Valores = Valores & "Texto='"& Texto &"',"

Valores = Valores & "DataAlterado="& DataAlterado &","

Valores = Valores & "IpAlterado='"& IpAlterado &"'"

Call AbreConexao(Conex)

Conex.Execute("UPDATE agenda SET "& Valores &" WHERE ID="& ID)

Call FechaConexao(Conex)

Session("Aviso") = "AGENDA ALTERADA COM SUCESSO!"

Response.Redirect "Admin_AltAgenda.asp?Pagina="& Request.QueryString("Pagina") &"&Order="& Request.QueryString("Order") &"&CresDesc="& Request.QueryString("CresDesc") &""

End If

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...