[Resolvido] tipos de dados incompatíveis

[rd111072 1]

Bom dia, moçada...

 

Estou tentando fazer um update mas está dando o erro "data type mismatch".

 

Para fazer insert tudo bem, mas quando tento o update dá esse erro.

 

Já dei um response/write e escreveu os dados assim:

 

Update geral Set titulo= 'teste x', chamada= 'asssssssssss sassssssssssssss link', data= '29/09/2008', conteudo= 'asaaaaaaaaa assssssssssssssss adssa', tiss= 'pac/', edicao= 'pac/', imgcapa= 'pac/', nedicao= 'Nº 00 - ano 0 - Mes ANO / Mes ANO', fonte= '' , secao= 'clipping' Where id='16'

 

o código é esse:

 

<!-- #include file = "upload_funcoes.asp" -->


<%

' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin



' Recuperando os Dados Digitados ----------------------

id = UploadRequest.Item("id").Item("Value")
secao = UploadRequest.Item("secao").Item("Value")
titulo = UploadRequest.Item("titulo").Item("Value")
chamada = UploadRequest.Item("chamada").Item("Value")
tiss = UploadRequest.Item("tiss").Item("Value")
conteudo = UploadRequest.Item("conteudo").Item("Value")
data = UploadRequest.Item("data").Item("Value")
nedicao = UploadRequest.Item("nedicao").Item("Value")
edicao = UploadRequest.Item("edicao").Item("Value")
imgcapa = UploadRequest.Item("imgcapa").Item("Value")
fonte = UploadRequest.Item("fonte").Item("Value")
'usuario = UploadRequest.Item("usuario").Item("Value")
'tiss = UploadRequest.Item("tiss").Item("Value")

' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("tiss").Item("ContentType")
tipo_fotoed = UploadRequest.Item("edicao").Item("ContentType")
tipo_fotocp = UploadRequest.Item("imgcapa").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("tiss").Item("FileName")
caminho_fotoed = UploadRequest.Item("edicao").Item("FileName")
caminho_fotocp = UploadRequest.Item("imgcapa").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))
nome_fotoed = Right(caminho_fotoed,Len(caminho_fotoed)-InstrRev(caminho_fotoed,"\"))
nome_fotocp = Right(caminho_fotocp,Len(caminho_fotocp)-InstrRev(caminho_fotocp,"\"))

' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("tiss").Item("Value")
fotoed = UploadRequest.Item("edicao").Item("Value")
fotocp = UploadRequest.Item("imgcapa").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("2008_R/tiss/pac")
nome_foto = "/"&nome_foto
nome_fotoed = "/"&nome_fotoed
nome_fotocp = "/"&nome_fotocp

' pasta + nome dos arquivos
cfoto = "pac" + nome_foto
cfotoed = "pac" + nome_fotoed
cfotocp = "pac" + nome_fotocp
	
' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
For i = 1 to LenB(foto)
MyFile.Write chr(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if
' Fazendo o Upload do arquivo selecionado
if fotoed <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_fotoed)
For i = 1 to LenB(fotoed)
MyFile.Write chr(AscB(MidB(fotoed,i,1)))
Next
MyFile.Close
end if
' Fazendo o Upload do arquivo selecionado
if fotocp <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_fotocp)
For i = 1 to LenB(fotocp)
MyFile.Write chr(AscB(MidB(fotocp,i,1)))
Next
MyFile.Close
end if


' Conecta-se ao Banco de Dados
'Set conn = Server.CreateObject("ADODB.Connection")
	'strConexao = "Provider=SQLOLEDB;Data Source=178.178.2.12;User Id=sa;Password=assistsqlotimo;Initial Catalog=medico;Connect Timeout=10"
	'Set RS = Server.CreateObject("ADODB.Recordset")
	'conn.open strConexao 

db = Server.MapPath("2008_R/pac.mdb") 
connstring = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open connstring

' cadastra os dados no banco de dados
SQL="Update geral Set titulo= '" & titulo & "', chamada= '" & chamada & "', data= '" & data & "', conteudo= '" & conteudo & "', tiss= '" & cfoto & "', edicao= '" & cfotoed & "', imgcapa= '" & cfotocp & "', nedicao= '" & nedicao & "', fonte= '" & fonte & "' , secao= '" & secao & "' Where id='" & id & "'"
response.write(SQL)
response.end

set RS = Conn.Execute(SQL)

' Mostra Mensagem de Confirmação na Tela


' Redireciona após 5 segundos
'response.write "<br><br>você será redirecionado em 5 segundos..<br>"
%>

Não estou conseguindo entender. o bd Access tem um campo autonumeração (id) e dois memorando (chamada e conteúdo). o resto é texto.

 

Alguém sabe o que pode ser???

[Public2004 79]

Bom dia, o campo "fonte" está vazio na sua Sql, verifique no bd se o tipo de campo pode ser vazio...

Quanto ao campo "data", verifique se realmente está no formato texto no bd, caso negativo, deverá ser incluido os # na Sql.

 

 

Abs.

[Jow Xavier 0]

tente assim:

 

SQL="Update geral Set titulo= '" & titulo & "', chamada= '" & chamada & "', data= '" & data & "', conteudo= '" & conteudo & "', tiss= '" & cfoto & "', edicao= '" & cfotoed & "', imgcapa= '" & cfotocp & "', nedicao= '" & nedicao & "', fonte= '" & fonte & "' , secao= '" & secao & "' Where id=" & id

[rd111072 1]

Opa!

 

fiz que nem o Jow disse e funcionou. O problema eram aquelas aspas no final do SQL...

 

Obrigado!

[Jow Xavier 0]

Bacana muito bom abraçosss