webForumDet fria alternativet
Logga in / Bli medlem

Type mismatch

ASP

5 svar · 193 visningar · startad av soffan76

Medlem sedan maj 2001684 inlägg
Trådstart#1

Hej!

Jag har ett fält i en databas av typen tal(långt heltal), decimaler: automatisk, standardvärde:0, Obligatorisk:nej, Indexerat:nej.
När jag ska uppdatera en post från adminsidan så går det inte att lämna detta fält tomt (om man nu inte vet vad man ska fylla i). Jag får då Type mismatch. Nån som vet varför?

Mvh Sofia

Medlem sedan juni 200032 967 inlägg
#2

Ska du inte uppdatera det så ska du inte ha med det i SQL-frågan, annars får du uppdatera med NULL.

Mvh,

Medlem sedan maj 2001684 inlägg
#3

Fattar inte riktigt hur du menar..så här ser min kod ut, vad är fel...

<%
If Request.Form("Benamning") <> "" and Request.Form("Gruppnr") <> ""and Request.Form("Fordonsnummer") <>"" then	

Set conn = server.createObject ("ADODB.Connection") 
DBPath = "DBQ=" & Server.MapPath("data/databas.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
SQL="SELECT * from Fordon where Fordonsnummer = " & Request.Form("Fordonsnummer") & ""
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn, 1,2

if rs.eof then

rs.AddNew

rs("Benamning") = Request.Form("Benamning")    
rs("Gruppnr") = Request.Form("Gruppnr") 
rs("Fordonsnummer") = Request.Form("Fordonsnummer")
rs("Klassificering") = Request.Form("Klassificering")    
rs("Arsmodell") = Request.Form("Arsmodell")
rs("Miljogodkand") = Request.Form("Miljogodkand")   
rs("Medlemsnummer") = Request.Form("Medlemsnummer")   
rs("Pdf") = Request.Form("Pdf")   

rs.Update
rs.Close
conn.close 
set rs = nothing
set conn = nothing
%>

<h2>Lägg till ny maskin</h2>
<p>Maskinen &auml;r nu inf&ouml;rd i databasen.<br> 

<% Else 
Response.Write ("<p>En maskin med detta maskinnummer finns redan inlagd i databasen.<br> Välj ett annat maskinnummer eller redigera befintlig maskin.</p>")
Response.Write ("<a href='javascript:history.go(-1);'>Tillbaka</a>")
End if %>

<% Else %>
<p>Oj! Du gl&ouml;mde fylla i ett f&auml;lt.<br> Anv&auml;nd webbl&auml;sarens bak&aring;tknapp f&ouml;r att prova igen.

<% End if %>
Medlem sedan maj 2001684 inlägg
#4

Ska jag skriva nåt liknande detta?

  

if not Request.Form("Arsmodell") = "" then
	rs("Arsmodell") =  Request.Form("Arsmodell")
	else
	rs("Arsmodell") = " "
	end if
Medlem sedan dec. 200012 464 inlägg
#5
if not Request.Form("Arsmodell") = "" then
rs("Arsmodell") = Request.Form("Arsmodell")
end if
Medlem sedan maj 2001684 inlägg
#6

Tack!

Funkar strålande!

387 ms totalt · 4 externa anrop · v20260731065814-full.51f67c91
122 ms — deklarationer (db)
128 ms — hämta statistik (db)
131 ms — hämta tråd, inlägg och bilagor (db)
124 ms — ändringar (db)