Indsættelse af tomme datafelter
Hejsa!Ved at udfylde en form med diverse parametre skal man kunne indsætte en ny record i min db. Det går også fint, men KUN hvis man udfylder alle felter - det er ikke givet, at man skal/kan gøre det og hvad gør jeg så?
Min SQL ser således ud:
Navn = Request.Form("Navn")
placering = Request.Form("placering")
fodt = Request.Form("fodt")
vaegt = Request.Form("vaegt")
prehfk = Request.Form("prehfk")
starthfk = Request.Form("starthfk")
nummer = Request.Form("nummer")
kontraktslut = Request.Form("kontraktslut")
nationalitet = Request.Form("nationalitet")
beskrivelse = Request.Form("beskrivelse")
SQL = "Insert Into spillere (Navn, placering, fodt, vaegt, prehfk, starthfk, nummer, beskrivelse, kontraktslut, nationalitet) Values('"&Navn&"', '"&placering&"','"&fodt&"', '"&vaegt&"','"&prehfk&"','"&starthfk&"','"&nummer&"','"&beskrivelse&"','"&kontraktslut&"','"&nationalitet&"')"
Conn.Execute(SQL)
Der er også en mulighed for at Update en record og der har jeg løst det med IF THEN:
Dim Navn, placering,fodt,vaegt,starthfk,nummer, id
id = Request.Form("id")
Navn = Request.Form("Navn")
placering = Request.Form("placering")
fodt = Request.Form("fodt")
vaegt = Request.Form("vaegt")
starthfk = Request.Form("starthfk")
nummer = Request.Form("nummer")
SQL = "Update Spillere Set Navn = '"&Navn&"'"
IF placering <> "" THEN
SQL = SQL & ", Placering = '"&placering&"'"
END IF
IF starthfk <> "" THEN
SQL = SQL & ", starthfk = '"&starthfk&"'"
END IF
SQL = SQL & ", fodt = '"&fodt&"'"
SQL = SQL & ", vaegt = '"&vaegt&"'"
SQL = SQL & ", nummer = '"&nummer&"'"
SQL = SQL & "Where ID = "&id&""
Set RS = Conn.Execute(SQL)
Men er det virkelig det smarteste og hvorledes løser jeg problemet med at indsætte en ny rekord (den øverste SQL).
Håber der er nogen, der kan hjælpe :-)
