Office中国论坛/Access中国论坛

标题: 请问recordset.open的用法 [打印本页]

作者: franklin2k 时间: 2006-10-31 23:00
标题: 请问recordset.open的用法
我是access新手,我想在access中用代码操纵本access表中的数据.请问如何写代码?谢谢

作者: andymark 时间: 2006-10-31 23:04
能具体一点吗

作者: franklin2k 时间: 2006-10-31 23:29
谢谢版主,我用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 时间: 2006-10-31 23:57
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 时间: 2006-11-1 00:50
谢谢

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