[Resolvido] Erro no comando update

[Wnagot 0]

Amigos, estou tendo dificuldade com o comando abaixo em uma pag ASP, poderiam me ajudar? Muito Obrigado!

 

Código:

<%
Dim Conn
Dim RS
   
 Set Conn = Server.CreateObject("ADODB.Connection")
      ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\massacritica\dados\massa.mdb;"
   
    Conn.Open ConnString
 
  InstrucaoSQL = "UPDATE cadastro set semestre = '"&semestre&"', nome = '"&nome&"', rg = '" & rg & "', telefone ='" & telefone & "', celular = '" & celular & "', email = '" & email & "', id_controle = "& id_controle", destino ='" & destino & "', prihorario ='" & prihorario & "', dia_1 ='" & dia_1 & "', seghorario ='" & seghorario & "', dia_2 ='" & dia_2 & "', prisaida ='" & prisaida & "', dia_3 ='" & dia_3 & "', segsaida ='" & segsaida & "', dia_4 ='" & dia_4 & "', tersaida ='" & tersaida & "', dia_5 = '" & dia_5 & "', observacao = '" & observacao & "' WHERE id ="& id 
 
 Set RS = Conn.Execute (InstrucaoSQL)
      Conn.Close 
      Set RS = Nothing
      Set Conn = Nothing
    
Response.redirect("atualiza_ok.asp") 
       
%>

 

ERRO:

Microsoft VBScript compilation error '800a0401'

 

Expected end of statement

 

 

/grava_altera.asp, line 36

InstrucaoSQL = "UPDATE cadastro set semestre = '"&semestre&"', nome = '"&nome&"', rg = '" & rg & "', telefone ='" & telefone & "', celular = '" & celular & "', email = '" & email & "', id_controle = "& id_controle", destino ='" & destino & "', prihorario ='" & prihorario & "', dia_1 ='" & dia_1 & "', seghorario ='" & seghorario & "', dia_2 ='" & dia_2 & "', prisaida ='" & prisaida & "', dia_3 ='" & dia_3 & "', segsaida ='" & segsaida & "', dia_4 ='" & dia_4 & "', tersaida ='" & tersaida & "', dia_5 = '" & dia_5 & "', observacao = '" & observacao & "' WHERE id ="& id

[jothaz 1]

Troque:

 

id_controle = " & id_controle"

 

Por:

id_controle = " & id_controle & "

[Wnagot 0]

Jothaz, muito obrigado funcionou em partes, agora o erro é outro, poderia ajudar novamente?

 

Tipo de erro:

Microsoft JET Database Engine (0x80004005)

A operação deve usar uma consulta atualizável.

/massa/grava_altera.asp, line 40

[jothaz 1]

E problema com permissão na pasta do mdb dê uma olhada!

 

E por desencargo de consciência adicione:

 

ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\massacritica\dados\massa.mdb;"
 
Conn.Mode = 3 	'3 = adModeReadWrite 

Conn.Open ConnString 

[xanburzum 169]

seta as permissões de leitura/gravação no banco e no arquivo ASP, existe um tópico, um Guia sobre esse erro, dê uma pesquisada

[Wnagot 0]

Jothaz,

muito obrigado, funcionou!