Question

我有两个记录集想要通过另一个的值更新其中一个。我确实喜欢这个

 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"

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

谢谢

Answer 1

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

Answer 2

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

＆＃34; IntegrationException：问题（多步操作产生错误。检查每个状态值。）＆＃34;

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 个答案: