Microsoft JET Database Engine error '80040e14'

Bu seferde böyle bir hata verdi hocam.

Provider error '80020005'

Type mismatch.

/apanel/urungir.asp, line 51

hangi satır olduğunu yazarsan daha çok yardımcı olabilirim ? kod kısmı hangisi ?

pardon eklemeyi unutmuşum..


resimekle("uid") = Request.form("id")

sorunun halloldu mu yani ?

bu arada
True ve False lerin yerine 1 ve 0 da kullanabilirsin.


if request.Form("def")=alan then

resimekle("def") = 1
Else
resimekle("def") = 0

End If

hayır düzelmedi. Bu hatayı veriyor.

Provider error '80020005'

Type mismatch.

/apanel/urungir.asp, line 51


---ilgli satır-----

resimekle("uid") = Request.form("id")

Hocam tüm sayfa kodunu ekliyorum bakabilirsen çok sevinirim.

<!--#include file="view.asp"-->
<%
id=Request.form("id")
marka=sqlkont(request.form("marka"))
model=sqlkont(request.form("model"))
fiyat_1_3=sqlkont(request.form("fiyat_1_3"))
fiyat_3_15=sqlkont(request.form("fiyat_3_15"))
fiyat_15=sqlkont(request.form("fiyat_15"))
yakit=sqlkont(request.form("yakit"))
birim=sqlkont(request.form("birim"))
ozellik=sqlkont(request.form("ozellik"))
video=sqlkont(request.form("video"))




if id="" then
	bag.execute("insert into urun(marka,model,fiyat_1_3,fiyat_3_15,fiyat_15,yakit,birim,ozellik,video) values("& marka &","& model &",'"& fiyat_1_3 &"','"& fiyat_3_15 &"','"& fiyat_15 &"','"& yakit &"','"& birim &"','"& ozellik &"','"& video &"')")
	set urn=bag.execute("select*from urun where arac='"& arac & "' order by id desc")
	
else
	bag.execute("update urun set marka="& marka &", model="& model &", fiyat_1_3='"& fiyat_1_3 &"', fiyat_3_15='"& fiyat_3_15 &"', fiyat_15='"& fiyat_15 &"', yakit='"& yakit &"', birim='"& birim &"', ozellik='"& ozellik &"', video='"&video&"' where id="&id)
end if

for each alan in request.form
	if left(alan,5)="foto_" then
		if not request.Form(alan)="" then
			if request.Form("def")=alan then
				def=",def=true"
			else
				def=",def=false"
			end if
			bag.execute("update resim set uid='"& id &"', resim='"& sqlkont(request.form(alan)) &"'"& def &" where id="& mid(alan,6) )
		else
			bag.execute("delete from resim where id="& mid(alan,6) )
		end if
	elseif left(alan,4)="foto" then
	   if not request.Form(alan)="" then
		if request.Form("def")=alan then
				def1=",def"
				def2=",true"
			else
				def1=""
				def2=""
			end if
		Set resimekle = Server.CreateObject("ADODB.Recordset") 
SQL = "Select * From resim" 
resimekle.Open SQL,bag,1,3      
         
resimekle.AddNew 
resimekle("uid")    =    Request.form("id")         
resimekle("resim")    =    sqlkont(request.form(alan))     

if request.Form("def")=alan then 

resimekle("def")    =    True 
Else 
resimekle("def")    =    False 

End If 

resimekle.Update 
resimekle.Close   
			end if
	elseif left(alan,3)="oz_" then
		if not request.Form(alan)="" then
			bag.execute("update ozellik set urun='"& id &"', ozellik='"& sqlkont(request.form(alan)) &"', icerik='"& sqlkont(request.form("ic_" & mid(alan,4))) &"' where id="& mid(alan,4) )
		else
			bag.execute("delete from ozellik where id="& mid(alan,4) )
		end if
	elseif left(alan,4)="_oz_" then
	   if not request.Form(alan)="" then
			bag.execute("insert into ozellik(urun,ozellik,icerik) values("& id &",'"& sqlkont(request.form(alan))&"','"& sqlkont(request.form("_ic_" & mid(alan,5))) &"')")
	   end if
	end if
next

response.Redirect("urun.asp")
%>

db reki resim tablosunda ki resim sutunu değerini metin veya not olarak değiştir.

yani gelen değer sayı olması lazım ama uyumsuz oluyor.

CLng(Request.form("id")) bu şekilde de deneyebilirsin.

hocam yine olmadı sayı değeri olarak değiştirdim. Acaba mbd ve ilgili sayfayı eklesem inceliyebilirmisin ??

ordaki zaten veri tipi sayı değeri idi sen onu not olarak değiştirip denesene bir.