|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
数据集Recordset除了与数据库通信外,也可以做为一个中间层暂时保存中间结果。
例子:
- Sub RecordDemo()
- '引用Microsoft ActiveX Data Objects 2.8
- ' 创建数据集,保存结果
- Dim rst As ADODB.Recordset
-
- Set rst = New ADODB.Recordset
- '定义数据集字段属性
- rst.Fields.append "ID", adVarChar, 8
- rst.Fields.append "Name", adVarChar, 8
- rst.Fields.append "age", adInteger
-
- rst.Open , , adOpenDynamic, adLockOptimistic
-
- '数据集添加数据
- rst.AddNew
- rst.Fields("ID").Value = "a1001"
- rst.Fields("Name").Value = "aaa"
- rst.Fields("age").Value = 16
-
- rst.AddNew
- rst.Fields("ID").Value = "a1002"
- rst.Fields("Name").Value = "bbb"
- rst.Fields("age").Value = 17
-
- rst.AddNew
- rst.Fields("ID").Value = "a1003"
- rst.Fields("Name").Value = "ccc"
- rst.Fields("age").Value = 18
-
- '访问数据集
- rst.MoveFirst
- Do Until rst.EOF
- Debug.Print rst.Fields("ID").Value & " " & rst.Fields("Name").Value & " " & rst.Fields("age").Value
- rst.MoveNext
- Loop
-
- '持久化保存文件
- rst.Save "d:\RecordDemo.xml", adPersistXML
- rst.Close
- Set rst = Nothing
-
- End Sub
- Sub OpenRecordFile()
- '调用已有持久化文件
- '引用Microsoft ActiveX Data Objects 2.8
- Dim rst As ADODB.Recordset
-
- Set rst = New ADODB.Recordset
- rst.Open "d:\RecordDemo.xml", , adOpenDynamic, adLockOptimistic, adCmdFile
-
- '访问数据集
- rst.MoveFirst
- Do Until rst.EOF
- Debug.Print rst.Fields("ID").Value & " " & rst.Fields("Name").Value & " " & rst.Fields("age").Value
- rst.MoveNext
- Loop
-
- '数据集添加新数据
- rst.AddNew
- rst.Fields("ID").Value = "a1004"
- rst.Fields("Name").Value = "ddd"
- rst.Fields("age").Value = 16
-
- rst.AddNew
- rst.Fields("ID").Value = "a1005"
- rst.Fields("Name").Value = "eee"
- rst.Fields("age").Value = 17
-
- rst.AddNew
- rst.Fields("ID").Value = "a1006"
- rst.Fields("Name").Value = "fff"
- rst.Fields("age").Value = 18
-
- '持久化保存文件
- rst.Save "d:\RecordDemo.xml", adPersistXML
- rst.Close
- Set rst = Nothing
- End Sub
复制代码
|
评分
-
1
查看全部评分
-
|