Update será que da pra fazer?

[Michel_ 0]

Olá pessoal é o seguinte, estou fazendo um sisteminha simples de administração para um site que desenvolvi. e preciso fazer um sistema de inclusão alteração e exclusão, coisas básicas, eu queria fazer uma página para funções, eu fiz mas no update não esta dando certo, ja busquei vários tópicos aqui no forum e nada, deem uma olhada no código:

 

<!--#include file="db.asp"--><%If Request.QueryString("acao") = 1 Then	Call Inclui_auto()End IfIf Request.QueryString("acao") = 2 Then	Call  altera()End If'Incluir automóvel--------->Function Inclui_auto()If request.form("enviado") = "sim" ThenCadastrado =Falseset Dicionario = CreateObject("scripting.dictionary")i = 0Sql = "SELECT Codigo FROM Protocolo WHERE Codigo = '"&Request.form("codigo")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, response.Redirect("incluir_auto.asp?msg=cod")i= i+1end ifend ifVet = Dicionario.itemsif Dicionario.Count<>0 thenResponse.Write "<b><center><font face=verdana size=1>"Response.Write "O(s) seguintes dado(s) está(ão) incorreto(s)<BR><br>"for i = 0 to Dicionario.Count - 1Response.Write vet(i) & "<BR><br>"nextresponse.write "<BR><br>"ElseSql = "INSERT INTO Protocolo (Codigo,Origem,Destino,Situacao,Data,Hora)"Sql = Sql & "VALUES('" & Request.Form("codigo") & "', '"& Request.Form("origem") & "', '"& Request.Form("destino") & "', '"& Request.Form("situacao") &"', '"& Request.Form("data") & "', '"& Request.Form("hora") & "')" Conexao.Execute(Sql)Cadastrado = TrueEnd If response.Redirect("incluir_auto.asp?msg=ok") end FunctionFunction altera()Sql = "Update Protocolo Set  '" & Request.Form("codigo") & "', '"& Request.Form("origem") & "', '"& Request.Form("destino") & "', '"& Request.Form("situacao") &"', '"& Request.Form("data") & "', '"& Request.Form("hora") & "')" Conexao.Execute(Sql)

[meirelles 0]

verifica as strings sql

exemplo das variaveis

 

nome =request.form("nome")

idade = request.form("idade")

...assim por diante

 

ex sql pra você se guiar:

sql = "update tbmembro set nome = '"& nome &"',sexo = '"& sexo &"',idade = '"& idade &"',descricao = '"& descricao &"',estado = '"& estado &"',zona = '"& zona &"',email = '"& email &"',msn = '"& msn &"',senha = '"& senha &"' where login='" & login &"'"

 

fique atento para os campos de numerico você deve utilizar somenre aspas duplas na hora da string sql.

 

exemplo errado = ' " & codigo & " '

 

exemplo certo = " & codigo & "

 

Fernando Meirelles

msn = mixando@hotmail.com

site = http://www.portalbnb.com/coxixo

[N3G4T1V3 0]

Além de o que o meireles falou do aspas duplas para campos de string, verifique os campos de data e hora devem ser usados assim:#"& Request.Form("data") & "#