Kaare
|
| Posted: 07/26/2005, 5:08 PM |
|
Here is my code, no errormessages occurs, but my table pameld1 did not update after this execution. My connection is AltaturnAdm.
I have tried to learn of the examples, but ...
I would be very pleased if you can give me feedback of what I do wrong.
Heres is my code:
Function KampOpp_DataSource_AfterExecuteUpdate() 'KampOpp_DataSource_AfterExecuteUpdate @2-D3D0D741
'Custom Code @322-73254650
' -------------------------
DIM SQL
dim sql1
dim hmal
dim bmal
dim mdiff
DIM CONN
DIM ERRORMESSAGE
SET CONN = NEW clsDBAltaturnAdm
response.write "Resultat:" & kampopp.Hmaal.value & " "&kampopp.Bmaal.value 'test
hmal = kampopp.hmaal.value 'test
bmal = kampopp.bmaal.value 'just for test
mdiff = hmal - bmal' just for test
conn.open
if mdiff > 0 then
sql = "UPDATE PAMELD1 SET PAMELD1.ANTMAAL = " & kampopp.hmaal.value & " , PAMELD1.ANTMALMOT = "&kampopp.bmaal.value& ",pameld1.maldifferanse = pameld.maldifferanse + diff, pameld1.antpoeng = pameld1.antpoeng +3 , pameld1.antkamper = pameld1.antkamper + 1, pameld1.antseier = pameld1.antseier + 1 WHERE (PAMELD1.ID = "&kampopp.hrefnr.value&") and (pameld1.klubbid ="&kampopp.hklubbid.value&")"
sql1 = "UPDATE PAMELD1 SET ANTMAAL = ANTMAAL + bmal ,ANTMALMOT = ANTALMOT + hmal,pameld1.maldifferanse = pameld1.maldifferanse - diff, pameld1.antkamper = pameld1.antkamper + 1, pameld1.anttap = pameld1.antap + 1 WHERE (PAMELD1.ID = "&kampopp.brefnr.value&") and (pameld1.klubbid ="&kampopp.bklubbid.value&")"
elseif mdiff = 0 then
sql = "UPDATE PAMELD1 SET PAMELD1.ANTMAAL = " & kampopp.hmaal.value & " , PAMELD1.ANTMALMOT = "&kampopp.bmaal.value& ",pameld1.maldifferanse = pameld.maldifferanse + diff,pameld1.uavgjort = pameld1.uavgjort +1 , pameld1.antkamper = pameld1.antkamper + 1 WHERE (PAMELD1.ID = "&kampopp.hrefnr.value&") and (pameld1.klubbid ="&kampopp.hklubbid.value&")"
sql1 = "UPDATE PAMELD1 SET ANTMAAL = ANTMAAL + bmal ,ANTMALMOT = ANTALMOT + hmal,pameld1.maldifferanse = pameld1.maldifferanse - diff,pameld1.antpoeng = pameld1.antpoeng + 3, pameld1.uavgjort = pameld1.uavgjort +1,pameld1.antkamper = pameld1.antkamper + 1 WHERE (PAMELD1.ID = "&kampopp.brefnr.value&") and (pameld1.klubbid ="&kampopp.bklubbid.value&")"
else
sql = "UPDATE PAMELD1 SET PAMELD1.ANTMAAL = " & kampopp.hmaal.value & " , PAMELD1.ANTMALMOT = "&kampopp.bmaal.value& ",pameld1.maldifferanse = pameld.maldifferanse + diff, pameld1.antpoeng = pameld1.antpoeng +1 , pameld1.antkamper = pameld1.antkamper + 1, pameld1.anttap = pameld1.antap + 1 WHERE (PAMELD1.ID = "&kampopp.hrefnr.value&") and (pameld1.klubbid ="&kampopp.hklubbid.value&")"
sql1 = "UPDATE PAMELD1 SET ANTMAAL = ANTMAAL + bmal ,ANTMALMOT = ANTALMOT + hmal,pameld1.maldifferanse = pameld1.maldifferanse - diff, pameld1.antkamper = pameld1.antkamper + 1, pameld1.antpoeng = pameld1.antpoeng +1 , pameld1.antseier = pameld1.antseier + 1 WHERE (PAMELD1.ID = "&kampopp.brefnr.value&") and (pameld1.klubbid ="&kampopp.bklubbid.value&")"
end if
conn.execute(sql)
errormessage = CCProcessError(conn)
CONN.EXECUTE(SQL1)
errormessage = CCProcessError(conn)
conn.close
set conn = nothing
on error goto 0
' -------------------------
'End Custom Code
End Function 'Close KampOpp_DataSource_AfterExecuteUpdate @2-54C34B28
|
|
|
 |
peterr
Posts: 5971
|
| Posted: 07/26/2005, 6:20 PM |
|
Debug your code. For example at the end of your code add:
response.write("mdiff=" & mdiff & "<br>")
response.write("sql=" & sql & "<br>")
response.write("errormessage=" & errormessage & "<br>")
response.end
Then also manually run the output of your 'sql' variable against your database.
_________________
Peter R.
YesSoftware Forums Moderator
For product support please visit http://support.yessoftware.com |
 |
|
|
