Ajuda No Comando Update

[Guest - Thiago -]

Estou tentando fazer um comando para editar o banco de dados mas não esta funcionano o codigo. por favor me ajudem.

<%

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open "driver={microsoft access driver (*.mdb)}; dbq=" & server.mappath("db/americanas.mdb")

if session("admin") = 0 then

codigo = Request.form("codigo")

operador = Request.form("operador")

numerobc = Request.form("numerobc")

dataverif = Request.form("dataverif")

databc = Request.form("databc")

parceiro = Request.form("parceiro")

cnl = Request.form("cnl")

ddd = Request.form("ddd")

terminal = Request.form("terminal")

os = Request.form("os")

pedido = Request.form("pedido")

obs = Request.form("obs")

status = Request.form("status")

cpf = Request.form("cpf")

rg = Request.form("rg")

email = Request.form("email")

ender = Request.form("ender")

cep = Request.form("cep")

nome = Request.form("nome")

nomeop = Request.form("nomeop")

andamento = Request.form("andamento")

if operador = "" then operado = " "

if numerobc = "" then numerobc = " "

if dataverif = "" then dataverif = " "

if databc = "" then databc = " "

if parceiro = "" then parceiro = " "

if cnl = "" then cnl = " "

if ddd = "" then ddd = " "

if terminal = "" then terminal = " "

if os = "" then os = "Sem OS emitida"

if pedido = "" then pedido = " "

if obs = "" then Response.write("obs em branco")

if status = "inclui_americanas.asp" then status = "Stand BY"

if status = "ic.asp" then status = "Cancelado"

if status = "ii.asp" then status = "Indevido"

if status = "ipg.asp" then status = "Pagamento Recusado"

if status = "imt.asp" then status = "Modem Terceiros"

if status = "isc.asp" then status = "Sem Cadastro"

if cpf = "" then cpf = " "

if rg = "" then rg = " "

if email = "" then email = " "

if ender = "" then ender = " "

if cep = "" then cep = " "

if nome = "" then nome = " "

if nomeop = "" then nomeop = " "

if andamento = "" then andamento = " "

thi = "update americanas set operador = '" & operador & "', numerobc ='" & numerobc & "', dataverif ='" & dataverif & "', databc ='" & databc & "', parceiro ='" & parceiro & "', cnl ='" & cnl & "', ddd ='" & ddd & "', terminal ='" & terminal & "', os ='" & os & "', status ='" & status & "', cpf ='" & cpf & "', email ='" & email & "', ender ='" & ender & "', cep ='" & cep & "', nome ='" & nome & "', nomeop ='" & nomeop & "', andamento ='" & andamento & "' where codigo = '" & codigo

response.write thi

conexao.execute thi

response.redirect("inclui_americanas.asp")

%>

<% else

response.redirect("inclui_americanas.asp")

end if %>

Por favor me ajudem com o codigo.. grato!

[dark0]

Estou tentando fazer um comando para editar o banco de dados mas não esta funcionano o codigo. por favor me ajudem.

ok.. podemos ajudar sim

mas cadê o erro? porque não esta funcionando?

antes de quebrar a cabeça, veja se todas aquelas variaveis, pegadas com o Request, estão com valor.

O primeiro erro pode estar aí!

[Guest Guest]

update americanas set operador = 'Thiago', numerobc ='46545', dataverif ='15/04', databc ='14/04', parceiro ='Americanas', cnl ='65465', ddd ='654', terminal ='6546', os ='564564', status ='Stand BY', cpf =' f', email =' f', ender =' ff', cep =' ff', nome ='4564564dsf', nomeop =' ', andamento ='Em verificação' where codigo =

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

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'codigo ='.

/americanas/editar.asp, line 57

edsta dando esse erro

[dark0]

olhe para seu codigo.

Logo abaixo do IF..

tem isso:

if session("admin") = 0 then

codigo = Request.form("codigo")

aqui, você esta recuperando o valor do campo CODIGO do formulario. Existe um campo com esse nome?

O erro que dá, é operador faltando.. ou seja, no seu WHERE, uma das variaveis esta vazia. No Caso, o script mostrou que é o CODIGO que esta sem valor.

Veja se esse é mesmo o nome do campo, e porque ele esta vindo sem valor!

Abraços

[Guest Guest]

e se eu tirar essa variavel?

[dark0]

se você tirar a variavel, todo o banco de dados será atualizado. e não só o registro que você quer.

Entenda o SQL:

UPDATE nome_tabela SET campo1 = variavel1, campo2 = variavel2 WHERE campo_codigo = variavel_codigo

traduzindo:

ATUALIZE nome_tabela ALTERANDO campo1 = variavel1, campo2 = variavel2 ONDE campo_codigo = variavel_codigo

O comando WHERE, define onde vai acontecer a atualização.

Se você não definir nada nele, O banco todo é atualizado.

Imagine uma tabela do banco, como uma tabela mesmo:

Codigo Campo1 Campo2

- 1 - 10 - Joao

- 2 - 11 - Maria

Imagine assim. Como o seu codigo vai saber onde é para ele atualizar? No joao, ou na Maria?

então, você coloca o WHERE, e diz pra ele: Atualiza onde o codigo for igual a 1, ou seja, no Joao.

Entendeu?

Abraços

[[ GuTo ]]

opa... http://scriptbrasil.com.br/forum/index.php...ndpost&p=155264