indsæt i database

Sådan her... - lav alle Sessions om til Request.Form("feltnavn")

sql = "Insert Into Bruger(Tabel1, Tabel2, Tabel3, Tabel4,Tabel5, Tabel6, Tabel7, dato) Values('"
sql = sql & Session("Tabel1") & "','"
sql = sql & Session("Tabel2") & "','"
sql = sql & Session("Tabel3") & "','"
sql = sql & Session("Tabel4") & "','"
sql = sql & Session("Tabel5") & "','"
sql = sql & Session("Tabel6") & "','"
sql = sql & Session("Tabel7") & "','"
sql = sql & Now("dato") & "')"

conn.execute(strSQL)


//>Rune

-og så selvfølgelig din connection...

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb")

sql = "Insert Into Bruger(Tabel1, Tabel2, Tabel3, Tabel4,Tabel5, Tabel6, Tabel7, dato) Values('"
sql = sql & Session("Tabel1") & "','"
sql = sql & Session("Tabel2") & "','"
sql = sql & Session("Tabel3") & "','"
sql = sql & Session("Tabel4") & "','"
sql = sql & Session("Tabel5") & "','"
sql = sql & Session("Tabel6") & "','"
sql = sql & Session("Tabel7") & "','"
sql = sql & Now("dato") & "')"

conn.execute(strSQL)

Det var vidst lidt bedere... ;-)
held og lykke med det

//>Rune

Hvilke typer er felterne:

usg
type
status

hvad mener du med typer ?

rune men hvordan laver jeg formen til input ?

Jeg har brugt denne form:
<html>
<title>Formular</title>
<head>
</head>
<body>

<form method="post" action="insert.asp">

<p>Indtast USG nummer:
<input type="text" name="nummer"></p>

<p>Hvad er status:
<input type="radio" name="status" value="k"> klar
<input type="radio" name="status" value="v"> venter
<input type="radio" name="status" value="u"> under reparation</p>

<input type="submit">

</form>

</body>
</html>



Og denne kode til indsættelse af data, men det virker ikke.
<% Response.Buffer = True %>
<html><head>
<title>indsæt data</title>
<BODY BGCOLOR="#D3E2D3"
</head><body>
<STYLE>BODY {
    scrollbar-darkshadow-color: #D3E2D3;
    scrollbar-shadow-color: #D3E2D3;
    scrollbar-3dlight-color: #D3E2D3;
    scrollbar-face-color: #D3E2D3;
    scrollbar-arrow-color: #D3E2D3;
    scrollbar-track-color: #D3E2D3;
    scrollbar-highlight-color: #D3E2D3;
}</STYLE>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/database.mdb")
Conn.Open DSN

' SQL sætning opbygges
strSQL = "Insert into personer (usg) values('" & Request.Form("usg") & "')"
strSQL = "Insert into personer (status) values('" & Request.Form("status") & "')"



' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
<h1>Databasen er opdateret!</h1>
</body>
</html>

Hvad er fejlen

Dine 2 sql-sætninger skal sættes sammen til en - og så skal usg ændres til nummer som i formen - sådan:

strSQL = "Insert into personer (usg, status) values('" & Request.Form("nummer") & "', '" & Request.Form("status") & "')"

Ellers er alt andet korrekt.

Der er 2 problemer mere som du kan rende ind i og det er:
1. Hvis bruger ikke indtaster noget i felterne.
2. Hvis typerne i databasen ikke er tekstfelter.

Din SQL-sætning er lavet som om at usg er et tekstfelt. Hvis det nu viser sig at det er et tal-felt så skal sql-sætningen ændres:

strSQL = "Insert into personer (usg, status) values(" & Request.Form("nummer") & ", '" & Request.Form("status") & "')"

'-tegnene er fjernet omkring "nummer"

Det var lige det jeg skulle bruge, virker fint :)

Points går til dig.
PS: Har du en let måde hvorpå man kan slette poster igen ?

Vil du slette dem manuelt en af gangen eller vil du en gang i mellem køre en kørsel der sletter poster der er "gamle". ?

jeg vil gerne have en form hvor jeg indtaster nummer (usg) som så sletter hele posteringen

samt en form som kan ændre i allerede indtastede oplysninger.

Hvis jeg feks. laver nr. 11111 og så igen laver nr. 11111 så vil den bare lave en extra post altså så jeg har 2 poster der hedder 11111, det skal den ikke jeg vil gerne have så hvis jeg indtaster et allerede eksisterende nummer så RETTER den posten.

jeg vil afsette flere point til dig

hovsa afsætte :)

det burde vel have været lavet i et nyt spm... men ok...

slet.asp:
---
<%sql="select * from personer order by usg"
set record=rs.execute(sql)%>
<form action="sletning.asp">
<select name="sletter"><%do while not record.eof%>
<option value="<%=record("usg")%>"><%=record("usg")&" - "&record("status")%>
<%record.movenext
loop%></option>
</select>
</form>

det ovenstående skriver du ind i en fil som hedder SLET.ASP
så vil der i den fil komme en dropdown med alle dine usg'er

og så laver du en fil som hedder sletning.asp
og deri skriver du

<%sql="delete * from personer where usg='"&request.form("sletter")&"'"
set record=rs.execute(sql)%>

så er den skid slået

du skal selvfølgelig lige huske dine db-connections i begge filer

Dette giver en fejl "mangler "  "

Her er koden:
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/database.mdb")
Conn.Open DSN

<%sql="select * from personer order by usg"
set record=rs.execute(sql)%>
<form action="sletning.asp">
<select name="sletter"><%do while not record.eof%>
<option value="<%=record("usg")%>"><%=record("usg")&" - "&record("status")%>
<%record.movenext
loop%></option>
</select>
</form>
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>



Og den til sletning:
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/database.mdb")
Conn.Open DSN

<%sql="delete * from personer where usg='"&request.form("sletter")&"'"
set record=rs.execute(sql)%>
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>


Kan du se hvad fejlen er, jeg får ingen form frem kun en fejl.

Den skriver intern server fejl.

er der et sted jeg kan se det eller kører du det på en pws?

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/database.mdb")
Conn.Open DSN

<%sql="delete * from personer where usg='"&request.form("sletter")&"'"
set record=rs.execute(sql)%>
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>


du har to <% men kun en %>  kunne det være derfor eller har du basre ikke kopieret den anden %> med ?

du skulle måske lige bytte rs.execute ud med conn.execute

jeg prøver lige at rette det.

ok.. ellers ville det fedt med et link til siden

hmm, det virker sgu ikke som det skal, her er den tatale kode, der er nok fejl i den. jeg er ikke så skrap til asp.

slet.asp

<% Response.Buffer = True %>
<html><head>
<title>indsæt data</title>
<BODY BGCOLOR="#D3E2D3"
</head><body>
<STYLE>BODY {
    scrollbar-darkshadow-color: #D3E2D3;
    scrollbar-shadow-color: #D3E2D3;
    scrollbar-3dlight-color: #D3E2D3;
    scrollbar-face-color: #D3E2D3;
    scrollbar-arrow-color: #D3E2D3;
    scrollbar-track-color: #D3E2D3;
    scrollbar-highlight-color: #D3E2D3;
}</STYLE>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/database.mdb")
Conn.Open DSN

sql="select * from personer order by usg"
set record=rs.execute(sql)
<form action="sletning.asp">
<select name="sletter"><%do while not record.eof%>
<option value="<%=record("usg")%>"><%=record("usg")&" - "&record("status")%>
<%record.movenext
loop%></option>
</select>
</form>

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
<h1>Databasen er opdateret!</h1>
</body>
</html>

sletning.asp

<% Response.Buffer = True %>
<html><head>
<title>indsæt data</title>
<BODY BGCOLOR="#D3E2D3"
</head><body>
<STYLE>BODY {
    scrollbar-darkshadow-color: #D3E2D3;
    scrollbar-shadow-color: #D3E2D3;
    scrollbar-3dlight-color: #D3E2D3;
    scrollbar-face-color: #D3E2D3;
    scrollbar-arrow-color: #D3E2D3;
    scrollbar-track-color: #D3E2D3;
    scrollbar-highlight-color: #D3E2D3;
}</STYLE>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/database.mdb")
Conn.Open DSN

sql="delete * from personer where usg='"&request.form("sletter")&"'"
set record=rs.execute(sql)%>
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
<h1>Databasen er opdateret!</h1>
</body>
</html>

Håber du kan se hvad der er galt.

Link til test side kan findes her:
http://www30.brinkster.com/comgros/

filer på server er:
slet.asp
sletning.asp
insert.htm
insert.asp
default.html

sql="select * from personer order by usg"
set record=rs.execute(sql)
<form action="sletning.asp">
<select name="sletter"><%do while not record.eof%>
<option value="<%=record("usg")%>"><%=record("usg")&" - "&record("status")%>
<%record.movenext
loop%></option>
</select>
</form>


skal rettes til

sql="select * from personer order by usg"
set record=rs.execute(sql)%>
<form action="sletning.asp">
<select name="sletter"><%do while not record.eof%>
<option value="<%=record("usg")%>"><%=record("usg")&" - "&record("status")%>
<%record.movenext
loop%></option>
</select>
</form><%

der manglede lige et %> og et <%

det er så slet.asp vi snakker om

giver denne fejl:
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/comgros/slet.asp, line 23

Linie 23 må være: set record=rs.execute(sql)%>

ja, og der skal rs.execute så rettes til conn.execute

(håber jeg det virker)

Det virker næsten :)
prøv selv, der kommer en dropdown box men der er en fejl omkring slutningen

Jeg tror der mangler en "enter" funktion til formen .

%> ' Luk databaseforbi

der skal du lige vende %> til <%

så og så er det bare lige at du skal sætte en sumbit knap ind efter select funktionen i formen...

den ser således ud
<input type="submit" name="Submit" value="Submit">

og den skal være mellem </select> og </form>

og så skulle den gerne være...  :-)

Nu ser det hele ud til at virke, men den sletter ikke fra databasen :)

Her er sletning.asp:

<% Response.Buffer = True %>
<html><head>
<title>indsæt data</title>
<BODY BGCOLOR="#D3E2D3"
</head><body>
<STYLE>BODY {
    scrollbar-darkshadow-color: #D3E2D3;
    scrollbar-shadow-color: #D3E2D3;
    scrollbar-3dlight-color: #D3E2D3;
    scrollbar-face-color: #D3E2D3;
    scrollbar-arrow-color: #D3E2D3;
    scrollbar-track-color: #D3E2D3;
    scrollbar-highlight-color: #D3E2D3;
}</STYLE>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/database.mdb")
Conn.Open DSN

sql="delete * from personer where usg='"&request.form("sletter")&"'"
set record=conn.execute(sql)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
<h1>Databasen er opdateret!</h1>
</body>
</html>

Du får lige slet.asp også:

<% Response.Buffer = True %>
<html><head>
<title>indsæt data</title>
<BODY BGCOLOR="#D3E2D3"
</head><body>
<STYLE>BODY {
    scrollbar-darkshadow-color: #D3E2D3;
    scrollbar-shadow-color: #D3E2D3;
    scrollbar-3dlight-color: #D3E2D3;
    scrollbar-face-color: #D3E2D3;
    scrollbar-arrow-color: #D3E2D3;
    scrollbar-track-color: #D3E2D3;
    scrollbar-highlight-color: #D3E2D3;
}</STYLE>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/database.mdb")
Conn.Open DSN

sql="select * from personer order by usg"
set record=conn.execute(sql)%>
<form action="sletning.asp">
<select name="sletter"><%do while not record.eof%>
<option value="<%=record("usg")%>"><%=record("usg")&" - "&record("status")%>
<%record.movenext
loop%></option>


</select>
<input type="submit" name="Submit" value="Submit">
</form><%

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing%>
</body>
</html>

prøv at rette <% Response.Buffer = True %> til
<% Response.Buffer = True
response.write request.form("sletter") %>

nej, det hjælper ikke.

Skal værdien i submit ikke bruges i sletning.asp ?

nej, den er ligemeget

jeg ved godt at den der response.write ikke hjælper, men jeg havde håbet på at den skrev noget på sletning.asp

doooh... formtagget:
form tagget skal se sådanne ud på slet.asp
<form name="slet" method="post" action="sletning.asp">

jeg prøver lige

yes my boys ;) it works

hvor mange point var det værd :)

PS: jeg skulle egentlig også ha' så det var muligt at rette en post, hvis du har mere tid,,,det ser jo ud til du har check på det der !

evt. hvis det var muligt at ændre i insert.htm/insert.asp så man kunne ændre i usg, hvis jeg indtaster det samme nummer igen får jeg bare en ny linie med samme nummer

ja, for satan da... totalt check på lortet... det tog kun 50 posts og 3 timer at fikse de fejl jeg selv har lavet... hahahahaha

hehe

<%record.movefirst%>
<form name="ret" method="post" action="rettelse.asp">
<select name="retter"><%do while not record.eof%>
<option value="<%=record("usg")%>"><%=record("usg")&" - "&record("status")%>
<%record.movenext
loop%></option>
</select>
<input type="submit" name="Submit" value="ret data">
</form>

sæt dette ind efter </form> tagget i slet.asp

hvad er det så for data du vil kunne rette ?

prøv at køre: http://www30.brinkster.com/comgros/insert.htm

Dette bruger jeg når jeg indtaster data, jeg skal kunne rette de samme.

hvad hedder kolonnerne i din database og hvilke data hører dertil ?

så opretter du en fil som hedder rettelse.asp (efter du har lavet den ændring som jeg beskrev i slet.asp)

og rettelse skal se således ud:
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/database.mdb")
Conn.Open DSN
sql="select * from personer where usg='"&request.form("retter")&"'"
set record=conn.execute(sql)%>
<html>
<title>Formular</title>
<head>
</head>
<body>
<BODY BGCOLOR="#D3E2D3"
</head><body>
<STYLE>BODY {
    scrollbar-darkshadow-color: #D3E2D3;
    scrollbar-shadow-color: #D3E2D3;
    scrollbar-3dlight-color: #D3E2D3;
    scrollbar-face-color: #D3E2D3;
    scrollbar-arrow-color: #D3E2D3;
    scrollbar-track-color: #D3E2D3;
    scrollbar-highlight-color: #D3E2D3;
}</STYLE>

<form method="post" action="insert.asp">

<p>Indtast USG nummer:
<input type="text" name="nummer" SIZE=4 value="<%=record("usg")%>"></p>

<p>Indtast vare type:
<input type="text" name="type" value="<%=record("type")%>"></p>

<p>Indtast dato:
<input type="text" name="dato" SIZE=5 value="<%=record("dato")%>"></p>

<p>Hvad er status:
<input type="radio" name="status" value="Færdig"<%if record("status")="Færdig" then response.write" checked"%>> Klar
<input type="radio" name="status" value="Venter"<%if record("status")="Venter" then response.write" checked"%>> Venter
<input type="radio" name="status" value="Under reparation"<%if record("status")="Under reparation" then response.write" checked"%>> Under reparation</p>
<input type="submit" value="opdater rettelser">
</form>

</body>
</html>

hovsa... formtagget skal være: <form method="post" action="update.asp">

jeg prøver lige

og derefter opretter du filen update.asp som ser således ud:

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/database.mdb")
Conn.Open DSN

sql="update personer set type='"&request.form("type")&"', dato='"&request.form("dato")&"', status='"&request.form("status")&"'where usg='"&request.form("usg")&"'"
set record=conn.execute(sql)%>
<html>
<title>Formular</title>
<head>
</head>
<body>
<BODY BGCOLOR="#D3E2D3"

data er nu rettet
</body>
</html>

og så er der fårhåbentlig mere styr på lortet end lort på styret

Det hele virker men den retter ikke.

PS: det er fandme smart :)

Den skriver ikke "data er nu rettet"

jeg tror der mangler en Conn.Close, men jeg ved ikke om det har noget at sige.

lige den har ikke noget at sige....

men du har to <body> tags... slet lige den korteste af dem!

næhh det hjælper ikke, stadig ingen rettelse og ingen tekst

haha nu skriver den "date er nu rettet" jeg rettede til :
<p>data er nu rettet</p>

Men den retter ikke.

ret denne linje:

sql="update personer set type='"&request.form("type")&"', dato='"&request.form("dato")&"', status='"&request.form("status")&"'where usg='"&request.form("usg")&"'"

til:

sql="update personer set type='"&request.form("type")&"', dato='"&request.form("dato")&"', status='"&request.form("status")&"'where usg='"&request.form("nummer")&"'"

Du er fandme for go'    :)

det kører jo bare

går ud fra at det virker nu?

jeps, det kører,

jamen det er jo kanon så

du kan fange mig på icq 17571515 hvis der er mere

cool, tak for hjælpen

ok... hvis du vil give mig nogen point for det må du jo bare oprette et spørgsmål

jeg opretter det nu