ADO recordset 与窗体的记录集

CHENZHIRONG

我创建一个ADO的recordset，然后赋给窗体的记录集，居然报错，是ACCESS的窗体不接受这种recordset吗?

Dim rs As ADODB.Recordset

  Set rs = New Recordset

  DoCmd.OpenForm "UDC"

  rs.CursorLocation = adUseClient

  rs.Fields.Append "ID", adNumeric

  rs.Fields.Append "Option", adBSTR

  rs.Fields.Append "OptionDescription", adBSTR

  rs.Fields.Append "HardCode", adBSTR

  Set Forms("udc").Recordset = rs

在最后一句 set 窗体 .recordset=rs 报错，“输入的对象不是有效的RECORDSET属性”

bjcompass

gaoshen

Sooloom

我正要找这个问题

CHENZHIRONG

窗体是一个数据表或连续窗体，有必要绑定，靠给控件赋值不行。

sunredday

Dim rs As ADODB.Recordset

  Set rs = New Recordset

  DoCmd.OpenForm "UDC"

  rs.CursorLocation = adUseClient

  rs.Fields.Append "ID", adNumeric

  rs.Fields.Append "Option", adBSTR

  rs.Fields.Append "OptionDescription", adBSTR

  rs.Fields.Append "HardCode", adBSTR

  rs.Open

rs.ActiveConnection = CurrentProject.Connection

Set Forms("udc").Recordset = rs  rs.AddNew

rs.Fields(1).Value = 1

rs.Update

Forms![udc].文本0.Value = rs.Fields(1).Value其中 Set Forms("udc").Recordset = rs 没有用.RS 可以在窗体上显示，没有必要绑定到窗体。

CHENZHIRONG

直接操作记录集出错，运行到rs.fields(1).value=1时提示“多步操作时产生错误，请检查每一步的状态值。”我的问题是这样的，我有一组类二维表的数据，这组数据没有（不能）存在ACCESS的表中，应此我要编辑这组数据时就临时产生一个记录集，再赋给窗体，在窗体中编辑后，再取出记录集的数据保存。这个问题的另一个解法是每次产生一个临时表，我不喜欢这种方法。

sunredday

rs.AddNew

rs.Fields(1).Value = 1

rs.Update

Forms![udc].文本0.Value = rs.Fields(1).Value

我觉得窗体控件应该是后期绑定的.

更新RS应该利用窗体结合代码来更新.

可是这样一来, ME.RECORDSET=RS有什么用呢

CHENZHIRONG

多谢suredday, 第一个问题解决了，但接下来又有问题，打开的窗体的记录集不可更新，我设了rs.LockType = adLockOptimistic也没用，不知为何？

sunredday

Dim rs As ADODB.Recordset

  Set rs = New Recordset

  DoCmd.OpenForm "UDC"

  rs.CursorLocation = adUseClient

  rs.Fields.Append "ID", adNumeric

  rs.Fields.Append "Option", adBSTR

  rs.Fields.Append "OptionDescription", adBSTR

  rs.Fields.Append "HardCode", adBSTR

  rs.Open

rs.ActiveConnection = CurrentProject.Connection

  Set Forms("udc").Recordset = rs

CHENZHIRONG

原来的窗体没有RECORDSET，应此用ME.RECORDSET.NAME 有问题，提示对象没设置。