Clone
コピー
文法
Recordsetオブジェクト.Clone([Lock])
パラメータ
Lock : ロック指定(1:読み取り専用/-1:コピー元と同じ)
機能説明
Recordsetオブジェクトをコピー
コピー元でRequery実行後は非同期となります。
ロックタイプ
定数 | 値 | 説明 |
adLockReadOnly | 1 | 読み取り専用 |
adLockUnspecified | -1 | コピー元にあわせる |
使用例
<%
Dim objConn, objRs, objRsBk
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open = "sample"
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Open "select * from test"
Set objRsBk = objRs.Clone adLockUnspecified
'コピー元と同期している事を確認
objRsBk.AddNew
objRsBk("name") = "test"
Response.Write "Requery実行前コピー元件数 : " & objRs.RecordCount
Response.Write "Requery実行前コピー先件数 : " & objRsBk.RecordCount
'編集中にRequry実行はエラーになる為、キャンセル後実行
objRsBk.CancelUpdate
objRs.Requery
'Requery実行でコピー元と非同期になる事を確認
objRsBk.AddNew
objRsBk("name") = "test"
Response.Write "Requery実行後コピー元件数 : " & objRs.RecordCount
Response.Write "Requery実行後コピー先件数 : " & objRsBk.RecordCount
objRsBk.CancelUpdate
'オブジェクトを閉じる
objRsBk.Close
Set objRsBk = Nothing
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>
Topへ