Avatar billede fastpoint Nybegynder
18. august 2002 - 23:33 Der er 3 kommentarer og
2 løsninger

en mindre fejl

hej igen


hvorfor sletter dette script de gamle oplysninger i databasen [email,kommentar osv] når jeg vil indsætte et navn i databasen?
den skal bare udfylde feltet navn uden at slette det der ellers står i de andre felter.. desuden opretter dette script et nyt ID til navnet og det skal den ikke.



<%
If Trim(Request("name")) > "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN
if request("name") = ""  then
response.write("what are you doing?")
else
Conn.Execute "INSERT INTO bruger (name) VALUES ('" & Replace(Request("name"), "'", "''") & "')"
Conn.Close: Set Conn = Nothing
  Response.Write "<h1>Navn Registreret</h1>"
%>

<% End If %>
<% end if %>
Avatar billede eagleeye Praktikant
18. august 2002 - 23:41 #1
Altså du vil opdatere en post?? Så skal du bruge UPADTE, så skal du gemme ID på den record som skal opdates i formen lige som du indsætter name..

sql = "UPDATE brugere SET name = '" & Replace(Request("name"), "'", "''") & "' WHERE ID = " & request("id")


Prøv evt at kigge på dette for at opdatere tabellen: http://www.w3schools.com/sql/sql_update.asp
Avatar billede fastpoint Nybegynder
18. august 2002 - 23:54 #2
den kommer ikke med nogen fejl, men der kommer ikke noget i databasen.

<%
If Trim(Request("name")) > "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN
if request("name") = ""  then
response.write("what are you doing?")
else
sql = "UPDATE brugere SET name = '" & Replace(Request("name"), "'", "''") & "' WHERE ID = " & request("id")
Conn.Close: Set Conn = Nothing
  Response.Write "<h1>Navn Registreret</h1>"
%>

<% End If %>
<% end if %>
Avatar billede medions Nybegynder
21. august 2002 - 17:22 #3
Prøv lige sådan her:
<%
If Trim(Request("name")) > "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN
if request("name") = ""  then
response.write("what are you doing?")
else
sql = "UPDATE brugere SET name = '" & Replace(Request("name"), "'", "''") & "' WHERE ID = " & request("id")
Conn.Close
Set Conn = Nothing
  Response.Write "<h1>Navn Registreret</h1>"
%>

<% End If %>
<% end if %>

//>Rune
Avatar billede fastpoint Nybegynder
21. august 2002 - 17:46 #4
jeg har fundet en anden lettere metode til dette, så jeg behøver det ikke mere... I kan dele disse point:)
Avatar billede medions Nybegynder
21. august 2002 - 17:56 #5
Fair nok ;o)
Thx 4 Poinz

//>Rune
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