多步操作产生错误。检查每个状态值答案

【问题标题】：multiple-step operation generated errors. check each status value多步操作产生错误。检查每个状态值
【发布时间】：2015-06-19 22:37:18
【问题描述】：

我有两个记录集，它们想通过另一个值来更新其中一个。我确实喜欢这个

 stSql = "SELECT dbo.tblCableProperty.CatalogCode FROM  dbo.tblCable INNER JOIN " & _
"  dbo.tblCableProperty ON dbo.tblCable.CablePcode = dbo.tblCableProperty.CablePcode" & _
" WHERE dbo.tblCable.prjsubcode=" & prjsubcode & " AND dbo.tblCable.Active=1 " & " And dbo.tblCable.Gtag='" & Gtag & "' And dbo.tblCable.TagNo=" & tagno & " And dbo.tblCable.NTag=" & NTag & " And dbo.tblCable.EndStr='" & EndStr & "'"
rs.Open stSql, cn, adOpenStatic, adLockOptimistic
catalogCode = rs!catalogCode
rs.Close

stSql = "SELECT *,'' as ShowNum FROM viwShowNum WHERE prjsubcode=" & prjsubcode & " AND Active=1 " & " And Gtag='" & Gtag & "' And TagNo=" & tagno & " And NTag=" & NTag & " And EndStr='" & EndStr & "' ORDER BY 8"
rs.Open stSql, cn, adOpenDynamic, adLockOptimistic
rs.MoveFirst

stSql = "Select * from tblCoreCode where CatalogCode=" & catalogCode
Set rsCoreCode = New ADODB.Recordset
rsCoreCode.CursorLocation = adUseClient
rsCoreCode.Open stSql, cn, adOpenStatic, adLockOptimistic

While Not rs.EOF
criteria = "RealNum='" & rs!CoreNo & "'"
rsCoreCode.Filter = criteria

rs!ShowNum = CStr(rsCoreCode!ShowNum)
rsCoreCode.Filter = adFilterNone
rs.MoveNext
Wend

我在这部分收到以下错误

 rs!ShowNum = CStr(rsCoreCode!ShowNum)

 multiple-step operation generated errors. check each status value

rsCoreCode!ShowNum 是 varchar(5)。我试图设置值

 rs!ShowNum = "1"

但我又遇到了同样的错误。问题出在哪里？

谢谢

【问题讨论】：

*,'' 部分在stSql = "SELECT *,'' as ShowNum FROM ... 行中是什么意思？
* 表示所有字段，'' as ShowNum 表示我将另一个字段添加到记录集中以稍后填充它
谢谢。可以使用as 为选定列分配别名。 msdn.microsoft.com/en-us/library/h09t6a82%28v=vs.80%29.aspx 是否创建新列？
如何将字段附加到现有记录集？
我的问题是真正的问题。我一直在努力理解你的代码。再次感谢您的回复。添加新字段：msdn.microsoft.com/en-us/library/windows/desktop/… 可能是这样的：rs.fields.append "ShowNum", adChar, 5, adFldUpdatable

标签： vb6

【解决方案1】：

同样的问题发生在我身上，问题是我违反了一个对象属性，在我的情况下，错误出现的大小是

“IntegrationException：问题（多步操作产生错误。检查每个状态值。）”

Imports ADODB
Dim _RecordSet As Recordset  
_rs.Fields.Append("Field_Name", DataTypeEnum.adVarChar, 50)
_Recordset("Field_Name").Value = _RecordDetails.Field_NameValue

_RecordDetails.Field_NameValue 长度超过 50 个字符，因此违反了此属性，因此发生了错误，因此您可能应该检查您是否不匹配其中一个属性

【讨论】：

【解决方案2】：

如我评论中所问，如果rs.Updatable 或rs!ShowNum.DataUpdatable 是false，您可以使用Microsoft 中的这段代码来检索可更新的RecordSet。

【讨论】：

我没有任何 rs.Updatable 或 rs!ShowNum.DataUpdatable