Alteração de dados no banco access ASP

[Danielle Anadinho 0]

http://forum.imasters.com.br/public/style_emoticons/default/blush.gif Estou com um probleminha... Comecei a mexer com ASP há pouco tempo, e...

To com uma tela de cadastro de clientes, já fiz inclusão, busca... mas não to conseguindo fazer alteração no banco de dados. Comecei a codificar essa função, gostaria q alguem me dissesse o q tá faltando pra alteração ser concluída?

sub alterar

 

'Faz conexão com o DB

set cn = server.CreateObject("adodb.connection")

set rs = server.CreateObject("adodb.Recordset")

cn.CursorLocation =3

cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("danielle.mdb")

set rs.ActiveConnection = cn

 

str_sql = "SELECT * FROM tab_01 where cl_cd ="& str_cod_r

rs.Open str_sql

str_sql = "UPDATE tab_01 SET"

str_sql = str_sql & "cl_nm='"&str_nome_r&"', cl_dt_nasc='"&str_dtnasc_r&"', "

str_sql = str_sql & "cl_end='"&str_end_r&"', cl_tel= "&str_tel_r&", "

str_sql = str_sql & "cl_rg= "&str_rg_r&", cl_cpf= "&str_cpf_r

str_sql = str_sql & "where cl_cd ="& str_cod_r

 

cn.Execute (str_sql)

retorno_r=5

 

end sub

[guiamericano 0]

ele não retorna nenhum erro???parece faltar um espaço depois do SET e antes do WHERE...str_sql = "UPDATE tab_01 SET "str_sql = str_sql & "cl_nm='"&str_nome_r&"', cl_dt_nasc='"&str_dtnasc_r&"', "str_sql = str_sql & "cl_end='"&str_end_r&"', cl_tel= "&str_tel_r&", " str_sql = str_sql & "cl_rg= "&str_rg_r&", cl_cpf= "&str_cpf_rstr_sql = str_sql & " WHERE cl_cd ="& str_cod_r

[Danielle Anadinho 0]

retorna sim, diz que é erro de sintaxe, mas n consegui enchergar... É o seguinte:Microsoft JET Database Engine error '80040e14' Erro de sintaxe na instrução UPDATE. line 154 essa linha é a do execute

[guiamericano 0]

me diz oque ele escreve assim:sub alterar'Faz conexão com o DBset cn = server.CreateObject("adodb.connection") set rs = server.CreateObject("adodb.Recordset") cn.CursorLocation =3cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("danielle.mdb")set rs.ActiveConnection = cn str_sql = "SELECT * FROM tab_01 where cl_cd ="& str_cod_r rs.Open str_sql str_sql = "UPDATE tab_01 SET "str_sql = str_sql & "cl_nm='"&str_nome_r&"', cl_dt_nasc='"&str_dtnasc_r&"', "str_sql = str_sql & "cl_end='"&str_end_r&"', cl_tel= "&str_tel_r&", " str_sql = str_sql & "cl_rg= "&str_rg_r&", cl_cpf= "&str_cpf_rstr_sql = str_sql & " WHERE cl_cd ="& str_cod_r Response.Write(str_sql)Response.End()'cn.Execute(str_sql)retorno_r=5 end sub

[Danielle Anadinho 0]

ah tah!!! tinha feito isso.. Bom qdo eu busco um cadastro ele me retorna beleza, aí eu altero algum campo e no response tenho todos os campos do update e os dados alterados estão corretos.... ele só nao executa, gravando isso no banco de dadoscom o código assim como você sugeriu

[guiamericano 0]

não entendi, conseguiu alterar?pode ser algum campo que num é numérico no banco e esta sem aspas simples ou algum campo que é numérico no banco e esta com aspas simples na linha de comando do UPDATE...

[Danielle Anadinho 0]

Eu conferi isso, as aspas estão certas...É o seguinte: eu busco um cadastro e ele me retorna os dados na tela, daí eu vou em um campo qqr e faço uma mudança, qdo eu peço pra escrever (response.write (str_sql)) ele me escreve os dados já existentes no cadastro buscado juntamente com as alteraçoes que eu fiz, mas isso n eh gravado no DB pois o execute n funciona como havia te mostrado.

[guiamericano 0]

tenta agora...sub alterar'Faz conexão com o DBset cn = server.CreateObject("adodb.connection") set rs = server.CreateObject("adodb.Recordset") cn.CursorLocation =3cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("danielle.mdb")set rs.ActiveConnection = cn str_sql = "SELECT * FROM tab_01 where cl_cd ="& str_cod_r rs.Open str_sql str_sql = "UPDATE tab_01 SET "str_sql = str_sql & "cl_nm='"&str_nome_r&"', cl_dt_nasc='"&str_dtnasc_r&"', "str_sql = str_sql & "cl_end='"&str_end_r&"', cl_tel= "&str_tel_r&", " str_sql = str_sql & "cl_rg="&str_rg_r&", cl_cpf="&str_cpf_rstr_sql = str_sql & " WHERE cl_cd ="& str_cod_r cn.Execute(str_sql)retorno_r=5 end sub

[Danielle Anadinho 0]

ih cara!! continua com o mesmo erro do execute, mas tipo a mudança q você fez foi só dos espaços dentro do UPDATE?

[guiamericano 0]

foinão sei mais oque pode ser...os campos numéricos nenhum estao indo em branco né?

[Danielle Anadinho 0]

foi mal!!! deu certo sim... valeu!!! eram os espaços depois do set e antes do where msm, como você tinha dito desde o inicio... nunca ia imaginar isso... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif