Notifikationer

Markér alle som læst Log ud

linemus83 Nybegynder

03. september 2004 - 11:27 Der er 13 kommentarer og
1 løsning

Gemme i Acces

Hejsa,

Jeg har en applikation, hvor jeg henter et brugernavn, og denne bruger svarer på 2 spørgsmål. Dette skal så gemmes ned i en Acces-databasen, som jeg har oprette med 4 attributter.

Men hvordan gemmer jeg ned til denne?

/Line

Synes godt om

and_ Nybegynder

03. september 2004 - 11:30 #1

hvis de skal indsættes:

"insert into [TABEL] (kol1, kol2, kol3, kol4) values ('1','2','3','4')"

Hvis det er en eksisterende der skal opdateres:

"update [TABEL] set kol1 = '1', kol2 = '2', kol3 = '3', kol4 = '4' where id = " & idnr

Synes godt om

and_ Nybegynder

03. september 2004 - 11:32 #2

Idnr er en variabel med det id i tabellen som du vil opdatere...

Vi kan sige at du henter den via querystring

fil.asp?id=5

------------
idnr = request.querystring("id")
"update [TABEL] set kol1 = '1', kol2 = '2', kol3 = '3', kol4 = '4' where id = " & idnr
----------

Synes godt om

linemus83 Nybegynder

03. september 2004 - 11:33 #3

Jeg har ikke brug for at opdatere - kun gemme.

Synes godt om

and_ Nybegynder

03. september 2004 - 11:34 #4

så er det som sagt denne sqlsætning du skal bruge:
"insert into [TABEL] (kol1, kol2, kol3, kol4) values ('1','2','3','4')"

Synes godt om

and_ Nybegynder

03. september 2004 - 11:37 #5

et eksempel:

navn = request.form("navn")
tlf = request.form("tlf")
svar1 = request.form("svar1")
svar2 = request.form("svar2")

"insert into besvarede (navnet, tele, q1, q2) values ('" & navn & "','" & tlf & "','" & svar1 & "','" & svar2 & "')"

Synes godt om

linemus83 Nybegynder

03. september 2004 - 11:39 #6

Kan du gøre det ud fra min applikation? Så kan du få lidt ekstra point ;-)
<%@ Language=VBScript %>

<%
'Her skrives vagt fra login, men kan selv ændres i input boksen
Length = Len(Request.ServerVariables ("Auth_user"))
For StringCounter = 1 to Length
Character = Mid(Request.ServerVariables ("Auth_user"), StringCounter, 1)
If Character = "\" Then
User = Mid(Request.ServerVariables ("Auth_user"), StringCounter + 1, Length - StringCounter)
End If
Next
%>
<html>
<head>
<title> LINE </title>
<style type="text/css">
H1.navn {border-width; border:solid; text-align:center}
TABLE {font-size:small; font-family:arial,sans-serif;}
</style>

<script type="text/javascript">
function validering(f){
if(!f.radio1[0].checked && !f.radio1[1].checked || !f.radio2[0].checked && !f.radio2[1].checked ){
alert('Du skal svare på begge spørgsmål!');
return false;
}
return true;
}

function checkSend(flt){
f = flt.form;
if((f.radio1[0].checked || f.radio1[1].checked) && (f.radio2[0].checked || f.radio2[1].checked) ){
f.submit();
}
}

</script>
</head>
<body>
<hr>

<form action="" method="post" onsubmit="return validering(this);">

<input type="hidden" name="Username" value="xxx">

Var du til erhvervsmesse onsdag? </br>
<input type="radio" name="radio1" value="1" onclick="checkSend(this)"> Ja<br>
<input type="radio" name="radio1" value="2" onclick="checkSend(this)"> Nej<br>

Var du til erhvervsmesse torsdag? </br>
<input type="radio" name="radio2" value="1" onclick="checkSend(this)"> Ja<br>
<input type="radio" name="radio2" value="2" onclick="checkSend(this)"> Nej<br>
</form>
<script type="text/javascript">
navn = prompt("Indtast dit brugernavn", "");

alert ("Brugeren med navnet: " + navn + " udfylder hernæst spørgsmålene");
document.forms[0].Username.value = navn;

insert into [eval] (brugernavn, spg1, spg2) values user','3','4')

</script>
<%
'Udskriver login brugernavn
Response.Write(User)

Response.Write("<br><br>")

'Udskriver brugernavn fra DB.
rsData = getsql("SELECT * FROM Eval")
response.Write(rsData("Brugernavn"))

%>

</body>
</html>

Jeg skal have svaret på begge spørgsmål samt brugernavnet gemt ned.

Synes godt om

linemus83 Nybegynder

03. september 2004 - 11:40 #7

Ja, og se lige bort fra det her - insert into [eval] (brugernavn, spg1, spg2) values user','3','4')

Synes godt om

and_ Nybegynder

03. september 2004 - 11:51 #8

Hvad med noget lignende det her:

<%@ Language=VBScript %>

<%
if request.querystring("doo") = "indsaet" then

r1 = request.form("radio1")
r2 = request.form("radio2")
brugernavn = request.querystring("Username")
getsql.execute("insert into eval (brugernavn, spg1, spg2) values ('" & brugernavn & "','" & r1 & "','"& r2 &"')")
response.write "Opdatering fuldført"

else
'Her skrives vagt fra login, men kan selv ændres i input boksen
Length = Len(Request.ServerVariables ("Auth_user"))
For StringCounter = 1 to Length
Character = Mid(Request.ServerVariables ("Auth_user"), StringCounter, 1)
If Character = "\" Then
User = Mid(Request.ServerVariables ("Auth_user"), StringCounter + 1, Length - StringCounter)
End If
Next

rsData = getsql("SELECT * FROM Eval")
bruger = rsData("Brugernavn")
%>
<html>
<head>
<title> LINE </title>
<style type="text/css">
H1.navn {border-width; border:solid; text-align:center}
TABLE {font-size:small; font-family:arial,sans-serif;}
</style>

<script type="text/javascript">
function validering(f){
if(!f.radio1[0].checked && !f.radio1[1].checked || !f.radio2[0].checked && !f.radio2[1].checked ){
alert('Du skal svare på begge spørgsmål!');
return false;
}
return true;
}

function checkSend(flt){
f = flt.form;
if((f.radio1[0].checked || f.radio1[1].checked) && (f.radio2[0].checked || f.radio2[1].checked) ){
f.submit();
}
}

</script>
</head>
<body>
<hr>

<form action="<%=Request.ServerVariables("script_name")%>?doo=indsaet" method="post" onsubmit="return validering(this);">

<input type="hidden" name="Username" value="xxx">

Var du til erhvervsmesse onsdag? </br>
<input type="radio" name="radio1" value="1" onclick="checkSend(this)"> Ja<br>
<input type="radio" name="radio1" value="2" onclick="checkSend(this)"> Nej<br>

Var du til erhvervsmesse torsdag? </br>
<input type="radio" name="radio2" value="1" onclick="checkSend(this)"> Ja<br>
<input type="radio" name="radio2" value="2" onclick="checkSend(this)"> Nej<br>
</form>
<script type="text/javascript">
navn = prompt("Indtast dit brugernavn", "");

alert ("Brugeren med navnet: " + navn + " udfylder hernæst spørgsmålene");
document.forms[0].Username.value = navn;

</script>
<%
end if
getsql.close
set getsql = nothing
%>
</body>
</html>

Synes godt om

and_ Nybegynder

03. september 2004 - 11:53 #9

kan bare ikke lige se hvad du vil med denne her:

rsData = getsql("SELECT * FROM Eval")
bruger = rsData("Brugernavn")

Du bruger den jo ikke...????

Synes godt om

linemus83 Nybegynder

03. september 2004 - 11:54 #10

Jeg kan ikke se, hvor det er, du går ind og gemmer?

Synes godt om

linemus83 Nybegynder

03. september 2004 - 11:55 #11

Eller jo, har fundet det. SKal lige se, om det virker.

Synes godt om

linemus83 Nybegynder

03. september 2004 - 11:56 #12

Jeg kan ikke logge på vores testserver nu, så jeg vender lige tilbage sidst på eftermiddagen.

Synes godt om

and_ Nybegynder

03. september 2004 - 11:59 #13

jeg har ændret lidt i dit script:

<%@ Language=VBScript %>
<html>
<head>
<title> LINE </title>
<style type="text/css">
H1.navn {border-width; border:solid; text-align:center}
TABLE {font-size:small; font-family:arial,sans-serif;}
</style>

<%
if request.querystring("doo") = "indsaet" then

r1 = request.form("radio1")
r2 = request.form("radio2")
brugernavn = request.querystring("Username")
getsql.execute("insert into eval (brugernavn, spg1, spg2) values ('" & brugernavn & "','" & r1 & "','"& r2 &"')")
response.write "Opdatering fuldført"
getsql.close
set getsql = nothing

else

'Her skrives vagt fra login, men kan selv ændres i input boksen
Length = Len(Request.ServerVariables ("Auth_user"))
For StringCounter = 1 to Length
Character = Mid(Request.ServerVariables ("Auth_user"), StringCounter, 1)
If Character = "\" Then
User = Mid(Request.ServerVariables ("Auth_user"), StringCounter + 1, Length - StringCounter)
End If
Next
%>
<script type="text/javascript">
function validering(f)
{
if(!f.radio1[0].checked && !f.radio1[1].checked || !f.radio2[0].checked && !f.radio2[1].checked ){
alert('Du skal svare på begge spørgsmål!');
return false;
}
return true;
}

function checkSend(flt)
{
f = flt.form;
if((f.radio1[0].checked || f.radio1[1].checked) && (f.radio2[0].checked || f.radio2[1].checked) ){
f.submit();
}
}

function faaNavn()
{
navn = prompt("Indtast dit brugernavn", "");
document.forms[0].Username.value = navn;
}

</script>
</head>
<body onload="faaNavn()">
<hr>
<form action="<%=Request.ServerVariables("script_name")%>?doo=indsaet" method="post" onsubmit="return validering(this);">
<input type="hidden" name="Username" value="xxx">

Var du til erhvervsmesse onsdag? </br>
<input type="radio" name="radio1" value="1" onclick="checkSend(this)"> Ja<br>
<input type="radio" name="radio1" value="2" onclick="checkSend(this)"> Nej<br>

Var du til erhvervsmesse torsdag? </br>
<input type="radio" name="radio2" value="1" onclick="checkSend(this)"> Ja<br>
<input type="radio" name="radio2" value="2" onclick="checkSend(this)"> Nej<br>
</form>
<%
end if
%>
</body>
</html>

Synes godt om

and_ Nybegynder

03. september 2004 - 12:00 #14

hhhmmm... om igen ;)

<%@ Language=VBScript %>
<html>
<head>
<title> LINE </title>
<style type="text/css">
H1.navn {border-width; border:solid; text-align:center}
TABLE {font-size:small; font-family:arial,sans-serif;}
</style>

<%
if request.querystring("doo") = "indsaet" then

r1 = request.form("radio1")
r2 = request.form("radio2")
brugernavn = request.form("Username")
getsql.execute("insert into eval (brugernavn, spg1, spg2) values ('" & brugernavn & "','" & r1 & "','"& r2 &"')")
response.write "Opdatering fuldført"
getsql.close
set getsql = nothing

else

'Her skrives vagt fra login, men kan selv ændres i input boksen
Length = Len(Request.ServerVariables ("Auth_user"))
For StringCounter = 1 to Length
Character = Mid(Request.ServerVariables ("Auth_user"), StringCounter, 1)
If Character = "\" Then
User = Mid(Request.ServerVariables ("Auth_user"), StringCounter + 1, Length - StringCounter)
End If
Next
%>
<script type="text/javascript">
function validering(f)
{
if(!f.radio1[0].checked && !f.radio1[1].checked || !f.radio2[0].checked && !f.radio2[1].checked ){
alert('Du skal svare på begge spørgsmål!');
return false;
}
return true;
}

function checkSend(flt)
{
f = flt.form;
if((f.radio1[0].checked || f.radio1[1].checked) && (f.radio2[0].checked || f.radio2[1].checked) ){
f.submit();
}
}

function faaNavn()
{
navn = prompt("Indtast dit brugernavn", "");
document.forms[0].Username.value = navn;
}

</script>
</head>
<body onload="faaNavn()">
<hr>
<form action="<%=Request.ServerVariables("script_name")%>?doo=indsaet" method="post" onsubmit="return validering(this);">
<input type="hidden" name="Username" value="xxx">

Var du til erhvervsmesse onsdag? </br>
<input type="radio" name="radio1" value="1" onclick="checkSend(this)"> Ja<br>
<input type="radio" name="radio1" value="2" onclick="checkSend(this)"> Nej<br>

Var du til erhvervsmesse torsdag? </br>
<input type="radio" name="radio2" value="1" onclick="checkSend(this)"> Ja<br>
<input type="radio" name="radio2" value="2" onclick="checkSend(this)"> Nej<br>
</form>
<%
end if
%>
</body>
</html>

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
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
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

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