Avatar billede public2 Nybegynder
28. januar 2007 - 19:48 Der er 2 kommentarer og
1 løsning

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
Avatar billede Slettet bruger
28. januar 2007 - 22:47 #1
Hej Public2

- Det er såmænd ikke så indviklet endda... Og du behøver i øvrigt aldrig at være bange for at spørge herinde...

Se her:
- en helt almindelig og simpel if-sætning...
<%
q1=rs("q1")
if q1=True then
response.write "Værdien er sand"
else
response.write "Værdien er falsk"
end if
%>

- Altså princippet er at man henter True/False værdierne ud fra databasen og så laver man nogle if-sætninger som skal afgøre hvad der skal stå på ens side...

\Dan
Avatar billede public2 Nybegynder
29. januar 2007 - 10:10 #2
Dan, du kommer simpelthen med i mine bønner når og hvis jeg på et tidspunkt laver sådan nogle :-)

Virker perfekt. Det var lidt hen i den retning jeg havde prøvet at forme mine if sætninger, men kan se at jeg lige manglede en smule for at det skulle virke optimalt. Nu spiller det bare og ser ovenikøbet skide godt ud, hehe.

Igen, tusind tak for din hjælp.

Smid du dig et svar, for du har da fortjent de her point!.

- Public2
Avatar billede Slettet bruger
29. januar 2007 - 18:27 #3
Hej

- Det var godt at det kom til at virke...
Det er jeg glad for at høre!

Hermed et svar...

\Dan
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester