[ASP Acces DB] Problemen met schrijven naar DataBase - Softwareontwikkeling

dinsdag 30 maart 2004 16:26

Acties:

Topicstarter

De melding die ik krijg is:
Soort fout:

code:

1
2
3

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-stuurprogramma] De bewerking moet worden uitgevoerd op een query die kan worden bijgewerkt.
/groep2/b_meestvraag.asp, line 33

Hier onder de bestanden die ik gebruik, ik weet dat het een grote lap tekst is maar goed. ik hoop dat er toch iemand is die een oplossing weet/ de fout ziet.

alvast bedankt..!

De include file:

code:

<%
function getConnection()
    dim con
    set con = server.createobject("ADODB.Connection")

    con.open("DRIVER=Microsoft Access Driver (*.mdb);DBQ=c:\inetpub\wwwroot\groep2\db\timmerman.mdb;")
    set getConnection = con
end function
%>

b_meest.asp

code:

<%option explicit%>
<!-- #include virtual="/groep2/include/connection.inc" -->
<%
dim connDb, objRS, strAktie, strID

strAktie = trim(request("Aktie"))
strID = 1
select case strAktie
  case "Toevoegen"
    response.redirect("b_meestvraag.asp?Mutatie=Toevoegen")
  case "Wijzigen"
    response.redirect("b_meestvraag.asp?Mutatie=Wijzigen&ID="&strID)  
  case "Verwijderen"
    response.redirect("b_meestvraag.asp?Mutatie=Verwijderen&ID="&strID)  
  case else
    call main()
end select

sub Vragen()

dim strVraag, strAntwoord
  set ConnDb = GetConnection()

  set objRS = connDB.execute("select Vraag, Antwoord from Meestgesteldevraag order by ID")

  Do while not objRS.EOF
  %>
  <tr>
    <td>Vraag:</td>
  </tr>
  <tr>
    <td><%=(objRs("vraag"))%></td>
  </tr>
  <tr>
    <td>Antwoord:</td>
  </tr>
  <tr>
    <td><%=(objRs("antwoord"))%></td>
  </tr>
  <%
    objRS.MoveNext 
  Loop
  objRS.close
  set objRS = nothing
  ConnDb.close
  set ConnDb = nothing
end sub

sub main()
%>
<html>
<head>
    <title>H.J.Timmerman Beheer</title>
</head>

<body>

<form name="mainform" method="post">
<table border="0" cellspacing="0" cellpadding="0">
  <%call vragen()%>
  <tr>
    <td height=10></td>
  </tr>
  <tr>
    <td><input type="submit" name="Aktie" value="Toevoegen"></td>
    <td width="20"></td>
    <td><input type="submit" name="Aktie" value="Wijzigen"></td>
    <td width="20"></td>
    <td><input type="submit" name="Aktie" value="Verwijderen"></td>
  </tr>
</table>

</body>
</form>
</html>
<%
end sub
%>

b_meestvraag.asp

code:

<%option explicit%>
<!-- #include virtual="/groep2/include/connection.inc" -->
<%
dim ConnDb, objRS, strID, strMutatie, strVraag, strAntwoord, strAktie

strMutatie = trim(request("Mutatie"))
strID = trim(request("ID"))
strAktie = trim(request("Aktie"))

select case strAktie
  case "Toevoegen"
    call Toevoegen()
  case "Wijzigen"
    call Wijzigen()
  case "Verwijderen"
    call Verwijderen()
  case else
    call main()
end select

function dbCheck(strInput)
  dbCheck = replace(strInput, "'", "''")
end function

sub Toevoegen()
  dim strVraag2, strAntwoord2
  
  strVraag2 = trim(request("Vraag"))
  strAntwoord2 = trim(request("Antwoord"))
  
  set ConnDb = GetConnection()

  Conndb.execute("insert into Meestgesteldevraag (vraag, antwoord) values ('"&dbcheck(strVraag2)&"', '"&dbcheck(strAntwoord2)&"')")

  ConnDb.close
  set ConnDb = nothing
end sub

sub Wijzigen()
  dim strVraag2, strAntwoord2
  
  strVraag2 = trim(request("Vraag"))
  strAntwoord2 = trim(request("Antwoord"))
  
  Conndb.execute("insert into Meestgesteldevraag (vraag, antwoord) values ('"&dbcheck(strVraag2)&"', '"&dbcheck(strAntwoord2)&"') where ID="&strID&"")

  ConnDb.close
  set ConnDb = nothing
end sub

sub Verwijderen()
  
  set ConnDb = GetConnection()

  conndb.execute("delete Meestgesteldevraag where ID="&strID&"")

  ConnDb.close
  set ConnDb = nothing
end sub

sub main()
  if strMutatie = "Toevoegen" then
  else
    set ConnDb = GetConnection()

    set objRS = conndb.execute("select vraag, antwoord from Meestgesteldevraag where ID="&strID&"")

    Do while not objRS.EOF
    strVraag = (objRs("vraag"))
    strAntwoord = (objRs("antwoord"))
    objRS.MoveNext 
    Loop
  
    objRS.close
    set objRS = nothing
    ConnDb.close
    set ConnDb = nothing
  end if

%>
<html>
<head>
    <title>H.J. Timmerman Beheer</title>
</head>

<form name="mainform" method="post">
<body>
<table border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td>Vraag:</td>
  </tr>
  <tr>
    <td><textarea cols=75 rows=3 name="Vraag"><%=strVraag%></textarea></td>
  </tr>
  <tr>
    <td>Antwoord:</td>
  </tr>
  <tr>
    <td><textarea cols=75 rows=3 name="Antwoord"><%=strAntwoord%></textarea></td>
  </tr>
  <tr>
    <td><input type="submit" name="Aktie" value=<%=strMutatie%>></td>
    <td><input type="submit" name="Aktie" value="Annuleren"></td>
  </tr>
</table>
</body>
</form>
</html>
<%end sub%>

dinsdag 30 maart 2004 16:28

Acties: