Save
レコードセット保存
文法
Recordsetオブジェクト.Save [SaveTo],[Format]
パラメータ
SaveTo : 保存ファイルパス/Streamオブジェクト
Format : 保存形式
機能説明
レコードセットの内容をファイル/Streamオブジェクトへ保存
保存形式
| 定数 | 値 | 説明 |
|---|
| adPersistADTG | 0 | ADTG形式で保存 |
| adPersistXML | 1 | XML形式で保存 |
使用例
<![CDATA[
<%
Dim objConn, objRs, objRsFile
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open = "sample"
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Open "select * from test"
'XML形式で保存(上書き保存はエラーになります)
objRs.Save "C:\test.xml", adPersistXML
objRsFile.Open = "C:\test.xml"
Response.Write "<table border=1>" & vbCrLf
Response.Write "<tr>" & vbCrLf
For i = 0 to objRsFile.Fields.Count - 1
Response.Write "<th>" & objRsFile.Fields(i).Name & "</th>" & vbCrLf
Next
Response.Write "</tr>" & vbCrLf
'データ表示
Do until objRsFile.EOF
Response.Write "<tr>" & vbCrLf
For i = 0 to objRsFile.Fields.Count - 1
Response.Write "<td>" & objRsFile(i) & "</td>" & vbCrLf
Next
Response.Write "</tr>" & vbCrLf
objRsFile.MoveNext
Loop
Response.Write "</table>" & vbCrLf
'オブジェクトを閉じる
objRs.Close
Set objRs = Nothing
objRsFile.Close
Set objRsFile = Nothing
objConn.Close
Set objConn = Nothing
%>
]]>
Topへ