not null

Hur kan jag skriva detta på ett annat sätt?

	SQL = "SELECT * FROM modtagelsesrapporter WHERE sletdato is null AND [B]kasseretdato is not null[/B] ORDER BY ID ASC"

För när kasseretdato har varit använt en gång och man sen tar bort det igen så är den fortfarande "not null" kan man inte skriva kasseretdato <> "" eller göra så fältet registreras som oanvänt?

Du får uppdatera fältvärdet så det är NULL när du tar bort det.

hur gör man detta?

sql = "UPDATE modtagelsesrapporter SET kasseretdato = null WHERE id = " & request.querystring("id")

Jo men fan då måste jag ju göra en hel funktion för detta... buuhuu

Detta funkar iaf inte, det blir inte "nullad" iaf

If Request.Querystring("action") = "nystatus" Then

rep1        		= Fixa(Request.Form("rep1"))
rep2        		= Fixa(Request.Form("rep2"))
If Request.Form("kasseretdato") <> "" Then
kasseretdato        	= Fixa(Request.Form("kasseretdato"))
Else
kasseretdato        	= null
End If

   Andretdato		= now()

Conn.execute("Update modtagelsesrapporter Set rep1='" & rep1 & "', rep2='" & rep2 & "', kasseretdato='" & kasseretdato & "', Andretdato='" & Andretdato & "' Where id = "& Request.Querystring("id")),,128
   Response.Redirect "mrapporter_inlagt.asp?do=nystatus&set="& Request.Querystring("set") &"&id="& Request.Querystring("id")
End If

Null i ASP är inte samma sak som Null i SQL.

Du får inte ha apostrofer runt ordet NULL i din SQL-fråga. Exempel:

UPDATE tbl SET fld = NULL

Men vadå då får jag väl göra en if sats för Hela databas uppdateringen?. meck meck meck, jag provar =)

Så här ?

If kasseretdato = "" then
Conn.execute("Update modtagelsesrapporter Set rep1='" & rep1 & "', rep2='" & rep2 & "', kasseretdato = null, Andretdato='" & Andretdato & "' Where id = "& Request.Querystring("id")),,128
Else
Conn.execute("Update modtagelsesrapporter Set rep1='" & rep1 & "', rep2='" & rep2 & "', kasseretdato='" & kasseretdato & "', Andretdato='" & Andretdato & "' Where id = "& Request.Querystring("id")),,128
End If
   Response.Redirect "mrapporter_inlagt.asp?do=nystatus&set="& Request.Querystring("set") &"&id="& Request.Querystring("id")
End If

Alltså så här jobbigt för alla 3 fält?

If kasseretdato = "" then
Conn.execute("Update modtagelsesrapporter Set rep1='" & rep1 & "', rep2='" & rep2 & "', kasseretdato = null, Andretdato='" & Andretdato & "' Where id = "& Request.Querystring("id")),,128
ElseIf rep1 = "" then
Conn.execute("Update modtagelsesrapporter Set rep1 = null, rep2='" & rep2 & "', kasseretdato='" & kasseretdato & "', Andretdato='" & Andretdato & "' Where id = "& Request.Querystring("id")),,128
ElseIf rep2 = "" then
Conn.execute("Update modtagelsesrapporter Set rep1='" & rep1 & "', rep2 = null, kasseretdato='" & kasseretdato & "', Andretdato='" & Andretdato & "' Where id = "& Request.Querystring("id")),,128
ElseIf kasseretdato = "" AND rep1 = "" then
Conn.execute("Update modtagelsesrapporter Set rep1 = null, rep2='" & rep2 & "', kasseretdato = null, Andretdato='" & Andretdato & "' Where id = "& Request.Querystring("id")),,128
ElseIf kasseretdato = "" AND rep1 = "" AND rep2 = "" then
Conn.execute("Update modtagelsesrapporter Set rep1 = null, rep2 = null, kasseretdato = null, Andretdato='" & Andretdato & "' Where id = "& Request.Querystring("id")),,128
If rep1 = "" AND rep2 = "" then
Conn.execute("Update modtagelsesrapporter Set rep1 = null, rep2 = null, kasseretdato='" & kasseretdato & "', Andretdato='" & Andretdato & "' Where id = "& Request.Querystring("id")),,128
Else
Conn.execute("Update modtagelsesrapporter Set rep1='" & rep1 & "', rep2='" & rep2 & "', kasseretdato='" & kasseretdato & "', Andretdato='" & Andretdato & "' Where id = "& Request.Querystring("id")),,128
End If

Nej, du kan göra det mycket enklare. Det räcker med en SQL-fråga, och tre ifsatser.

jo men hur gör man när man skal skriva en if stat i sql frågan?

Varför ska du skriva en if-sats i SQL-frågan?

Sätt if-satserna ovanför, och i SQL-frågan kastar du in värdena du satt i dina if-satser.

Jo jag förstår men jag vet bara inte helt hur man utformar dessa så det funkar men det är väl i denna stilen?

If kasseretdato = "" Then
kass = "null"
Else
kass = "'" & kasseretdato & "'"
End If

Det är precis så jag menar! :D

Men; indentera din kod! Det kommer du att tjäna på.

Och med det menar du?

Jag kommer ingenstans, fattar inte hur jag tar bort fnuttarna utan att paja funktionen.

rep1        		= Fixa(Request.Form("rep1"))
rep2        		= Fixa(Request.Form("rep2"))
kasseretdato 		= Fixa(Request.Form("kasseretdato"))

   Andretdato		= now()

If kasseretdato = "" Then
kd = null
Else
kd = "'" & kasseretdato & "'"
End If

Conn.execute("Update modtagelsesrapporter Set rep1='" & rep1 & "', rep2='" & rep2 & "', kasseretdato = '" & kd & "', Andretdato='" & Andretdato & "' Where id = "& Request.Querystring("id")),,128

AAAAAAAAAAAAAAHHHHAAAAAAAAAAAAAAAAAA :birp :birp

Nu kom jag på de hehe

rep1        		= Fixa(Request.Form("rep1"))
rep2        		= Fixa(Request.Form("rep2"))
kasseretdato 		= Fixa(Request.Form("kasseretdato"))

   Andretdato		= now()

If rep1 = "" Then
r1 = "rep1 = null"
Else
r1 = "rep1 = '" & rep1 & "'"
End If

If rep2 = "" Then
r2 = "rep2 = null"
Else
r2 = "rep2 = '" & rep2 & "'"
End If

If kasseretdato = "" Then
kd = "kasseretdato = null"
Else
kd = "kasseretdato = '" & kasseretdato & "'"
End If

Conn.execute("Update modtagelsesrapporter Set  "& r1 &" , "& r2 &" , "& kd &" , Andretdato='" & Andretdato & "' Where id = "& Request.Querystring("id")),,128

Det är väl fullt dugligt @nders? :e

Det där ser finfint ut, men jag efterlyser fortfarande indentering, så du (och andra) får lättare att följa din kod.

mvh

Hur menar du med detta? indentering

Exempel:

If blah = "woo" then
     ' Gör något
     For i = 0 to 10
         ' gör något
         Response.write i
     Next
Else
     Response.write "foo"
End if

If blah = "woo" then
' Gör något
For i = 0 to 10
' gör något
Response.write i
Next
Else
Response.write "foo"
End if

Vilket av kodexemplen är lättast att följa?