Notifikationer

Markér alle som læst Log ud

dj-sejler Praktikant

10. februar 2003 - 00:05 Der er 9 kommentarer og
3 løsninger

checkbox - ned i databasen

Hej der ude...

Er der nogen speciel måde man skal håndtere en checkbox på for at få den ned i databasen?

Jeg kan i hvert fald ikke få det til at virke!

Synes godt om

tubber Juniormester

10. februar 2003 - 00:11 #1

Brug Yes/No.....

Den giver enten værdien yes/no eller True/False

og så lave en rutine der chekker din data i db.....

If DatabaseData = "Yes" Then
Check1 Value = True
Else: Check1 Value = False
End If

/Tubber

Synes godt om

tubber Juniormester

10. februar 2003 - 00:12 #2

Håber du fårstår meningen, det ligner vist lidt mere VB Syntaks :O)

Synes godt om

hossein Nybegynder

10. februar 2003 - 00:12 #3

hvordan ser ud din form ud?

Synes godt om

hossein Nybegynder

10. februar 2003 - 00:14 #4

jeg forstår at dj-sejler vil inserte værdierne ind i en tabel?

Synes godt om

tubber Juniormester

10. februar 2003 - 00:15 #5

jo men det er vel så bare den anden vej ik ?

Synes godt om

tubber Juniormester

10. februar 2003 - 00:20 #6

INSERT INTO tblYesNo (fieldYesNo) VALUE ('"Check1 Value"');

Noget i den retning....

Bare være sikker på den er sat til True/False i db, ellers skal væredierne lige omskrives til Yes/No (ja/nej).....

Synes godt om

hossein Nybegynder

10. februar 2003 - 00:25 #7

Når man bruger checkbox så giver brugeren flere valg muliheder derfor hver spørgsmål har flere muligheder, derfor er nødvendigt og vide hvordan formen er lavet?

Synes godt om

dj-sejler Praktikant

10. februar 2003 - 00:33 #8

Jeg plejer at gøre sådan:

Set rstemp = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM meddel WHERE (ID = 0)"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
rstemp.Open strSQL, strDSN, 1, 3
If (rstemp.BOF Or rstemp.EOF) Then
rstemp.AddNew
rstemp("Vis") = RemoveHTML(strVis)
rstemp("Emne") = RemoveHTML(strEmne)
rstemp("Udvalg") = RemoveHTML(strUdvalg)
rstemp("Beskrivelse") = Replace(RemoveHTML(strBeskrivelse), vbCrLf, "<br>")
rstemp.Update
End If
rstemp.Close
Set rstemp = Nothing

Men 'Vis' er så bare en ckeckbox på siden bruger denne:
<input type="checkbox" name="Vis" tabindex="4" value="<%=strVis%>" checked>

Hvis I forstår?!?!?

Synes godt om

hossein Nybegynder

10. februar 2003 - 00:51 #9

ok, men jeg ser stadigvæk ikke din form :-) men hvis du skal inserte flere værdier kan den laves som en array, kig på den løsning: http://www.eksperten.dk/spm/309679

Synes godt om

hossein Nybegynder

10. februar 2003 - 00:51 #10

sidste del hvor man indsætter værdierne i en tbl.

Synes godt om

dj-sejler Praktikant

10. februar 2003 - 00:54 #11

min fil ser sådan ud

-->tilfoej.asp<--

<%
If Request.Form("Add") <> "" Then
strError = ""
strEmne = Trim(Request.Form("Emne"))
strUdvalg = Trim(Request.Form("Udvalg"))
strVis = Trim(Request.Form("Vis"))
strBeskrivelse = Trim(Request.Form("beskrivelse"))
arr = split(strBeskrivelse," ")
for i = lbound(arr) to ubound(arr)
If Len(arr(i)) > 25 then
strError = "Et ord må kun indeholle 25 tegn!"
End If
next
If Len(strEmne) = 0 Then
strError = "Du skal skrive et emne!"
ElseIf Len(strUdvalg) = 0 Then
strError = "Du skal skrive et udvalg!"
ElseIf Len(strBeskrivelse) = 0 Then
strError = "Du skal skrive lidt om arrangementet!"
End If
If Len(strError) = 0 Then

Set rstemp = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM meddel WHERE (ID = 0)"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
rstemp.Open strSQL, strDSN, 1, 3
If (rstemp.BOF Or rstemp.EOF) Then
rstemp.AddNew
rstemp("Vis") = RemoveHTML(strVis)
rstemp("Emne") = RemoveHTML(strEmne)
rstemp("Udvalg") = RemoveHTML(strUdvalg)
rstemp("Beskrivelse") = Replace(RemoveHTML(strBeskrivelse), vbCrLf, "<br>")
rstemp.Update
End If
rstemp.Close
Set rstemp = Nothing
Response.Redirect("meddel.asp")
Else
strError = "<p><font face=verdana size=1 color=#FFFFFF><b>"& strError &"</b></font></p>"
strMode = "add"
End If
End If
%>


<html>
<head>
<title>Meddelelser - Tilføj</title>

</head>
<body>
<a href="java script:history.back(1);">Tilbage</a>

<h2><u>Meddelelser:</u></h2>

<br><center>

<table cellpadding=2 cellspacing=2 border=1 bordercolor=black class=format width="500">

<tr>
<td width="100%" colspan="3">
<br>

<form method="POST" action="tilfoej.asp">
<div align="center">
<center>
<table border="0" width="75%" cellspacing="0" cellpadding="0" height="223">
<tr>
<td width="100%" height="25"><%=strError%>
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Emne:</font><br>
<input type="text" name="Emne" size="28" class="box" tabindex="2" value="<%=strEmne%>">
</td>
</tr>
<tr>
<td width="100%" height="25"><font face="Verdana" size="2">Udvalg:</font><br>
<input type="text" name="Udvalg" size="28" class="box" tabindex="3" value="<%=strUdvalg%>">
</td>
</tr>
<tr>
<td width="100%" height="21"><font face="Verdana" size="2">Skal meddelelsen vises:</font><br>
<input type="checkbox" name="Vis" tabindex="4" value="<%=strVis%>" checked>
</td>
</tr>
<tr>
<td width="100%" height="62"><font face="Verdana" size="2">Beskrivelse af arrangementet:</font><br>
<textarea rows="8" name="Beskrivelse" cols="45" class="scrollbarbox" tabindex="5">
<%=strBeskrivelse%></textarea>
</td>
</tr>
<tr>
<td width="100%" height="46"><br>
<input type="submit" value=" Send " name="Add" class="box" tabindex="6">  
<input type="button" value=" Fortryd " name="Annuller" class="box" onClick="java script:location.href='meddel.asp'" tabindex="7">
</td>
</tr>
</table>
</center>
</div>
</form>
<br></td></tr>

</table></div>

Synes godt om

mccannon Nybegynder

10. februar 2003 - 09:58 #12

den måde jeg plejer at arbejde med checkboxes og db'er er som følger :

når man requester fra form :

box = request.form("checkbox")

If box = "on" then
box = 1
else
box = 0
end if

i databasen :
har jeg så et et talfelt med værdierne 1/0
hvis checkboxen er slået til, så skrives der 1 i feltet ellers skrives er 0 i feltet.

når man så henter ud fra databasen :
//åbne connection
//åbne recordset
boxen = rs("taltfelt")
select case boxen
case 0
check = ""
case 1
check = "checked"
end select
response.write "<input type='checkbox' name='box'" & check & "'>"

//luk recordset
//luk connection

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS