请教如何把ado代码改为dao代码?

franklin2k

ado代码如下:

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



若想用dao代码应如何写?谢谢

情比金坚

Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("select 字段1,字段2,... from 表1 where ....")

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