Update importando arquivo do Excel

[dcoder]

Boa tarde a todos!!!

Estou com dificuldades para dar update em meu bd, retorna o seguinte erro:

Tipo de erro:

Microsoft JET Database Engine (0x80040E14)

Erro de sintaxe na instrução UPDATE.

/sigma/excel2.asp, line 51

Pesquisei no forum e parece que meu código esta certo, segue o script, tenho o mesmo que faz o insert estou adaptando para realizar o Update:

Cmd.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("dados/geral.mdb")
%>

<%
Dim Conn, RS
Dim Campos, contador

'// CONECTAMOS COM O BANCO DE DADOS
Set Conn = CreateObject("ADODB.Connection")
With Conn
.Provider = "Microsoft.Jet.OLEDB.4.0"

'// Nesta linha monto a conexao com um arquivo do Excel
.ConnectionString = "Data Source="& Server.MapPath("fonte.xls") &";Extended Properties=Excel 8.0;"
.Open
End With

'// AO CRIAR O RECORDSET, O SELECT INDICA O NOME DA PLANILHA DO ARQUIVO
Set RS = Conn.Execute("SELECT * FROM [fonte$] ")

'// CONTAMOS QUANTAS LINHAS EXISTEM NO ARQUIVO
Campos = RS.Fields.Count

'// INICIAMOS O LOOP
response.write "<table border=""1"">"
Do While RS.EOF = False
response.write "<tr>"
'// Aqui informamos os nomes das colunas para então lista os resultados
response.write "<td><font size=1 face=verdana><b>" &    RS("dtentrega")   & "</td>"
response.write "<td><font size=1 face=verdana><b>" &    RS("item")        & "</td>"
response.write "<td><font size=1 face=verdana><b>" &    RS("cliente")     & "</td>"
response.write "<td><font size=1 face=verdana><b>" &    RS("endent")      & "</td>"
response.write "<td><font size=1 face=verdana><b>" &    RS("fab")         & "</td>"
response.write "<td><font size=1 face=verdana><b>" &    RS("qtembalagem") & "</td>"
response.write "<td><font size=1 face=verdana><b>" &    RS("embalagem")   & "</td>"
response.write "<td><font size=1 face=verdana><b>" &    RS("total")       & "</td>"
response.write "</tr>"

dtentrega   = RS("dtentrega")
item        = RS("item")
cliente     = RS("cliente")
endent      = RS("endent")
fab         = RS("fab")
qtembalagem = RS("qtembalagem")
embalagem   = RS("embalagem")
total       = RS("total")

cmd.CommandText="update FIAT set(dtentrega=dtentrega,item=item,cliente=cliente,endent=endent,fab=fab,qtembalagem=qtembalagem,embalagem=embalagem,total=total WHERE dtentrega=dtentrega,item=item,cliente=cliente,endent=endent,fab=fab,qtembalagem=qtembalagem,embalagem=embalagem,total=total)"
Cmd.Execute quant,Array(dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total) 

RS.MoveNext
Loop
response.write "</table>"

'// EXIBIMOS A QUANTIDADE DE REGISTROS ENCONTRADOS
response.write campos

'// FECHAMOS E DESCONECTAMOS O RECORDSET E A CONEXÃO UTILIZADA
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing 
%>


<%set Cmd = nothing%>

Mais uma vez obrigado pela atenção de todos...

[Rafael Spilki]

A sintaxe está errada!

é assim:

cmd.CommandText="update FIAT set(dtentrega='"&dtentrega&"',item='"&item&"',cliente='"&cliente&"',endent='"&endent&'"...

isso para campos do tipo text e data... se for numero tirar ' (aspas simples)

[dcoder]

Ok Rafael, obrigado pela atenção, vou modificar aqui....

[]'s

[dcoder]

Não funcionou cara, esta dando o mesmo erro !!!

cmd.CommandText="update FIAT set(dtentrega='"&dtentrega&"',item='"&item&"',cliente='"&cliente&"',endent='"&endent&'",fab='"&fab&"'.........

[]'s

[Rafael Spilki]

item é numero ou texto?

Dessa instrução toda, quais campos estão no bd como nro?

"update FIAT set(dtentrega=dtentrega,item=item,cliente=cliente,endent=endent,fab=fab,qtembala
gem=qtembalagem,embalagem=embalagem,total=total WHERE dtentrega=dtentrega,item=item,cliente=cliente,endent=endent,fab=fab,qtembalagem=
qtembalagem,embalagem=embalagem,total=total)"

Liste campo por campo por gentileza especificando seus formatos!

[]'s

[dcoder]

Ok,

dtentrega = data

item = numero

cliente = texto

endent = texto

fab = texto

qtembalagem = numero

embalagem = texto

total = numero

Estou com erro nessa linha agora:

Microsoft JET Database Engine (0x80040E14)

Erro de sintaxe na instrução UPDATE.

/sigma/excel2.asp, line 52

Cmd.Execute quant,Array(dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total)

se eu rtiro a linha funciona porém o banco não é alterado.. tentei assim tambem:

Cmd.Execute quant,Array=("dtentrega,item,cliente,endent,fab,qtembalagem,embalagem,total")

mais me retorna esse erro:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis

/sigma/excel2.asp, line 52

[]'s

Editado Fevereiro 17, 2009 por dcoder