UPDATE script til en database

Og jeg vil da gerne have en million, du må selv gætte i hvilken valuta og helst i ikke brugte sedler!

- du skal nok formulere dig noget bedre hvis du ønsker hjælp. Hvordan definerer du eks. UPDATE, hvad skal den kunne o.s.v.

Jeg synes ik at det burde være så svært at forstå, men jeg vil bare gerne have et eksempel på, hvor noget data i en database bliver vist i nogle tekst-felter (form), også kan man fx. redigere sit navn.

Bare ngoet jeg hurtigt skrev

Du skal have en db der hedder navn.mdb med en tabel der hedder navn med en felt der hedder navn

<%

 

  Set conntemp = Server.CreateObject(\"ADODB.Connection\")
  DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"db.mdb\") & \"; UID=Administrator; PWD=\"
  conntemp.open DSN
   
  mode=request(\"mode\")

%>
<%
 
\' ********************************* Vis nyhed
  if mode=\"rediger\" and request(\"id\") <> \"\" then
  If Request.Form(\"update\") <> \"\" Then
     
      SQL = \"UPDATE navn SET navn =\'\" & request(\"navn\") & \"\' WHERE id=\"& request(\"id\")&\" \"
      conntemp.execute(sql)
%>
Dit navn er opdateret
<%
    Else
      sql = \"SELECT * from tilbud WHERE id=\"& request(\"id\") &\" \"
      set rstemp = conntemp.execute(sql) %>

<FORM action=\"navn.asp?mode=rediger&id=<% response.write  rstemp(\"id\") %>\" method=\"post\">
   
Navn: <input name=\"vare\" size=\"30\" value=\"<% response.write  rstemp(\"Vare\") %>\">

<input type=\"submit\" name=\"update\" value=\"OPDATER NAVN\">

</FORM>
<% else %>

<% sql = \"SELECT * from navn ORDER BY navn asc\"
    set rstemp = conntemp.execute(sql)

do while not rstemp.eof
%>

<% response.write  rstemp(\"navn\") %> - <a href=\"?mode=rediger&id=<% response.write  rstemp(\"id\") %>\">Rediger</a>

<%
rstemp.movenext
Loop %>

<% end if %>


 
 
<%
  conntemp.close
  set conntemp=nothing

%>

ups.. din database skal hedde db.mbd

Argh 

Database = db.mdb
med en
tabel: navn
felter: id navn

og så kommer denne - har lige rettet den... burde virke .-)

<%

 

  Set conntemp = Server.CreateObject(\"ADODB.Connection\")
  DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"db.mdb\") & \"; UID=Administrator; PWD=\"
  conntemp.open DSN
   
  mode=request(\"mode\")

%>
<%
 
\' ********************************* Vis nyhed
  if mode=\"rediger\" and request(\"id\") <> \"\" then
  If Request.Form(\"update\") <> \"\" Then
     
      SQL = \"UPDATE navn SET navn =\'\" & request(\"navn\") & \"\' WHERE id=\"& request(\"id\")&\" \"
      conntemp.execute(sql)
%>
Dit navn er opdateret
<%
    Else
      sql = \"SELECT * from tilbud WHERE id=\"& request(\"id\") &\" \"
      set rstemp = conntemp.execute(sql) %>

<FORM action=\"navn.asp?mode=rediger&id=<% response.write  rstemp(\"id\") %>\" method=\"post\">
   
Navn: <input name=\"vare\" size=\"30\" value=\"<% response.write  rstemp(\"Vare\") %>\">

<input type=\"submit\" name=\"update\" value=\"OPDATER NAVN\">

</FORM>
<% end if %>
<% else %>

<% sql = \"SELECT * from navn ORDER BY navn asc\"
    set rstemp = conntemp.execute(sql)

do while not rstemp.eof
%>

<% response.write  rstemp(\"navn\") %> - <a href=\"?mode=rediger&id=<% response.write  rstemp(\"id\") %>\">Rediger</a>

<%
rstemp.movenext
Loop %>

<% end if %>


 
 
<%
  conntemp.close
  set conntemp=nothing

%>

Har fri nu - så svare først i morgen - hvis der er noget :-)

cocakay >> er du der ?

Burde jeg lave et svar...

Det er slet ikke simpelt nok...