vb中记录集的作用

conn是与数据库的连接,我们连到数据库是为了拿里面的数据,而数据库中的数据是以记录的型式存放的,我们使用数据时,也是以记录的型式拿出来的,一个表中有几万条记录,而我们只用其中的符合条件的几条记录,这几条记录就构成记录集了.

conn是告诉系统从哪里拿记录,而RS是从conn中拿来的具体的记录组合.我们说的修改记录,就是对记录集中的记录进行增删改 *** 作.完成后,再存放回数据库中去.

if rs.fields()=xx then

'找到后，记取其中的值，

yyy=rs.fields()

’想继续按其他条件找，就修改一个要找的变量

xx=rs.fields()

rs.movefirst

‘返回第一个记录，再次寻找。

endif

是这一段吗？

如果是这样的话，可能是因为这个原因，因为这段语句是在循环语句中的，外面有一层循环，

从第一条记录开始进行比较，直到比较出相等的那一条记录，才会进入到这个If语句中的。

即只有 rs.fields()=xx 时，才会执行到endif之间的语句，这里的rs.fields()请修改为你实际需要查找的字段，xx=rs.fields()这一句中的rs.fields()也请根据你的需要修改为相应的字段。

这一段，应该是可以正常运行的。

VB中RS是指数据库的记录集Recordset 对象 (ADO)。

Recordset 对象表示的是来自基本表或命令执行结果的记录全集。任何时候，Recordset

对象所指的当前记录均为集合内的单个记录。

记录集

如果命令是在表中按信息行返回数据的查询（行返回查询），则这些行将会存储在本地。

对象模型将该存储体现为 Recordset 对象。但是，不存在仅代表单独一个

Recordset 行的对象。

记录集是在行中检查和修改数据最主要的方法。Recordset 对象用于：

指定可以检查的行。

移动行。

指定移动行的顺序。

添加、更改或删除行。

通过更改行更新数据源。

管理全部 Recordset 状态。

具体的RS应用典型代码。

Private Sub Command1_Click()

    Dim cn As New ADODB.Connection '定义数据库的连接

    Dim rs As New ADODB.Recordset

    Dim sql As String

    sql = "select * from jishijilu" '

    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" & App.Path & "\wd.mdbPersist Security Info=False"

    cn.Open

    rs.CursorLocation = adUseClient

    rs.Open sql, cn, adOpenDynamic, adLockOptimistic

    Set DataGrid1.DataSource = rs

End Sub

---