Ik ben net begonnen met ASP (ben een PHP-er eigenlijk, maar goed) ...
Nu gebruik ik ADO voor de database afhandeling.
Invoegen en selecteren lukt wel. Maar als ik een record wil updaten krijg ik een foutmelding, waarover ik niet veel / genoeg informatie kan vinden om deze zelfstandig op te lossen.
Dit is de code:
En dit is de foutmelding, kan iemand mij alsjeblieft helpen??
Nu gebruik ik ADO voor de database afhandeling.
Invoegen en selecteren lukt wel. Maar als ik een record wil updaten krijg ik een foutmelding, waarover ik niet veel / genoeg informatie kan vinden om deze zelfstandig op te lossen.
Dit is de code:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
| <%
'Perform printertype-actions
on error resume next
Response.Buffer("True")
dim conn, insQry, updQry, delQry
'Open ODBC connection
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "printermanager"
'1st action: add a new type
if Request.Form("btnAddType")="add type" then
insQry = "INSERT INTO `tblTypes` (`txtT_Description`,
`lngT_NumHeaters`) VALUES ('" & Request.Form("txtDescription") & "', '" &
Request.Form("lngNumHeaters") & "')"
conn.Execute(insQry)
if err<>0 then
Response.Write("Could not insert new record!<br />")
end if
end if
'2nd action: change a existing type
if Request.Form("btnChangeType")="change type" and Request.Form("tid")<>"" then
updQry = "UPDATE `tblTypes` SET " &_
"`txtT_Description` = '" & Request.Form("txtDescription") & "'," &_
"`lngT_NumHeaters` = '" & Request.Form("lngNumHeaters") & "' " &_
"WHERE `lngTypeID` = " & Request.Form("tid")
conn.Execute(updQry)
if err<>0 then
Response.Write("Could not update record!<br />")
end if
end if
'Close ODBC connection
conn.Close
'Go to survey page
if(err=0) then
Response.Redirect("overzicht.asp")
else
Response.Write err.Source & "<br />"
Response.Write err.Description & "<br />"
Response.Write err.Number & "<br />"
end if
%> |
En dit is de foutmelding, kan iemand mij alsjeblieft helpen??
code:
1
2
3
| Runtimefout Microsoft VBScript Dit object is geen collectie 451 |
[ Voor 68% gewijzigd door Verwijderd op 14-08-2004 23:15 . Reden: Sorry, topic titel vergeten goed in te vullen! [ado/asp] error handling 451 ]