Forum « mise à jour de bd ... »

Forum « Programmation ASP » (archives)

mise à jour de bd ...

Envoyé: 22 octobre 2002, 3h26 par Four

Hello.
Voici mon problème : j'arrive à faire afficher le contenu de ma basse access sur une page asp (pour modifications). Mais lorsque je veux faire une mise à jour, après modifications des données via un formulaire qui reprend les données (cf plus haut), rien ne vient et j'arrive sur une page qui marque erreur, mais sans préciser...

Voici le code de ma page (avec qques champs en mois, car elle est assez grande) :

---------------CODE-------------------

<%
' ***********************************
' Page Name: aafrdetailql.asp
' Date: 17.10.2002 08:05:22
' Database: Access
' Table: AvisAmelioration
' ***********************************

Option Explicit
Response.Buffer = True

Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

Dim objConn ' Database connection object
Dim objRS ' Recordset object
Dim strSQL ' SQL query string
Dim strMsg ' Status message to be returned to the user
Dim strErr ' Error message to be returned to the user
Dim intCounter ' Looping counter for interating through the records on current page
Dim intRecordsDeleted ' Number of records actually deleted
Dim strWhere ' Provides serching functionality
Dim numero

' Uncomment the next line when you are debugging.
' On Error Resume Next
' strErr = ""

' Establish Connection To Database
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\site\fpdb\aafr.mdb;Persist Security Info=False"
objConn.Open

If Err Then
strErr = "Error Establishing Database Connection.<BR>"
strErr = strErr & "[" & Err.Number & "] - " & Err.Description & ""
Err.Clear
End If

' If user submits a request choose the appropriate action
' All actions if sucessful, will redirect user back to list page
If (Request("btnSubmit") = "Update" Or (Request("Action") = "Update") And Request("btnMove") = "") And strErr = "" Then
If Not DetailUpdate Then
strErr = "Error Updating Record.<BR>"
strErr = strErr & "[" & Err.Number & "] - " & Err.Description & ""
If Err.Number = -2147467259 Then
strErr = Err.Description & " <BR>(You can fix this by changing your field properties in your database table design window.<BR>This can be done for all text/memo fields that can be blank/empty.)"
End If
Else
strMsg = "Record Updated.<BR>"
Response.Clear: Response.Redirect "aafrdetailql.asp?AA_num=" & Session("numero")
End If
Else
' Main Detail Page Query - Retrieves records from table.
If Request("fnc") <> "add" Then
strSQL = "SELECT * FROM [AvisAmelioration] WHERE " & _
"[numero]=" & Replace(Request("AA_num"), "'", "''") & " "

'Response.Write strSQL & "<BR>": Response.Flush
Set objRS = objConn.Execute(strSQL)

If Err Then
Response.Redirect "aafrdetailql.asp?"
strErr = strErr & "Error Getting Records.<BR>"
strErr = strErr & "[" & Err.Number & "] - " & Err.Description & ""
Err.Clear
End If
End If

End If

' Populate Session variables - this enables "memory" of user submitted data.
' This is so that user will not have to re-type what they already entered when doing a submit

If Request("btnSubmit") = "Update" Then
Session("numero") = Request("numero")
Session("serviceconcerne1") = Request("serviceconcerne1")
Session("serviceconcerne2") = Request("serviceconcerne2")
Session("serviceconcerne3") = Request("serviceconcerne3")
Session("serviceconcerne4") = Request("serviceconcerne4")
Session("reclamationpatient") = Request("reclamationpatient")
Session("reclamationinterne") = Request("reclamationinterne")
Session("livraisonmateriel") = Request("livraisonmateriel")
Session("autre") = Request("autre")
Session("description") = Request("description")
Session("proposition") = Request("proposition")
Session("nom") = Request("nom")
Session("service") = Request("service")
Session("piecejustificative") = Request("piecejustificative")
Session("ladate") = Request("ladate")
Session("gravmin") = Request("gravmin")
Session("gravmoy") = Request("gravmoy")
Session("gravmax") = Request("gravmax")
Session("mes1") = Request("mes1")
Session("quimes1") = Request("quimes1")
Session("delaimes1") = Request("delaimes1")
Session("mes2") = Request("mes2")
Session("quimes2") = Request("quimes2")
Session("delaimes2") = Request("delaimes2")
Session("mes3") = Request("mes3")
Session("quimes3") = Request("quimes3")
Session("delaimes3") = Request("delaimes3")
Session("ctrl") = Request("ctrl")
Session("ladatemp") = Request("ladatemp")
Session("okmp") = Request("okmp")
Session("okmpsauf") = Request("okmpsauf")
Session("nokmp") = Request("nokmp")
Session("raisons") = Request("raisons")
Session("cout") = Request("cout")
Session("recpat") = Request("recpat")
Session("recint") = Request("recint")
Session("livmat") = Request("livmat")
Session("chautre") = Request("chautre")
Session("pj") = Request("pj")
Session("gravmin2") = Request("gravmin2")
Session("gravmoy2") = Request("gravmoy2")
Session("gravmax2") = Request("gravmax2")
Session("ctrl2") = Request("ctrl2")
Session("okmp2") = Request("okmp2")
Session("okmpsauf2") = Request("okmpsauf2")

Else
Session("numero") = objRS("numero")
Session("serviceconcerne1") = objRS("serviceconcerne1")
Session("serviceconcerne2") = objRS("serviceconcerne2")
Session("serviceconcerne3") = objRS("serviceconcerne3")
Session("serviceconcerne4") = objRS("serviceconcerne4")
Session("reclamationpatient") = objRS("reclamationpatient")
Session("reclamationinterne") = objRS("reclamationinterne")
Session("livraisonmateriel") = objRS("livraisonmateriel")
Session("autre") = objRS("autre")
Session("description") = objRS("description")
Session("proposition") = objRS("proposition")
Session("nom") = objRS("nom")
Session("service") = objRS("service")
Session("piecejustificative") = objRS("piecejustificative")
Session("ladate") = objRS("ladate")
Session("gravmin") = objRS("gravmin")
Session("gravmoy") = objRS("gravmoy")
Session("gravmax") = objRS("gravmax")
Session("mes1") = objRS("mes1")
Session("quimes1") = objRS("quimes1")
Session("delaimes1") = objRS("delaimes1")
Session("mes2") = objRS("mes2")
Session("quimes2") = objRS("quimes2")
Session("delaimes2") = objRS("delaimes2")
Session("mes3") = objRS("mes3")
Session("quimes3") = objRS("quimes3")
Session("delaimes3") = objRS("delaimes3")
Session("ctrl") = objRS("ctrl")
Session("ladatemp") = objRS("ladatemp")
Session("okmp") = objRS("okmp")
Session("okmpsauf") = objRS("okmpsauf")
Session("nokmp") = objRS("nokmp")
Session("raisons") = objRS("raisons")
Session("cout") = objRS("cout")

End If

%>
<html>

<head>
<meta http-equiv="Content-Language" content="fr-ch">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<title>AA - QL</title>
</head>

<body topmargin="1">
<FORM NAME=frm2Detail METHOD=post ACTION="aafrdetailql.asp?">
<INPUT TYPE=hidden NAME="Action" VALUE="Update">

<INPUT TYPE=hidden NAME="AA_num" VALUE='<%=Session("numero")%>'><center><b><font size="5">AVIS D'AMELIORATION (AA) N°2003-<%=Session("numero")%></font></b>

<select size="1" name="serviceconcerne1">
<option value="<%=Session("serviceconcerne1")%>" selected><%=Session("serviceconcerne1")%></option>
<option value="Administration">Administration</option>
<option value="Direction">Direction</option>
<option value="Service du personnel">Service du personnel</option>
<option value="Bureau des patients">Bureau des patients</option>
<option value="Facturation">Facturation</option>
<option value="Admissions">Admissions</option>
<option value="Informatique">Informatique</option>
<option value="Intendance">Intendance</option>
<option value="Finance">Finance</option>
<option value="Transport">Transport</option>
<option value="Restauration">Restauration</option>
<option value="Cuisine">Cuisine</option>
<option value="Service Technique">Service Technique</option>
</select>

<p><p><hr>

Gravité maximum =

<% if Session("gravmax") = "oui" then
Session("gravmax2") = "checked"
else
Session("gravmax2")= ""
end if %>

<input type="checkbox" name="gravmax" value="oui" <%=Session("gravmax2")%> >




<INPUT TYPE=hidden NAME="AA_num" VALUE='<%=Session("numero")%>'>
<% If Request("fnc")="add" Or (Request("btnSubmit") = "Add" And strErr <> "") Then %>
<INPUT TYPE=Submit NAME=btnSubmit VALUE="Add">
<INPUT TYPE=hidden NAME="Action" VALUE="Add">
<% Else %>
<INPUT TYPE=Submit NAME=btnSubmit VALUE="Mise à jour de l'Avis d'Amélioration">
<INPUT TYPE=hidden NAME="Action" VALUE="Update">
<% End If %>


<%
Set objRS = Nothing: objConn.Close: Set objConn = Nothing
Response.End

' Update Database Record
Function DetailUpdate()
Dim blnReturn
Dim strDateFormat1, strDateFormat2

strSQL = _
"UPDATE [AvisAmelioration] " & _
"SET " & _

"[serviceconcerne1]='" & Replace(Request("serviceconcerne1"),"'","''") & "', " & _
"[serviceconcerne2]='" & Replace(Request("serviceconcerne2"),"'","''") & "', " & _
"[serviceconcerne3]='" & Replace(Request("serviceconcerne3"),"'","''") & "', " & _
"[serviceconcerne4]='" & Replace(Request("serviceconcerne4"),"'","''") & "', " & _
"[reclamationpatient]='" & Replace(Request("reclamationpatient"),"'","''") & "', " & _
"[reclamationinterne]='" & Replace(Request("reclamationinterne"),"'","''") & "', " & _
"[livraisonmateriel]='" & Replace(Request("livraisonmateriel"),"'","''") & "', " & _
"[autre]='" & Replace(Request("autre"),"'","''") & "', " & _
"[description]='" & Replace(Request("description"),"'","''") & "', " & _
"[proposition]='" & Replace(Request("proposition"),"'","''") & "', " & _
"[nom]='" & Replace(Request("nom"),"'","''") & "', " & _
"[service]='" & Replace(Request("service"),"'","''") & "', " & _
"[piecejustificative]='" & Replace(Request("piecejustificative"),"'","''") & "', " & _
"[gravmin]='" & Replace(Request("gravmin"),"'","''") & "', " & _
"[gravmoy]='" & Replace(Request("gravmoy"),"'","''") & "', " & _
"[gravmax]='" & Replace(Request("gravmax"),"'","''") & "', " & _
"[mes1]='" & Replace(Request("mes1"),"'","''") & "', " & _
"[quimes1]='" & Replace(Request("quimes1"),"'","''") & "', " & _
"[delaimes1]='" & Replace(Request("delaimes1"),"'","''") & "', " & _
"[mes2]='" & Replace(Request("mes2"),"'","''") & "', " & _
"[quimes2]='" & Replace(Request("quimes2"),"'","''") & "', " & _
"[delaimes2]='" & Replace(Request("delaimes2"),"'","''") & "', " & _
"[mes3]='" & Replace(Request("mes3"),"'","''") & "', " & _
"[quimes3]='" & Replace(Request("quimes3"),"'","''") & "', " & _
"[delaimes3]='" & Replace(Request("delaimes3"),"'","''") & "', " & _
"[ctrl]='" & Replace(Request("ctrl"),"'","''") & "', " & _
"[ladatemp]=" & Replace(Request("ladatemp"),"'","''") & "', " & _
"[okmp]='" & Replace(Request("okmp"),"'","''") & "', " & _
"[okmpsauf]='" & Replace(Request("okmpsauf"),"'","''") & "', " & _
"[nokmp]='" & Replace(Request("nokmp"),"'","''") & "', " & _
"[ladate]='" & Replace(Request("ladate"),"'","''") & "', " & _
"[raisons]='" & Replace(Request("raisons"),"'","''") & "', " & _
"[cout]='" & Replace(Request("cout"),"'","''") & "' "

strSQL = strSQL & "WHERE [numero]=" & Request("AA_num") & ""
'Response.Write strSQL & "<HR WIDTH=300>": Response.Flush

'objConn.BeginTrans
objConn.Execute(strSQL)

If Err Then
'objConn.RollbackTrans
blnReturn = False
Else
'objConn.CommitTrans
blnReturn = True
End If

'Set objConn = Nothing
DetailUpdate = blnReturn
End Function

%>

-------------------FIN DU CODE---------

Réponses

Re: mise à jour de bd ...	Oznog	22/10/2002
Re: mise à jour de bd ...	Four	22/10/2002
Re: mise à jour de bd ...	Oznog	22/10/2002
Re: mise à jour de bd ...	Four	22/10/2002
Re: mise à jour de bd ...	Oznog	22/10/2002
Re: mise à jour de bd ...	Four	22/10/2002