[Resolvido] Modificação da notícia

[Dias Sanches 0]

Bom dia a todos,

 

possuo este código aqui:

 

<% 
set db = server.CreateObject("ADODB.connection")
dim caminho
caminho = server.MapPath("../dados/dados.mdb")
db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho
Classe = request.form("Noticia")
Titulo = request.Form("Titulo1")
Chamada = request.Form("Chamada")
Cabecalho = request.Form("Titulo2")
Noticia = request.Form("Materia")
Data2 = request.Form("Data")
id = request.form("id")
sql = "update Noticia set Classe='"&Classe&"', Titulo='"&Titulo&"', Chamada='"&Chamada&"', Cabecalho='"&Cabecalho&"', Noticia='"&Noticia&"', Data2='"&Data2&"' where id="&id&""
set rs = db.execute(sql)

response.redirect "admin.asp?id=" & Request.QueryString("id")
rs.close
db.close
set rs = nothing
set db = nothing

%>

Está aparecendo o seguinte erro

 

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

 

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'id='.

 

/admin/altera1.asp, line 35

 

 

A linha 35 é :sql = "update Noticia set Classe='"&Classe&"', Titulo='"&Titulo&"', Chamada='"&Chamada&"', Cabecalho='"&Cabecalho&"', Noticia='"&Noticia&"', Data2='"&Data2&"' where id="&id&""

 

Eu já li várias vezes e não consegui encontrar o erro vocês poderiam me ajudar?

 

Abs

[Gilberto Jr 26]

No final esta faltando as aspas simples

where id='"&id&"'

ou como é numero o valor do id você pode deixar assim

where id="&id

[Dias Sanches 0]

Oi Gilberto

 

Quando coloco

where id="&id

Aparece

 

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

 

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'id='.

 

/admin/altera1.asp, line 36

 

 

Se coloco:

 

where id="&id""

Erro de compilação do Microsoft VBScript erro '800a0401'

 

Fim da instrução esperado

 

/admin/altera1.asp, line 35

 

sql = "update Noticia set Classe='"&Classe&"', Classe1='"&Classe1&"', Titulo='"&Titulo&"', Chamada='"&Chamada&"', Cabecalho='"&Cabecalho&"', Noticia='"&Noticia&"', Data2='"&Data2&"' where id="&id""

 

Se coloco:

where id='"&id&"'

Erro de compilação do Microsoft VBScript erro '800a0409'

 

Constante de seqüência não finalizada

 

/admin/altera1.asp, line 35

 

sql = "update Noticia set Classe='"&Classe&"', Classe1='"&Classe1&"', Titulo='"&Titulo&"', Chamada='"&Chamada&"', Cabecalho='"&Cabecalho&"', Noticia='"&Noticia&"', Data2='"&Data2&"' id='"&id&"'

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

 

Se coloco:

where id='"&id&"'"

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

 

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta ''' id='''.

 

/admin/altera1.asp, line 36

[Gilberto Jr 26]

Se coloco:

where id='"&id&"'

 

Erro de compilação do Microsoft VBScript erro '800a0409'

 

Constante de seqüência não finalizada

 

/admin/altera1.asp, line 35

 

sql = "update Noticia set Classe='"&Classe&"', Classe1='"&Classe1&"', Titulo='"&Titulo&"', Chamada='"&Chamada&"', Cabecalho='"&Cabecalho&"', Noticia='"&Noticia&"', Data2='"&Data2&"' id='"&id&"'

 

Nessa SQL que voce postou faltou você indicar qual noticia ele deve atualizar atraves do where.

 

sql = "update Noticia set Classe='"&Classe&"', Classe1='"&Classe1&"', Titulo='"&Titulo&"', Chamada='"&Chamada&"', Cabecalho='"&Cabecalho&"', Noticia='"&Noticia&"', Data2='"&Data2&"' where id='"&id&"'

[Dias Sanches 0]

Oi Gilberto,

 

Funcionou,

 

Estava faltando um detalhe no fomulário

 

Valeu

[Gilberto Jr 26]

Parabens, qualquer duvida posta ai! Moderadores podem fechar o topico.

[xanburzum 169]

Beleza, futuramente se precisarmos dar continuidade , me mandem uma MVP...