(Resolvido) Erro no comando Update

[Wnagot]

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

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^

[MrMALJ]

Fera a única coisa que pode estar causando esse erro é que na expressão SQL você não a está finalizando com ponto e virgula assim:

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 & ";"

Deve resolver mais pelo sim pelo não vou mover seu tópico para a sessão de ASP do forum!

[bareta]

sempre poste código dentro de tags code

 & [ / code ]

[Wnagot]

Amigo, mesmo colocando o ; não funcionou. O mais engraçado é que este código funciona no provedor Osasco Telecom e agora que o site foi migrado para Locaweb não funciona mais.

[rodrigotnoma]

Opa, experimente assim:

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 & ""

Abços.

Editado Março 19, 2010 por rodrigotnoma

[bareta]

para encontrar mais facil use um response.write na sql

erro:

id_controle = "& id_controle"

em vez disso

Set RS = Conn.Execute (InstrucaoSQL)
Conn.Close 
Set RS = Nothing
Set Conn = Nothing

use simplesmente

Conn.Execute (InstrucaoSQL)

se não resolver use...

InstrucaoSQL="..."
response.write InstrucaoSQL
response.end()

imprima na tela e analise sua sql

[Wnagot]

Amigo, obrigado!

Funcionou.