Database-hvordan opdatere jeg poster

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
SQL = \"Select * From tabel WHERE id=\" & request(\"id\")
rs.Open SQL, Conn, 1, 3

rs(\"tekst\") = Request.form(\"tekst\")
rs(\"tekst2\") = Request.form(\"tekst2\")
rs.Update

ved submit skal du fyre av følgende SQL (fx):

\"UPDATE [tabellnavn] SET email = \'\" & request.form(\"email\") & \"\', navn = \'\" & request.form(\"navn\") & \"\' WHERE id = \" & request(\"id\")

u c my point ?

/nute

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


SQLstmt = \"UPDATE DISTINCTROW [DinTable] SET [DinValue] = \'Detduvilindsætte\' WHERE id = \" & Request(\"id\")
response.write sqlstmt

Conn.Execute (SQLstmt)

conn.Close
Set conn = nothing
Set SQLstmt = nothing

hehe, det gik stærkt... ;)

Jeg har lave en side (ret.asp)
hvor felterne i formen har de værdier der er i posterne. min submit føre så formen til (retkontakt.asp) så jeg gerne vil have at den åbner i database med det Id der kommer fra formen og erstatte felterne med de nye fra formen

Hvad er smartes at bruge i har alle tre, forskellige muligheder

så kom med ret.asp

min er nok dne letteste for der får du aldrig SQL fejl!

madd >> hvorfor benytter du DISTINCTROW ??? det er da ikke nødvendig, spesielt ikke når man setter en \"WHERE id = xx\"

mhingeh >> oppdateringen foregår ved å fyre av denne SQL:

SQL = \"UPDATE [tabellnavn] SET email = \'\" & request.form(\"email\") & \"\', navn = \'\" & request.form(\"navn\") & \"\' WHERE id = \" & request(\"id\")

/nute

tpiil >> det er ikke så pen måte å kode seg ut av problemer på den måten. Selv om det er mulig, så er det ikke en \"standard\" måte å modifisere innhold i en tabell.
/nute

Her er RET.asp

<%
response.expires = 0
if session(\"access\") <> true then response.redirect \"login.asp\"
id = request(\"id\")

set dsn = Server.CreateObject(\"ADODB.Connection\")
set db = Server.CreateObject(\"ADODB.RecordSet\")
dsn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"/data/adresse.mdb\")

db.open \"SELECT * FROM Adresse WHERE id=\" & id, dsn


%>

<html>

<head>
</head>

<body>

<form method=\"POST\" action=\"retkontakt.asp?mode=save.asp\"> 
  <table border=\"0\" width=\"354\">
    <tr>
      <td width=\"182\">
        <p align=\"left\"><b><font size=\"5\">Ret i Navnelisten</font></b></p>
        <p align=\"left\"><input type=\"hidden\" name=\"id\" size=\"20\" value=\"<%Response.write db(\"id\")%>\"><br>
        </p>
      </td>
    </tr>
    <tr>
      <td width=\"338\"><b>Fornavn<br>
  <input type=\"text\" name=\"Fornavn\" size=\"29\" value=\"<%Response.write db(\"fornavn\")%>\"><br>
        Efternavn<br>
        </b><input type=\"text\" name=\"Efternavn\" size=\"29\" value=\"<%Response.write db(\"efternavn\")%>\"><br>
        <b>
  Adresse<br>
  <input type=\"text\" name=\"Adresse\" size=\"29\" value=\"<%Response.write db(\"adresse\")%>\"><br>
        Post&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; By<br>
        <input type=\"text\" name=\"Post\" size=\"8\" value=\"<%Response.write db(\"post\")%>\"> <input type=\"text\" name=\"By\" size=\"19\" value=\"<%Response.write db(\"by\")%>\"><br>
        Tlf<br>
  <input type=\"text\" name=\"Tlf\" size=\"29\" value=\"<%Response.write db(\"telefon\")%>\"><br>
        Mobil<br>
        </b><input type=\"text\" name=\"Mobil\" size=\"29\" value=\"<%Response.write db(\"mobil\")%>\"><b><br>
        Telefax<br>
        </b><input type=\"text\" name=\"Telefax\" size=\"29\" value=\"<%Response.write db(\"telefax\")%>\"><b><br>
        Land<br>
        </b><input type=\"text\" name=\"Land\" size=\"29\" value=\"<%Response.write db(\"land\")%>\"><b><br>
  Email</b><br>
  <input type=\"text\" name=\"Email\" size=\"29\" value=\"<%Response.write db(\"email\")%>\"><b><br>
        </b></td>
    </tr>
    <tr>
      <td width=\"182\">
        <p align=\"left\">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input type=\"submit\" value=\"    Tilføj    \" name=\"Send\">
        <input type=\"reset\" value=\"Nulstil\" name=\"B2\"></td>
    </tr>
  </table>
</form>

</body>

</html>

og her er retkontakt.asp

<%
id = request.form(\"id\")

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
SQL = \"Select * From Adresse WHERE id=\" & request.form(\"id\")
rs.Open SQL, Conn, 1, 3

rs(\"fornavn\") = Request.form(\"fornavn\")
rs(\"efternavn\") = Request.form(\"efternavn\")
rs.Update 


%>




<body onunload=\'window.opener.location.reload()\'>


<p align=\"center\"><br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>

</BODY>

Hvad gør jeg galt

JEG ER EN DER SKAL HAVE DET SKÅRET UD I PAP :)
TOTAL AMATØR JEG ER..............

<body>
<html>

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


SQLstmt = \"UPDATE DISTINCTROW Adresse SET Fornavn = \'\" & Request.Form(\"Fornavn\") & \"\', Efternavn = \'\" & Request.Form(\"Efternavn\") & \"\', Adresse = \'\" & Request.Form(\"Adresse\") & \"\', Telefon = \'\" & Request.Form(\"Tlf\") & \"\', Mobil = \'\" & Request.Form(\"Mobil\") & \"\', Telefax = \'\" & Request.Form(\"Telefax\") & \"\', Land = \'\" & Request.Form(\"Land\") & \"\', Email = \'\" & Request.Form(\"Email\") & \"\' WHERE id = \" & Request.Form(\"id\")
response.write sqlstmt

Conn.Execute (SQLstmt)

conn.Close
Set conn = nothing
Set SQLstmt = nothing


</body>

</html>

<%
id = request.form(\"id\")

set dsn = Server.CreateObject(\"ADODB.Connection\")
dsn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"/data/adresse.mdb\")

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
SQL = \"Select * From Adresse WHERE id=\" & id
rs.Open SQL, dsn, 1, 3

rs(\"fornavn\") = Request.form(\"fornavn\")
rs(\"efternavn\") = Request.form(\"efternavn\")
rs(\"adresse\") = Request.form(\"Adresse\")
rs(\"Post\") = Request.form(\"post\")
rs(\"telefon\") = Request.form(\"Tlf\")
rs(\"mobil\") = Request.form(\"Mobil\")
rs(\"telefax\") = Request.form(\"Telefax\")
rs(\"land\") = Request.form(\"Land\")
rs(\"email\") = Request.form(\"Email\")
rs.Update
%>




<body onunload=\'window.opener.location.reload()\'>


<p align=\"center\"><br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>

</BODY>

retkontakt.asp:
<%
id = request.form(\"id\")

set dsn = Server.CreateObject(\"ADODB.Connection\")
dsn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"/data/adresse.mdb\")

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
SQL = \"Select * From Adresse WHERE id=\" & id
rs.Open SQL, dsn, 1, 3

rs(\"fornavn\") = Request.form(\"fornavn\")
rs(\"efternavn\") = Request.form(\"efternavn\")
rs(\"adresse\") = Request.form(\"Adresse\")
rs(\"Post\") = Request.form(\"post\")
rs(\"telefon\") = Request.form(\"Tlf\")
rs(\"mobil\") = Request.form(\"Mobil\")
rs(\"telefax\") = Request.form(\"Telefax\")
rs(\"land\") = Request.form(\"Land\")
rs(\"email\") = Request.form(\"Email\")
rs.Update
%>
Db\'en er opdateret :)

Ovenstående er retkontakt.asp ....
En lille rettelse:

Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"db/database.mdb\")

SKAL ERSTATTES MED

Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"/data/adresse.mdb\")

Microsoft OLE DB Provider for ODBC Drivers
TPIIL

error \'80004005\'

[Microsoft][ODBC Microsoft Access Driver] Field \'Adresse.Telefon\' cannot be a zero-length string.

/retkontakt.asp, line 20

Små fejl er nu rettet....her er retkontakt.asp:

<body>
<html>

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"/data/adresse.mdb\")


SQLstmt = \"UPDATE DISTINCTROW Adresse SET Fornavn = \'\" & Request.Form(\"Fornavn\") & \"\', Efternavn = \'\" & Request.Form(\"Efternavn\") & \"\', Adresse = \'\" & Request.Form(\"Adresse\") & \"\', Telefon = \'\" & Request.Form(\"Tlf\") & \"\', Mobil = \'\" & Request.Form(\"Mobil\") & \"\', Telefax = \'\" & Request.Form(\"Telefax\") & \"\', Land = \'\" & Request.Form(\"Land\") & \"\', Email = \'\" & Request.Form(\"Email\") & \"\' WHERE id = \" & Request.Form(\"id\")
response.write sqlstmt

Conn.Execute (SQLstmt)

conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>

</body>
</html>

så skal du bare huske at skrive noget i formen :)

tpiil

Det virker hvis alle felterne er udfyldt men.

Der skal være mulighed for at nogle af felterne er tomme

lag din \'retkontakt.asp\'  om til dette:

<%
id = request.form(\"id\")

fornavn = request.form(\"Fornavn\")
efternavn = request.form(\"Efternavn\")
adresse = request.form(\"Adresse\")
by = request.form(\"By\")
telefon  = request.form(\"Telefon\")
mobil = request.form(\"Mobil\")
land  = request.form(\"Land\")
email = request.form(\"Email\")

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
SQL = \"UPDATE Adresse SET fornavn = \'\" & fornavn & \"\', \" & _
      \"efternavn = \'\" & efternavn & \"\', \" & _
      \"adresse = \'\" & adresse & \"\', \" & _
      \"by = \'\" & by & \"\', \" & _
      \"telefon  = \'\" & telefon & \"\', \" & _
      \"mobil = \'\" & mobil & \"\', \" & _
      \"land  = \'\" & land & \"\', \" & _
      \"email = \'\" & email & \"\' WHERE id=\" & id
rs = Conn.execute(SQL)


%>

hvorfor gjør du dette:

<body onunload=\'window.opener.location.reload()\'>

??? det vil jo ikke gjøre noe godt...

/nute

ja det er ikke mit problem det er faktisk dit for det skal laves i databasen men hvis du sender den på tpiil@netstuff.dk kan jeg lige ordne det for dig :)

nute

<body onunload=\'window.opener.location.reload()\'>

´det er til at opdatere siden jeg kom fra med de nye ændringer når jeg lukker siden ned :)

tpiil

løb af med sejren, og kunne løse mit problem

TAK  :)

sejren?? hvis jeg skal kalde det en sejr skal der penge på bordet og ikke point :)

mhingeh >> bare litt nyskjerrig....hvorfor reloade en side når man er på vei ut av den ?? det henger jo ikke sammen ?! (med mindre det er et popup vindu)

/nute