Office中国论坛/Access中国论坛

标题: 我是ADO新手 [打印本页]

作者: zhidao 时间: 2015-1-12 15:33
标题: 我是ADO新手
本帖最后由 zhidao 于 2015-1-24 17:16 编辑

前段时间了发了一个ADO编程入门教程的帖子，很高兴得到了大家关注，证明还是有一部分人想接触ADO的，作为我们这小部分新手，面对它就像看见大山了一样迷茫，无从下手，因为不了解所以迷茫，所以来这里寻找学习方法，想让你们引导我们，分享你们的学习经验。



                        高手！高手！在哪里。

                           分享：
                                 【入门教程】Roych版主总结的Access使用ADO开发的教程
                              利用ADO实现不绑定记录源，录入实例：

      本人也是新手，正在学习ADO，发此贴的目的就是分享一下我学到的东西，解释不周的地方望各位见谅，指正。
创建ADO对象
创建ADO对象方法1：
在工具栏”引用“下选择MicrosoftActiveXDataObjects2.xLibrary
Dim cnn As New ADODB.Connection ‘创建连接对象

Dim cnn As New ADODB.Recordset ’创建记录集对象
创建ADO对象方法2：
Dim cnn As Object, rst As Object
Set cnn=CreateObject("ADODB.Connection") （连接对象）
Set rst=CreateObject("ADODB.Recordset") （记录集对象）

  Connection对象
---------建立连接方法1：用OPEN方法建立连接---------
连接对象变量名.OPEN 连接字符串
----------关闭连接释放系统资源--------
连接对象变量名.Close  或  Set 连接对象变量名=Nothing
关闭对象并非将它从内存中删除，以后仍可以更改它的属性设置并且再次打开。若要将对象从内存中完全删除，可将对象变量设置为Nothing。

Recordset对象
-------OPEN方法---------
记录对象变量名.Open 数据来源, 连接对象, 指针类型, 锁定方式, 数据源类型
Open方法的参数较多，其含义详细介绍如下。
数据来源：此参数提供一个打开后要执行的命令，代表要从数据库中选取的数据，可以是数据库中一个数据表的名称，也可以是SQL语法所组成的字符串。
数据链接：它的取值是一个连接对象名称。
指针类型：此参数用来设定RecordSet对象在打开数据库时所使用的记录指针类型，此参数有四种类型可选
            AdOpenForwardOnly（0：缺省值）：记录指针在读取数据时，仅可以从第一条记录依次向读取下一条记录（顺序浏览）。但RecordSet对象有些属性及方法在此参数时不能被使用，且记录集是只读的。
            adOpenKeyset ：索引键集指针，参数值为1。记录指针可以自由移动，此种类型的记录指针可以保证用户在从数据库中读取记录时，并不会读取到其它用户在同一个表中增加或删除的记录，但其它用户修改表的结果将可以被看到。
            adOpenDynamic ：动态指针，参数值为2。其它用户对数据表所做任何修改或增删记录操作都会立即反映到RecordSet对象中。记录指针可以自由移动。
            adOpenStatic ：静态指针，参数值为3。其它用户对数据表进行了修改或增删记录操作，则RecordSet对象中存储的值完全不会随着改变，完全不受其它用户有影响。
锁定方式：此参数是设置RecordSet对象的并发事件的控制方式，其取值和含义如下表：
            adLockReadOnly ：参数值为1（默认值），是以只读方式打开，其它用户不能修改任何数据。
            adLockPerssimistic：参数值为2 ，当数据源的数据正在被更新时，系统会锁定记录，禁止其它用户的操作。允许任何两个用户更新同一条记录，当RS（“字段名”）=表达式值语句被执行时，系统自动进行锁定此记录的状态，当执行UPDATE后系统自动对此记录解锁。    adLockOptimistic：参数值为3，当数据源的数据正在被更新时，系统不锁定，允许其它用户对该数据库进行操作，只有在调用UPDATE方法写入到数据库时才被锁定，写入完成后自动解锁。
            adLockBatchtimistic：参数值为4，当数据源的数据正在被更新时，记录不会被锁定，直到使用UPDATEBATCH方法将所有的记录成批地写入数据库时才锁定记录，写入完成后，自动解锁。

--------利用记录集OPEN方法连接access自身表格的方法：------
Private Sub 录入_Click()
Dim jiluji As New ADODB.Recordset
jiluji.Open "数据表名称", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
jiluji.AddNew
jiluji("字段名称") = "1"
jiluji.Update
End Sub

作者: zhidao 时间: 2015-2-8 13:50
本帖最后由 zhidao 于 2015-2-8 22:14 编辑

ADO问：
1、有更改的行数已超过限制

作者: 风中漫步 时间: 2015-2-8 16:26
谢谢分享

作者: olderdream2007@ 时间: 2015-2-8 22:23
谢谢分享学习中

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)