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

Nork · Fevereiro 8, 2008

Bom dia pessoal,

É o seguinte..... eu desenvolvi um sistema em ASP com banco de dados ACCESS e o bixinho ta quase pronto, testei REtestei e REREtestei e em 4 micros diferentes, tudo OK, funcionando perfeitamente, quando fui ao meu cliente ADVINHA................. não funcionou !!!!!!! ( Rodei sempre no mesmo SERVIDOR )

Tentei Retentei e quase joguei aquela bosta do micro dele pela janela, mas..... como não é meu, engoli a raiva !! heheheh mesmo porque se fosse meu.... eu teria o prazer de queimar na lareira cada placa daquela desgraça.... uma a uma !!!

Bom... voltemos a pauta !!

Obviamente o problema é no micro do infeliz, mas o problema é que eu não tenho a mínima idéia do que possa ser!!

Até me ofereci de formatar aquela bosta, mas o v**** não quis !!!

O erro é o seguinte,

-----------------------------------------------------------------------------------------------------

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

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/israel_teste/vr48/adm_fig_inserida.asp, line 142

-----------------------------------------------------------------------------------------------------

Conteudo da linha em questão (142)

Jpeg.Save(Server.MapPath("arquivos_upload/artistas/"&Session("nome")&"_"&Session("sobre_nome")&"/publicacoes/"&Session("categoria")&"/"&id_atual&"/"&Session("nome")&"_"&Session("sobre_nome")&"_"&id_atual&"_"&"miniatura."&"jpeg"))

Me ajudem ai, antes que eu enfie o dinheiro no c* daquele v**** e largue tudo !!! hehehehe

VALEU !!!

jrcardozo · Fevereiro 8, 2008

antes dessa linha escreva o caminho de onde está tentando gravar e abaixo um response.end e veja se está senho concatenado os valores corretamente e se o diretório de destinho existe e tem permissão de escrita

Nork · Fevereiro 8, 2008

E ai Jonathandj, beleza??

Então.... o problema não pode ser do lado SERVIDOR, pois testei em outros 4 micros diferentes e funciona corretamente, temque ser do lado CLIENTE !!!

Mas de qq forma valeu !!!

Fico no agurdo !!

Nork · Fevereiro 11, 2008

E ai pessoal ????

Me ajudem ai !!!!

To precisando urgente da ajuda de vcs !!!!

Conto com todos !!!

Abração !!

fico no aguardo !!

Ted k' · Fevereiro 11, 2008

cadê seu código por completo?

Nork · Fevereiro 12, 2008

Segue abaixo o codigo da pagina em questão (adm_fig_inserida.asp)

De qq forma, não creio que seja problema no codigo e sim no micro do kara, pois agora ja testei em 8 micros e nenhum da problema.

Fico no aguardo

Valeu !!!

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html><head>
<title>Art Factory - Galeria de Artes</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
@import url("../css/noticias.css");
-->
</style>
</head>
<%
on error resume next
'Se a variavel de sessao for falsa, entao redireciona pra pagina de login errado
If Session("login_ver_noticia_ok") = False or IsNull(Session("login_ver_noticia_ok")) = True then
	'Redireciona pra pagina de login errado
	Response.Redirect"login_errado.htm"
End If

'--------------------------------------------------------------------------
'----------------------- PARAMETROS DE SETAGEM --------------------------
'--------------------------------------------------------------------------
'----- IMAGENS -----
RESOLUCAO_MINIATURA=70		'DEFINE QUAL SERA A RESOLUCAO DA IMAGEM MINIATURA

'--------------------------------------------------------------------------
'----------------------- DECLARACAO DE VARIAVEIS --------------------------
'--------------------------------------------------------------------------
'----- Verificacao de imagem ja publicada -----
dim sql_verif,rs_verif,funcao
'----- Gerais -----
dim r_trig,data,hora,data_hora,mensagem
'-------------------------------------------------------			
'--------------- CAPTACAO DE VARIAVEIS -----------------
'-------------------------------------------------------
'-------- Query string --------
Dim nome,categoria
acao=Request.Querystring("acao")
nome_fig=Request.QueryString("nome_fig")
m_aux_alt_fig=Request.QueryString("m_aux_alt_fig")
m_aux_larg_fig=Request.QueryString("m_aux_larg_fig")
data=Request.Querystring("data")
hora=Request.Querystring("hora")
'-------- form --------
titulo_obra=Request.form("tf_titulo_obra")
altura=Request.form("tf_altura")
largura=Request.form("tf_largura")
alt_escult=Request.form("tf_alt_escult")
larg_escult=Request.form("tf_larg_escult")
prof_escult=Request.form("tf_prof_escult")
tecnica=Request.form("tf_tecnica")
estado_obra=Request.form("tf_estado_obra")
tecnica=Request.form("tf_tecnica")
'------------------------------------------------------------------------
'----------------------- FUNCOES DE CONVERSAO  --------------------------
'------------------------------------------------------------------------
data_hora1=data+" "+hora
data_hora= Replace(data_hora1, " ",vbCrLf )

'--------------------------------------------------------------------------------
'---------------------- DELETA REGISTRO DA TABELA IMAGENS -----------------------
'--------------------------------------------------------------------------------
Dim strAccessDB 		'Possui o nome o Banco de dados
Dim strSQL				'Possui o SQL query para o banco de dados
Dim rs_Deleta_obra		'Algum Registro ou conjunto de registros do banco de dados
strAccessDB = "db_art.mdb"
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(strAccessDB)
'Create recorset object
Set rs_Deleta_obra = Server.CreateObject("ADODB.Recordset")
' Busca SQL
strSQL="select * FROM imagens WHERE figura='" &nome_fig + "'" + "order by categoria "
'Set o tipo do cursor do Recordset para dinamico, pois assim podemos navegar direto pelo recordset
rs_Deleta_obra.CursorType = 2
'Set the Lock Type for the records so that the record set is only locked when it is updated
rs_Deleta_obra.LockType = 3
'Abre Recordset
rs_Deleta_obra.Open strSQL, strCon

id_imagens=rs_Deleta_obra("id")


rs_Deleta_obra.delete

'-------------------------------------------
'---------- FUNCOES DE PUBLICACAO ----------
'-------------------------------------------
'########## PUBLICA A OBRA NA TABELA1 DO BANCO DE DADOS ##########
sql = 	"insert into tabela1 (nome,sobre_nome,titulo_obra,altura,largura,alt_escult,larg_escult,prof_escul
t,tecnica,categoria,estado_obra,data)"
sql =	sql & " values( '" & Session("nome") & "' , '" & Session("sobre_nome") & "' , '" & titulo_obra & "' , '" & altura & "' , '" & largura & "' , '" & alt_escult & "' , '" & larg_escult & "' , '" & prof_escult & "', '" & tecnica & "' , '" & Session("categoria")& "' , '" & estado_obra & "' , '" & data_hora & "'  )" 		

accessdb="db_art" 
cn="driver={Microsoft Access Driver (*.mdb)};"
cn=cn & "dbq=" & server.mappath(accessdb)
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn
set rs=nothing


'########## CRIA RS (Pra pegar o ID e criar uma pasta com o nome do ID #########
sql_id="select * FROM tabela1 order by id desc "
accessdb="db_art" 
cn="driver={Microsoft Access Driver (*.mdb)};"
cn=cn & "dbq=" & server.mappath(accessdb)
Set rs_id = Server.CreateObject("ADODB.Recordset")
rs_id.Open sql_id, cn

id_atual=rs_id("id")
nome_novo=Session("nome")&"_"&Session("sobre_nome")&"_"&id_atual&"."&"jpeg"

'########## CRIA PASTA COM O NOME DO "ID" ##########
Set fabric2 = CreateObject("Scripting.FileSystemObject") 
'PASTA COM ID
Set f = fabric2.CreateFolder(Server.MapPath("arquivos_upload/artistas/"&Session("nome")&"_"&Session("sobre_nome")&"/publicacoes/"&Session("categoria")&"/"&id_atual)) 
	
'########## MOVE IMAGEM P/ PASTA "PUBLICACOES" ##########
Set fso = CreateObject("Persits.Upload.1")
fso.MoveFile (Server.MapPath("arquivos_upload/artistas/"&Session("nome")&"_"&Session("sobre_nome")&"/imagens_carregadas/"&Session("categoria")&"/"&nome_fig)) , (Server.MapPath("arquivos_upload/artistas/"&Session("nome")&"_"&Session("sobre_nome")&"/publicacoes/"&Session("categoria")&"/"&id_atual&"/"&nome_fig))

'########## DELETA A IMAGEN EQUIVALENTE DE BAIXA RESOLUÇÃO  ##########
nome_miniat=Session("nome")&"_"&Session("sobre_nome")&"_"&id_imagens&"_miniatura.jpg"
Set fso_del_pasta2 = CreateObject("Scripting.FileSystemObject") 
dir="arquivos_upload/artistas/"&Session("nome")&"_"&Session("sobre_nome")&"/imagens_carregadas/"&Session("categoria")&"/"&nome_miniat

Set f = fso_del_pasta2.DeleteFile(Server.MapPath(dir)) 
set f=nothing
set fso_del_pasta2=nothing	

'########## RENOMEIA ARQUIVO COM O ID DA TABELA1 ##########
Set renomear_arq = CreateObject("Scripting.FileSystemObject") 
Set nome_fig = renomear_arq.getfile(Server.MapPath("arquivos_upload/artistas/"&Session("nome")&"_"&Session("sobre_nome")&"/publicacoes/"&Session("categoria")&"/"&id_atual&"/"&nome_fig))
nome_fig.name = nome_novo

'########## CRIA UMA MINIATURA QUADRADA RECORTANDO A FIGURA ORIGINAL ##########
Set Jpeg = Server.CreateObject("Persits.Jpeg") 
Path=(Server.MapPath("arquivos_upload/artistas/"&Session("nome")&"_"&Session("sobre_nome")&"/publicacoes/"&Session("categoria")&"/"&id_atual&"/"&nome_novo))
Jpeg.Open Path 
altura_arquivo=Jpeg.OriginalHeight 
largura_arquivo=Jpeg.Originalwidth 

'Verifica qual é maior ( LARG ou ALT )
IF	largura_arquivo<=altura_arquivo then
	TAMANHO_MINIATURA=largura_arquivo
else
	TAMANHO_MINIATURA=altura_arquivo
End If
'Recorta a Imagen
jpeg.Crop 0, 0, TAMANHO_MINIATURA, TAMANHO_MINIATURA
'Esse método é opcional, usado para melhorar o visual da imagem 
'Jpeg.Sharpen 1, 150 
Jpeg.Save(Server.MapPath("arquivos_upload/artistas/"&Session("nome")&"_"&Session("sobre_nome")&"/publicacoes/"&Session("categoria")&"/"&id_atual&"/"&Session("nome")&"_"&Session("sobre_nome")&"_"&id_atual&"_"&"miniatura."&"jpeg"))
Set Jpeg = Nothing 

'########## REDIMENSIONA A IMAGEM MINIATURA ##########
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open(Server.MapPath("arquivos_upload/artistas/"&Session("nome")&"_"&Session("sobre_nome")&"/publicacoes/"&Session("categoria")&"/"&id_atual&"/"&Session("nome")&"_"&Session("sobre_nome")&"_"&id_atual&"_"&"miniatura."&"jpeg"))

if Jpeg.OriginalWidth>Jpeg.OriginalHeight then
	Jpeg.Width =RESOLUCAO_MINIATURA
	Jpeg.Height=Jpeg.OriginalHeight * RESOLUCAO_MINIATURA / Jpeg.OriginalWidth
else
	Jpeg.Height=RESOLUCAO_MINIATURA
	Jpeg.Width=Jpeg.Originalwidth * RESOLUCAO_MINIATURA / Jpeg.OriginalHeight
End If
Jpeg.Save (Server.MapPath("arquivos_upload/artistas/"&Session("nome")&"_"&Session("sobre_nome")&"/publicacoes/"&Session("categoria")&"/"&id_atual&"/"&Session("nome")&"_"&Session("sobre_nome")&"_"&id_atual&"_"&"miniatura."&"jpeg"))
Jpeg.close
Set Jpeg = Nothing

'--------------------------------------------------------------------------------------
'----------------------- BUSCA REGISTRO E ATUALIZA OS DADOS ---------------------------
'--------------------------------------------------------------------------------------
strAccessDB = "db_art.mdb"
Set adoCon = Server.CreateObject("ADODB.Connection") 
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(strAccessDB)
adoCon.Open strCon
Dim rs_public		'Database recordset to add the new News Item
Set rsAddNewsItem = Server.CreateObject("ADODB.Recordset")
' SQL
strSQL = "SELECT tabela1.* FROM tabela1 WHERE id = " & id_atual & ";"	
rsAddNewsItem.CursorType = 2
rsAddNewsItem.LockType = 3
rsAddNewsItem.Open strSQL, strCon
	
'########## GRAVA OS NOVOS VALORES ##########
rsAddNewsItem.Fields("figura") = nome_novo
rsAddNewsItem.Fields("alt_arquivo") = altura_arquivo
rsAddNewsItem.Fields("larg_arquivo") = largura_arquivo
'Atualiza o Database com o recordset
rsAddNewsItem.Update
'Recarrega o database pra ter certeza que os dados foram atualizados
rsAddNewsItem.Requery
'Reset Sever Objects 
Set adoCon = Nothing
Set strCon = Nothing
Set rsAddNewsItem = Nothing


'########## ATIVA MENSAGEM E REDIRECIONA PRA PAGINA QUE CAPTA HORA ##########
mensagem="obra_publicada"
'Redireciona
'Response.Redirect("adm_captura_data.asp?nome=" & nome & "&sobre_nome=" & sobre_nome & "&categoria=" & categoria & "&tipo_edicao=" & "inserir" & "&redirecionar=" & "adm_edita_obras" & "&mensagem=" & mensagem & "")
Response.Redirect("adm_captura_data.asp?tipo_edicao=" & "inserir" & "&redirecionar=" & "adm_edita_obras" & "&mensagem=" & mensagem & "")

%>	
<body bgcolor="#CCCCCC" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="115" border="0" align="center">
<tr>
<td width="109"><em><font color="#999999" size="4">Diagnostico:</font></em></td>
</tr>
</table>
<table width="274" border="0" align="center">
<tr> 
<td width="66"><font color="#999999">db: </font></td>
<td width="238"><font color="#999999"><%=rs_verif("publicacao")%></font></td>
</tr>
<tr> 
<td><font color="#999999">mensagem:</font></td>
<td><font color="#999999"><%=mensagem%></font></td>
</tr>
<tr> 
<td><font color="#999999">Funcao</font></td>
<td><font color="#999999"><%=funcao%></font></td>
</tr>
<tr> 
<td><font color="#999999">r_trig:</font> </td>
<td><font color="#999999"><%=r_trig%></font></td>
</tr>
</table>
<form name="form1" method="post" action="adm_interf_data.asp?nome=<%=nome%>&sobre_nome=<%=sobre_nome%>&categoria=<%=categoria%>&nome_fig=<%=nome_fig%>&figura=<%=figura%>&m_aux_titulo_obra=<%=m_aux_titulo_obra%>&m_aux_alt_fig=<%=m_aux_alt_fig%>&m_aux_larg_fig=<%=m_aux_larg_fig%>&m_aux_tecnica=<%=m_aux_tecnica%>&tipo_edicao=<%="inserir"%>&id=<%=id%>">
<input name="tf_data" type="hidden" value="">
<input name="tf_hora" type="hidden" value="">
</form>
</body>


</html>

DSerma · Fevereiro 15, 2008

Nork... mais um "UP" no seu tópico e o mesmo será trancado.

Abraços....

Nork · Fevereiro 19, 2008

Fala ae DARKDEMO !!

Beleza ???

N entendi !!!!??? o q é "UP" !!!

abraços !!!

Arquivado

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

Recommended Posts

Nork 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Nork 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Nork 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Nork 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

DSerma 19

Compartilhar este post

Link para o post

Compartilhar em outros sites

Nork 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Fóruns

Tempo Real

Informação importante