OriginalValue
変更前のFieldオブジェクトの値取得
文法
Fieldオブジェクト.OriginalValue
機能説明
変更前の値を取得
使用例
<![CDATA[
<%
Dim objConn, objRS
'オブジェクト作成
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
'データベース接続
objConn.Open "test"
objRS.Open "select * from status"
'変更前
Response.Write "変更前 : " & objRS.fields("name") & "<br><br>"
objRS =("name") = "変更"
'変更前
Response.Write "変更前 : " & objRS.fields("name").OriginalValue & "<br>"
'変更後
Response.Write "変更後 : " & objRS.fields("name") & "<br>"
'この時点でデータベースの更新はされていません
'ここでデータベースへ更新
objRS.Update
'オブジェクト開放
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
]]>
Topへ