Avatar billede spritzer Nybegynder
09. marts 2003 - 20:49 Der er 10 kommentarer og
1 løsning

Den gemmer ikke i databasen...

Hej, det hele ser ud til at virker, jeg får ingen fejl, men intet bliver gemt i DB'en?

formen.
___________
<form action="tilfoejtop10.asp" method="post">
  <table width="600">
    <tr><td width="102">Denne Uge</td>
<td width="100">Sidste Uge</td>
<td width="100">Titel</td>
<td width="100">Format</td>
<td width="100">Link</td>
</tr><tr>
<td width="100"><input type="text" name="DenneUge"></td>
<td width="100"><input type="text" name="SidsteUge"></td>
<td width="100"><input type="text" name="Titel"></td>
<td width="100"><select><option value="PS2.jpg">PS2</option>
                <option value="PSOne.jpg">PSOne</option>
                <option value="XB.jpg">XB</option>
                <option value="GC.jpg">GC</option>
                <option value="GBA.jpg"></option>
                </select></td>
<td width="100"><input type="text" name="Link"></td>
</tr>
<tr><td><input type="submit" value:"Tilføj">
</td>
</tr>
</table>
</form>
_____________

tilfoejtop10.asp

<html>
<head>
<title>Succes!</title>
</head>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("z.mdb")
Conn.Open DSN

strSQL = "Insert into Top20 (DenneUge, SidsteUge, Titel, Format, Link) values('" & strSQL = Request.Form("Titel") & "',"
strSQL = strSQL & "'" & Request.Form("DenneUge") & "', "
strSQL = strSQL & "'" & Request.Form("SidsteUge") & "', "
strSQL = strSQL & "'" & Request.Form("Titel") & "', "
strSQL = strSQL & "'" & Request.Form("Format") & "', "
strSQL = strSQL & "'" & Request.Form("Link") & "')"

Conn.Close
Set Conn = Nothing

Response.Write "Databasen er opdateret!"
%>
</body>
</html>

____________


Håber i kan fortælle mig hvad jeg gør galt?
Avatar billede a-torsten Nybegynder
09. marts 2003 - 20:51 #1
Du mangler titel i

strSQL = "Insert into Top20 (DenneUge, SidsteUge, Titel, Format, Link) values('" & strSQL = Request.Form("Titel") & "',"
strSQL = strSQL & "'" & Request.Form("DenneUge") & "', "
strSQL = strSQL & "'" & Request.Form("SidsteUge") & "', "
strSQL = strSQL & "'" & Request.Form("Titel") & "', "
strSQL = strSQL & "'" & Request.Form("Format") & "', "
strSQL = strSQL & "'" & Request.Form("Link") & "')"

Du prøver at sætte 6 ind i 5 tabeller.
Avatar billede a-torsten Nybegynder
09. marts 2003 - 20:51 #2
Det var et svar....
Avatar billede askhoej Praktikant
09. marts 2003 - 21:00 #3
Du har titel med to gange.
Avatar billede jpvj Nybegynder
09. marts 2003 - 21:00 #4
Ret din kode til:

strSQL = "Insert into Top20 (DenneUge, SidsteUge, Titel, Format, Link) values('"
strSQL = strSQL & "'" & Request.Form("DenneUge") & "', "
strSQL = strSQL & "'" & Request.Form("SidsteUge") & "', "
strSQL = strSQL & "'" & Request.Form("Titel") & "', "
strSQL = strSQL & "'" & Request.Form("Format") & "', "
strSQL = strSQL & "'" & Request.Form("Link") & "')"
Avatar billede askhoej Praktikant
09. marts 2003 - 21:01 #5
strSQL = "Insert into Top20 (DenneUge, SidsteUge, Titel, Format, Link) values('" 
strSQL = strSQL & "'" & Request.Form("DenneUge") & "', "
strSQL = strSQL & "'" & Request.Form("SidsteUge") & "', "
strSQL = strSQL & "'" & Request.Form("Titel") & "', "
strSQL = strSQL & "'" & Request.Form("Format") & "', "
strSQL = strSQL & "'" & Request.Form("Link") & "')"
Avatar billede spritzer Nybegynder
09. marts 2003 - 21:06 #6
Nope, det virker ikke. Data'erne bliver ikke gemt...
Avatar billede hossein Nybegynder
09. marts 2003 - 21:36 #7
Prøv denne her:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("z.mdb")
Conn.Open DSN

strSQL ="INSERT INTO Top20 (DenneUge,SidsteUge,"
strSQL =strSQL & "Titel,Format,Link)"
strSQL =strSQL & " VALUES "
strSQL =strSQL & "('" & Request.Form("DenneUge") & "',"
strSQL =strSQL & "'" & Request.Form("SidsteUge") & "',"
strSQL =strSQL & "'" & Request.Form("Titel") & "',"
strSQL =strSQL & "'" & Request.Form("Format") & "',"
strSQL =strSQL & "'" & Request.Form("city") & "',"
strSQL =strSQL & "'" & Request.Form("Link") & "')"
on error resume next
conn.Execute strSQL, recaffected
if err<>0 then
  Response.Write("Update er ikke tilladt!")
else
  Response.Write("<h3>" & recaffected & " rekord tilføjet.</h3>")
end if
conn.close
%>
Avatar billede jpvj Nybegynder
10. marts 2003 - 10:25 #8
hossein> Det går da helt galt. Du prøver at indsætte 6 værdier i 5 kolonner!

Prøv følgende:
1) Tilføj et mellemrum efter values, dvs. values( rettes til VALUES (. Jeg ved ikke om det har noget at sige, men det ser da pænere ud. (Jeg skriver altid SQL reserverede ord med stort)
2) Udskriv strSQL og vis os hvad du rent faktisk sender til DMBS. Det burde helt klart kunne afsløre fejlen.

JP
Avatar billede nuno Nybegynder
10. marts 2003 - 10:32 #9
spritzer> du mangler en Conn.execute strSQL i din egen kode, og så har du titel med 2 gange i din SQL-streng - ligesom det ser ud til at der er lidt rod i den generering af sql-strengen. Jeg tror det skal se således ud:

strSQL = "INSERT INTO Top20 (DenneUge, SidsteUge, Titel, Format, Link) VALUES " _
& "('" & Request.Form("DenneUge") & "', " _
& "'" & Request.Form("SidsteUge") & "', " _
& "'" & Request.Form("Titel") & "', " _
& "'" & Request.Form("Format") & "', " _
& "'" & Request.Form("Link") & "')"

/nuno
Avatar billede nuno Nybegynder
10. marts 2003 - 10:34 #10
dvs. din tilfoejtop10.asp skal se således ud:

<html>
<head>
<title>Succes!</title>
</head>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("z.mdb")
Conn.Open DSN

strSQL = "INSERT INTO Top20 (DenneUge, SidsteUge, Titel, Format, Link) VALUES " _
& "('" & Request.Form("DenneUge") & "', " _
& "'" & Request.Form("SidsteUge") & "', " _
& "'" & Request.Form("Titel") & "', " _
& "'" & Request.Form("Format") & "', " _
& "'" & Request.Form("Link") & "')"

Conn.Execute strSQL

Conn.Close
Set Conn = Nothing

Response.Write "Databasen er opdateret!"
%>
</body>
</html>

/nuno
Avatar billede hossein Nybegynder
10. marts 2003 - 20:30 #11
Ups, du har ret jpvj, den er ikke rigtig, men den er tilgengæld rigtig:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("z.mdb")
Conn.Open DSN

strSQL ="INSERT INTO Top20 (DenneUge,SidsteUge,"
strSQL =strSQL & "Titel,Format,Link)"
strSQL =strSQL & " VALUES "
strSQL =strSQL & "('" & Request.Form("DenneUge") & "',"
strSQL =strSQL & "'" & Request.Form("SidsteUge") & "',"
strSQL =strSQL & "'" & Request.Form("Titel") & "',"
strSQL =strSQL & "'" & Request.Form("Format") & "',"
strSQL =strSQL & "'" & Request.Form("Link") & "')"
on error resume next
conn.Execute strSQL, recaffected
if err<>0 then
  Response.Write("Update er ikke tilladt!")
else
  Response.Write("<h3>" & recaffected & " rekord tilføjet.</h3>")
end if
conn.close
%>

sorry spritzer!
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