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属性”

CHENZHIRONG

不是这个原因，我用以下代码通过：Set rs = New Recordset

  rs.CursorLocation = adUseClient

  rs.Open "UserDefineCode", CurrentProject.Connection, adOpenDynamic, adLockPessimistic, adCmdTable

  DoCmd.OpenForm "UDC"

  Set Forms("udc").Recordset = rs关键是一定要设CursorLocation = adUseClient，这个在ACCESS帮助中有说明。

CHENZHIRONG

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

CHENZHIRONG

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

CHENZHIRONG

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

CHENZHIRONG

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