请问recordset.open的用法

franklin2k

我是access新手,我想在access中用代码操纵本access表中的数据.请问如何写代码?谢谢

andymark

能具体一点吗

franklin2k

谢谢版主,我用access开放应用程序,我定义了表1,表2,我想在窗体1中的按钮1中编写代码,按钮的功能是:

从表1获取数据,然后根据获取的数据来对表2进行写操作.

伪代码:

rst=recordset.open "select 字段1,字段2,... from 表1 where ...."

    if rst.字段1="1" then

         update 表2 set 表2.字段a="yes" ;

    else

        update 表2 set 表2.字段b=100;

     end if

for all records in rst



loop

andymark

try:

Dim Rst As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection

Rst.Open "select 字段1,字段2,... from 表1 where ....", Conn, adOpenDynamic, adLockOptimistic

If Rst.Fields("字段1") = "1" Then
Conn.Execute "uptate  表2 set 表2.字段a='yes'"
  Else
Conn.Execute "uptate  表2 set 表2.字段b=100"
End If

Set Rst = Nothing
Set Conn = Nothing

franklin2k

谢谢