Update af access databaser

Det kunne f.eks. se således ud:

<!--#include file="adovbs.inc"-->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappathdb.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

Editstatus = "SELECT * from Bruger WHERE ID=" & Request.Querystring("id_statusupdate")
RecSet.Open Editstatus, Connect, adOpenStatic, adLockOptimistic
RecSet.Update
RecSet("Status") = Request.Form("Nystatus")
RecSet.Update
Response.Redirect "Default.asp"
%>

I linien:

RecSet("Status") = Request.Form("Nystatus")

Skal du selvfølgelig lige selv tilpasse hvorfra den nye værdi skal komme, og i hvilket felt den skal placeres.

Connect.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappathdb.mdb") <- der er noget galt der?

Connect.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("db.mdb")

hmm fatter ikke lige det du har lavet.. er ikke fyldstegørende nok!
Jeg har lavet en fil som hedder "member_changestatus.asp" nu som ser sådan ud:

<html>
<head></head>
<body>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/db.mdb")
sql = "select * from bruger where brugernavn = '" & Session("brugernavn") & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 1, 3
%>

      <form method=post action="member_changestatus.asp" id=form name=form>
     
      <SELECT id=status name=status class="textbox">
        <OPTION value="Active" selected>Active</OPTION>
        <OPTION value="Inactive">Inactive</OPTION>
      </SELECT>
      <br> 
      <br> 
      <INPUT type="submit" value="Update" id=submit1 name=submit1>
     
      </form>



<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/db.mdb")
sql = "SELECT * from Bruger WHERE ID=" & Request.Querystring("id_statusmember")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, Connect, adOpenStatic, adLockOptimistic

    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
    rs.update
    rs("status") = Request.form("status")
    rs.update
    Response.Redirect ("member.asp")
    end if
%>

</body>
</html>

Får bare følgende fejl!
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/member_changestatus.asp, line 134

ups linie 134 er denne:
rs.Open sql, Connect, adOpenStatic, adLockOptimistic

argh glem det her:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/db.mdb")
sql = "select * from bruger where brugernavn = '" & Session("brugernavn") & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 1, 3
%>

rs.Open sql, Connect, 1, 3

//>Rune

Nu siger den:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/member_changestatus.asp, line 85

som nu er denne linie!
rs.Open sql, Connect, 1, 3

Okay her er kildekoden som den ser ud nu:

<html>
<body>

<form method=post action="member_changestatus.asp" id=form name=form>
     
<SELECT id=status name=status class="textbox">
  <OPTION value="Active" selected>Active</OPTION>
  <OPTION value="Inactive">Inactive</OPTION>
</SELECT>
<br> 
<br> 
<INPUT type="submit" value="Update" id=submit1 name=submit1>
     
</form> 


<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/db.mdb")
sql = "SELECT * from Bruger WHERE ID=" & Request.Querystring("id_statusmember")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, Connect, 1, 3

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
    rs.update
    rs("status") = Request("status")
    rs.update
    Response.Redirect ("member.asp")
end if
%>

</body>
</html>

Når man trykker på linket på den forgangende side så kunne de se sådan ud:
member_changestatus.asp?id_statusupdate=3

Man får slet ikke formen at se! Den kommer bare med en fejl med det samme!
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/member_changestatus.asp, line 22

Som er denne linie:
rs.Open sql, Connect, 1, 3

rs.Open sql, Conn, 1, 3

er bestemt bedre. Du kan vel se hvorfor

okay nu kan jeg se formen :) men når jeg prøver at ændre status så siger den følgende:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'ID='.

/member_changestatus.asp, line 22

Så virker det!

<html>
<body>

<form method=post action="member_changestatus.asp?id_statusupdate=<%=request.querystring("id_statusupdate")%>" id=form name=form>
     
<SELECT id=status name=status class="textbox">
  <OPTION value="Active" selected>Active</OPTION>
  <OPTION value="Inactive">Inactive</OPTION>
</SELECT>
<br> 
<br> 
<INPUT type="submit" value="Update" id=submit1 name=submit1>
     
</form> 


<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/db.mdb")
sql = "SELECT * from Bruger WHERE ID=" & Request.Querystring("id_statusupdate")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, Conn, 1, 3

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
    rs.update
    rs("status") = Request("status")
    rs.update
    Response.Redirect ("member.asp")
end if
%>

</body>
</html>

hmm hvem skal have pointne?

Afvist svar fra medions
01/06-2002 16:51:17    rs.Open sql, Connect, 1, 3

//>Rune

Thx 4 Poinz
//>Rune