| « | September 2025 | » | | 日 | 一 | 二 | 三 | 四 | 五 | 六 | | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | | | | | |
|
公告 |
| 暂无公告... |
| Blog信息 |
|
blog名称:VFP及Sql Server拙笔
日志总数:46
评论数量:107
留言数量:0
访问次数:432984
建立时间:2005年5月12日 |
| |
|
 [VFP与SQL]如何在 Visual FoxPro 中使用可创建 ADO 记录集
文章收藏, 网上资源, 读书笔记, 心得体会, 日后处理, 软件技术
老瓷 发表于 2005/11/28 8:44:03 |
| 概述 通常, 需要保存临时数据. ADO 2.x 允许在运行时创建记录子集来达到该目的.
更多信息 以下示例用一个 integer, varchar 和 date 日期字段创建一个 ADO 记录集, 添加两条记录到其中, 并在桌面上显示记录集中的所有字段的内容:
* 演示在 ADO 中创建一个临时记录集 * 程序创建一个记录集, 添加一个 integer, varchar * 和 date 字段, 添加两条记录, 并在桌面上显示 * 所有字段的内容
#DEFINE ADUSECLIENT 3 #DEFINE ADLOCKBATCHOPTIMISTIC 4 #DEFINE ADINTEGER 3 #DEFINE ADVARCHAR 200 #DEFINE ADDATE 7 #DEFINE ADFLDISNULLABLE 0x00000020 #DEFINE ADOPENSTATIC 3
oRecordSet = CREATEOBJECT("ADODB.Recordset")
WITH oRecordSet * 指定客户端游标 .CURSORLOCATION = ADUSECLIENT
* 添加 3 个字段 .FIELDS.APPEND ("Key", ADINTEGER) .FIELDS.APPEND ("Data1", ADVARCHAR, 40, ADFLDISNULLABLE) .FIELDS.APPEND ("Data2", ADDATE)
* 打开记录集 .OPEN(,,ADOPENSTATIC, ADLOCKBATCHOPTIMISTIC)
* 添加两条记录 .ADDNEW .FIELDS("Key").VALUE = 1 .FIELDS("Data1").VALUE = "String1" .FIELDS("Data2").VALUE = DATE()
.ADDNEW .FIELDS("Key").VALUE = 2 .FIELDS("Data1").VALUE = "Another string" .FIELDS("Data2").VALUE = {^1992/01/06} ENDWITH
* 读取记录 oRecordSet.Movefirst DO WHILE ! oRecordSet.EOF ? oRecordSet.FIELDS("Key").VALUE, ; oRecordSet.FIELDS("Data1").VALUE, ; oRecordSet.FIELDS("Data2").VALUE oRecordSet.MoveNext ENDDO |
|
|