Ska du inte uppdatera det så ska du inte ha med det i SQL-frågan, annars får du uppdatera med NULL.
Mvh,
5 svar · 193 visningar · startad av soffan76
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
Ska du inte uppdatera det så ska du inte ha med det i SQL-frågan, annars får du uppdatera med NULL.
Mvh,
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 är nu infö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ömde fylla i ett fält.<br> Använd webbläsarens bakåtknapp för att prova igen.
<% End if %>
Ska jag skriva nåt liknande detta?
if not Request.Form("Arsmodell") = "" then
rs("Arsmodell") = Request.Form("Arsmodell")
else
rs("Arsmodell") = " "
end if
if not Request.Form("Arsmodell") = "" then
rs("Arsmodell") = Request.Form("Arsmodell")
end if