Udtræk data fra radiobutton med Access database
Hej.For ganske kort siden skrev jeg et indlæg og spurgte om at indsætte data fra en radiobutton ind i en Access database; fik hjælp og det spiller bare.
Nu skal jeg så have dem trukket ud igen og jeg havde godt nok mine bange anelser for at komme til at spørger herinde igen, for kan skisme ikke lige hitte ud af det.
Jeg benytter følgende kode til at få trække data ud:
Dim objRS
Set objRS = OpenDataBase("my_database.mdb", "SELECT * FROM survey ORDER BY dato DESC")
If (Not objRS.BOF) And (Not objRS.EOF) Then
objRS.MoveFirst
Response.Write "<table width=""100%"" cellspacing=0 cellpadding=0 border=0>" & vbCrLf
Response.Write "<tr><td class=""survey_cell"" width=""15%"" align=""center"">" & vbCrLf
Response.Write "Dato" & vbCrLf
Response.Write "</td><td class=""survey_cell"" width=""10%"" align=center>" & vbCrLf
Response.Write "Question 1" & vbCrLf
Response.Write "</td><td class=""survey_cell"" width=""10%"" align=center>" & vbCrLf
Response.Write "Question 2" & vbCrLf
Response.Write "</td><td class=""survey_cell"" width=""10%"" align=center>" & vbCrLf
Response.Write "Question 3" & vbCrLf
Response.Write "</td><td class=""survey_cell"" width=""20%"" align=center>" & vbCrLf
Response.Write "Question 4" & vbCrLf
Response.Write "</td><td class=""survey_cell"" width=""35%"" align=center>" & vbCrLf
Response.Write "Question 5" & vbCrLf
Response.Write "</td></tr>" & vbCrLf
While Not objRS.EOF
Response.Write "<tr><td class=""data_cell"" width=""15%"" align=left>" & vbCrLf
Response.Write objRS("dato") & vbCrLf
Response.Write "</td><td width=""10%"" align=center>" & vbCrLf
Response.Write objRS("q1") & vbCrLf
Response.Write "</td><td width=""10%"" align=center>" & vbCrLf
Response.Write objRS("q2")& vbCrLf
Response.Write "</td><td width=""10%"" align=left>" & vbCrLf
Response.Write objRS("q3") & vbCrLf
Response.Write "</td><td width=""20%"" align=left>" & vbCrLf
Response.Write objRS("q4") & vbCrLf
Response.Write "</td><td width=""35%"" align=left>" & vbCrLf
Response.Write objRS("q5") & vbCrLf
Response.Write "</td> </tr>"
objRS.MoveNext
Wend
Response.Write "</table>" & vbCrLf
Else
Response.Write "No survey entered yet! Try again later<br>" & vbCrLf
End If
objRS.Close
Set objRS = Nothing
%>
Se, jeg kan godt hive mine data ud, men under de forskellige grupper af radiobutton står der: True eller False, fordi det selvfølgelig er deres værdi.
Jeg har så prøvet at ændre den kode jeg har brugt, da jeg indsatte dataen i Access, men uden held - jeg tror at jeg gør det lidt forkert.
Har prøvet at google mig frem, men uden større held. Tror ikke proceduren er så besværlig, men det er første gang jeg har benyttet mig af radiobuttons til en hjemmeside.
På forhånd tak for hjælpen
- Public2
