God Jul på er alla

Jag undrar hur det går till när man har ett antal radiobuttons, låt säga 10, samtliga ska skicka ett värde som är sant eller falskt. Knapparna ingår i samma grupp alltså det är bara en som ska kunna väljas, men alla knapparna måste ha olika namn för att kunna uppdatera 10 olika kolumner i databasen.

Tackar på förhand // Uffe

Hej, jag vet inte riktigt. Behöver alla nio andra fälten uppdateras när det är en knapp som väljs? Annars kan du göra på detta sätt. Detta som jag skickar med nedan är delar av ett röstningsscript som jag byggde igår kväll lite snabbt. Har dessutom plockat bort en del fonttaggar så jag hoppas jag inte plockade bort någon annan vital del. //Dataknutte

<form method="POST" action="rosta.asp">
<% 'Databas Öppna
DBPath = Path & "rosta.mdb"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & DBPath
strSQL = "SELECT * FROM Standard ORDER BY ID DESC"
Set objRS = objConn.Execute(strSQL)
If NOT objRS.EOF Then %>
<center> <% =objRS("Starttxt") %><br>
<br>
<table border="0">
<% For x = 1 To 10
val = "val" & x & "txt"
%>
<tr><td>
<input type="radio" value="val<% =x %>" name="Rost"></td>
<td><% =objRS(val) %></td></tr>
<% Next %>
<tr><td></td>
<td><input type="submit" value="Rösta" name="Send"></td></tr>
</table><br><% =objRS("Endtxt") %><br>
</center></form>
<% End If %>


<% 'Detta är röstsammanställningen
DBPath = Path & "rosta.mdb"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & DBPath
strSQL = "SELECT * FROM Standard ORDER BY ID DESC"
Set objRS = objConn.Execute(strSQL)
If NOT objRS.EOF Then
temptxt = Request.Form("Rost")
tempnr = objRS(temptxt) + 1
ROSTNING = Request.Form("Rost") & " = " & tempnr
ID = objRS("ID")
End If
objRS.Close()
objConn.Close()


'Databas Ändra
DBPath = Path & "rosta.mdb"
Set objConn1 = Server.CreateObject("ADODB.Connection")
objConn1.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & DBPath
strSQL = "UPDATE Standard SET " & ROSTNING & " WHERE ID = " & ID
Set objRS1 = objConn1.Execute(strSQL)

Om bara en av fälten/kolumnerna skall vara satt. Så är det en bättre datastruktur att istället använda en/ett fält/kolumn med ett numeriskt värde för alla alternativ.

Men om du inte har möjlighet att ändra datastrukturen. Så kan du göra så här:

<code>
<INPUT type=radio name="betyg" value="ig">
<INPUT type=radio name="betyg" value="g">
<INPUT type=radio name="betyg" value="vg">
<INPUT type=radio name="betyg" value="mvg">
</code>



<code>
Dim Fields
Dim vTemp
Dim vBetyg
Dim strSET
Dim strSQL
Fields = Array("ig","g","vg","mvg")
vBetyg = Request.Form("betyg")
For Each vTemp In Fields
If vTemp = vBetyg Then
strSET = strSET & ", " & vTemp & " = True"
Else
strSET = strSET & ", " & vTemp & " = False"
End If
Next
strSQL = "UPDATE TabellNamn SET " & Mid(strSET, 3) & " WHERE RecId = 1"

</code>

Jag kollar in din lösning Andreas, det verkar vara precis så jag vill ha det. Tack

//Uffe

Jag har fixat till så att din kod fungerar Andreas, men så fort jag lägger till ytterliggare fält så får jag felmeddelande. Har du koll på vad jag gör för fel?

<code>
Fields = Array("ToftaNorr","ToftaSyd","MBanJ","MBanF","ArlovStat","ArlovHamm","ArlovTerm","Tamro","JMS","Verkstad","Ovrigt")
vLokal = Request.Form("lokal")
For Each vTemp In Fields
If vTemp = vLokal Then
strSET = strSET & ", " & vTemp & " = True"
Else
strSET = strSET & ", " & vTemp & " = False"
End If
Next
strSQL = "UPDATE tblTrailer SET " & Mid(strSET, 3)
'strSQL = strSQL & " Text = " & "'" & Text & "'"
strSQL = strSQL & " WHERE ID = " & ID

Conn.Execute(strSQL)
</code>

Vad får du för felmedelande? Varför har du inte ett fält och en relation istället. Eftesom du endast kan ha ett alternativ valt är det slöseri med så många kolumner.

OK, det är förmodligen strukturen jag går bet på. Som det ser ut nu ligger all infon i en tabell.

www.webbuffe.biz/postakeriet

Men hur jag än vrider och vänder på det måste jag väl ha ett fält(kolumn) för varje plats?

Det är två tabeller om ett släpen endast skall ha en plats:

Tabell: tblTrailer
Fält: TrailerId
Fält: TrailerName
Fält: TrailerOrt -> tblOrter.OrtId

Tabell: tblOrter
Fält: OrtId
Fält: OrtName

Exempel Data:

Tabell: tblOrter
OrtId OrtName
1 Toftanäs (Norra)
2 Toftanäs (Södra)
3 MBanJ
4 MBanF
5 ArlovStat
6 ArlovHamm
7 ArlovTerm
8 Tamro
9 JMS
10 Verkstad
11 Ovrigt

Tabell: tblTrailer
TrailerId TrailerName TrailerOrt
1 92.007 4
2 92.006 3
3 92.005 7
4 92.004 8
5 Liftasläpet 5

Då får du en dynamisk lösning. Kan lägga till orter och släp.

Om du ska göra den mer generell. Kan du ha en tabell för relationerna:

Tabell: tblOrter
Fält: OrtId
Fält: OrtName

Tabell: tblTrailer
Fält: TrailerId
Fält: TrailerName

Tabell: tblTrailerOrt
Fält: TrailerOrtId
Fält: TrailerOrtOrt -> tblOrter.OrtId
Fält: TrailerOrtTrailer -> tblTrailer.TrailerId

Ja, det blev ju betydligt smidigare.

//MVH Uffe