Joris Kempen
16/12/02, 23:36
Hoi mensen,
Ik heb onderstaande functie gemaakt die het eenvoudig maakt een record
toe te voegen aan een database die verbonden is via ADO.
function addRecord(connection,table,fields,return_field)
dim rs,i,nuwrows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open table, connection, , adLockOptimistic, adCmdTable
rs.AddNew
if isArray(fields) then
numrows=ubound(fields,1)
FOR i = 0 TO numrows
response.write i
rs.Fields(fields(i,0)) = fields(i,1)
next
end if
rs.Update
return_field = rs.Fields(return_field)
rs.Close
end function
1e collom van array = veldnaam van database
2e collim van array = waarde van veld van database
probleem: in deze code kunnen verschillende fouten optreden, bv:
- 'slechte' primary key gevormd door array waardes
- geen geldige veldnamen
- geen geldige waardes in velden
Deze fout meldingen wil ik intern afhandelen en aan de hand van een
return waarde terug geven aan het programma dat de functie gebruikt.
Een soort van Try ... Except... zoals ook in Delphi gebruikelijk is.
Op deze manier kan iedere functie zijn eigen fouten afhandelen en kan in
de webpagina aan de hand daarvan een bepaalde melding gegeven worden,
zonder dat er een lelijke message van de server komt.
Je kan werken met
On error Resume Next
en
OnError do
maar ik wil het niet globaal doen, maar per function.
Kun je een 'OnError do' in een functie geplaatst worden, of kan het met
een try .. except methode?
Ik heb gelezen dat JSP dit wel kan en ASP niet? Andere mogelijkheden?
Bedankt!
Gr. Joris
Ik heb onderstaande functie gemaakt die het eenvoudig maakt een record
toe te voegen aan een database die verbonden is via ADO.
function addRecord(connection,table,fields,return_field)
dim rs,i,nuwrows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open table, connection, , adLockOptimistic, adCmdTable
rs.AddNew
if isArray(fields) then
numrows=ubound(fields,1)
FOR i = 0 TO numrows
response.write i
rs.Fields(fields(i,0)) = fields(i,1)
next
end if
rs.Update
return_field = rs.Fields(return_field)
rs.Close
end function
1e collom van array = veldnaam van database
2e collim van array = waarde van veld van database
probleem: in deze code kunnen verschillende fouten optreden, bv:
- 'slechte' primary key gevormd door array waardes
- geen geldige veldnamen
- geen geldige waardes in velden
Deze fout meldingen wil ik intern afhandelen en aan de hand van een
return waarde terug geven aan het programma dat de functie gebruikt.
Een soort van Try ... Except... zoals ook in Delphi gebruikelijk is.
Op deze manier kan iedere functie zijn eigen fouten afhandelen en kan in
de webpagina aan de hand daarvan een bepaalde melding gegeven worden,
zonder dat er een lelijke message van de server komt.
Je kan werken met
On error Resume Next
en
OnError do
maar ik wil het niet globaal doen, maar per function.
Kun je een 'OnError do' in een functie geplaatst worden, of kan het met
een try .. except methode?
Ik heb gelezen dat JSP dit wel kan en ASP niet? Andere mogelijkheden?
Bedankt!
Gr. Joris