Ιδιότητες OriginalValue και UnderlyingValue του ADO
Ορισμός και χρήση
Η ιδιότητα OriginalValue μπορεί να επιστρέψει μια τιμή variant που περιέχει την τιμή του πεδίου πριν από την τελευταία κλήση του Update ή UpdateBatch.
Η ιδιότητα UnderlyingValue μπορεί να επιστρέψει μια τιμή variant που περιέχει την τρέχουσα τιμή ενός πεδίου. Αυτή η τιμή δεν θα εμφανίσει τις αλλαγές που προκαλούνται από άλλους χρήστες και μπορεί να μην είναι η πιο πρόσφατη τιμή.
Σημείωση:Χρησιμοποιήστε την ιδιότητα Resync του αντικειμένου Recordset για να αποκτήσετε τις πιο πρόσφατες τιμές όλων των αντικειμένων Field στο σύνολο Fields.
Σημείωση:Αυτές οι ιδιότητες μπορούν να χρησιμοποιηθούν μαζί για να λύσουν τα συγκρούσεις που μπορεί να προκύψουν κατά τη διάρκεια της μάζας ενημέρωσης.
γλώσσα
objField.OriginalValue objField.UnderlyingValue
παράδειγμα
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open "customers", conn
set objfield=rs.fields("companyname")
Κάποιος κώδικας..................
'Check for changes
rs.movefirst
while rs.eof=false
if objfield.OriginalValue<>objfield.UnderlyingValue then
response.write("Data has changed!<br />")
response.write("Original value: ")
response.write(objfield.OriginalValue & "<br />")
response.write("Current value: ")
response.write(objfield.UnderlyingValue & "<br />")
end if
rs.movenext
next
'More code...................
rs.Close
conn.close
%>
