Access爱好者--
所属分类: 数据库连接 作者: 李寻欢 更新日期:2003-10-6 16:24:38 阅读次数:564

一个简单的Ado用法示例


'以下代码示例如何打开一个名为“表1”的表,并把它的第二个字段逐一显示在立即窗口,最后关闭记录集及Ado连接。
Dim cn As New ADODB.Connection '定义一个Ado连接
Dim rs As New ADODB.Recordset '定义一个Ado记录集
Dim sql As String '定义一个字符串变量
Set cn = CurrentProject.Connection '定义cn等于当前连接
sql = "select * from 表1" '给字符串赋值
rs.Open sql, cn, adOpenKeyset, adLockPessimistic, 1 '打开一个记录集并赋给rs
Do While Not rs.EOF '当不是记录集的结束就循环 Debug.Print rs.Fields(1) '在立即窗口显示出第二个字段的值 rs.MoveNext '记录集下移一条,如果没有这条就会死循环 Loop '循环 rs.Close '关闭记录集 cn.Close '关闭连接
Set cn = Nothing


--------------------------------------------------------------------------------
相关文章

SQL SERVER基本概念学习印象 2004-1-1 21:23:13
ERwin--简化的数据库设计工具 2003-12-15 12:41:40
在宏条件中判断窗体尾记录 2003-11-20 16:25:48
了解 Microsoft Access 安全性 2003-11-13 11:21:08
不当编写SQL语句导致系统不安全 2003-11-13 10:55:26
使用 Jet UserRoster 检查是谁登录到数据库中 2003-10-18 9:54:42
创建完美报表 2003-10-17 19:37:17
SQL SERVER 与ACCESS、EXCEL的数据转换 2003-10-17 19:12:00
动态添加或删除引用 2003-10-17 19:01:02
MS Jet SQL for Access 2000中级篇(IV) 2003-10-17 18:52:20
MS Jet SQL for Access 2000中级篇 (III) 2003-10-17 18:51:47
MS Jet SQL for Access 2000中级篇 (II) 2003-10-17 18:51:01
MS Jet SQL for Access 2000中级篇 (I) 2003-10-17 18:47:38
使用ADO连接到防火墙后的SQL Server 2003-10-17 18:43:57
ADO连接数据库字符串大全 2003-10-17 18:40:47
VBA中初始化ADO连接的几种方法 2003-10-14 8:46:43
用ADO来压缩数据库 2003-10-14 8:46:12
ADO三大对象的属性、方法、事件及常数(二) 2003-10-14 8:45:33
ADO三大对象的属性、方法、事件及常数(三) 2003-10-14 8:44:20
ADO三大对象的属性、方法、事件及常数(一) 2003-10-14 8:43:26
如何诊断/修复损坏的 Jet 4.0 数据库 2003-10-14 8:31:26
提升前后台模式程序的速度 2003-10-10 10:17:08
获取指定表所有字段名的函数 2003-10-6 16:44:38
数据库应用程序需注意的问题 2003-10-6 11:11:06

系统优化
控件使用
数据库设计
数据库连接
系统安全
OLE自动化
常见问题
实用代码
属性详解
网络相关
实用API
经验分享
精选教程
字符处理
ADP相关



文章搜索



制作维护:李寻欢     Mail:[email protected]

关于本站 -- 网站服务 -- 版权条款 -- 联系方法 -- 网站帮助
Access爱好者版权所有 Copyright 2003-2005 All Rights Reserved 未经许可不得盗链