在 ADODB Recordset 循环期间，vb6 中的类型不匹配错误 13

Question

Private Sub cmdShow_Click()
    'lblTotPur/lblTotPayRet/lblBalance
    Dim strShow, mSlNo
    Dim rsShow As New ADODB.Recordset
    Dim NewItem As Variant
    If Trim(txtCustomer.Text) = "" Then
        MsgBox "Please select vendor to proceed...", vbCritical, POPUP_COMP
        Exit Sub
    End If

    Dim recCnt
    pgrPartyLedger.Min = 0
    recCnt = 0
    'VOUCHMST_P//VNO,DATED,VTYPE,REMARKS,byUser CASH PURCHASE RETURN
    strShow = "select Count(*) as mCnt from VOUCHMST A,VOUCHDAT B, mPurchase C "
    strShow = strShow & " where A.VNO=B.VNO and (A.REMARKS='CASH PURCHASE RETURN' OR A.REMARKS='CREDIT PURCHASE RETURN' OR A.REMARKS='CREDIT PURCHASE' OR A.REMARKS='CASH PURCHASE' OR A.REMARKS='PAYMENT' OR A.REMARKS='CREDIT NOTE') "
    strShow = strShow & " and A.DATED between #" & Format(dtFrom.Value, "MM/dd/yyyy") & "# "
    strShow = strShow & " and #" & Format(dtTo.Value, "MM/dd/yyyy") & "# "
    strShow = strShow & " and B.IDNO = '" & Trim(txtCustomerId.Text) & "' "
    strShow = strShow & " and A.VREFNO = C.PurBillNo  "
    'strShow = strShow & " order by A.ID,A.DATED,A.VNO"
    rsShow.Open strShow, cn
    recCnt = rsShow("mCnt")
    rsShow.Close
    pgrPartyLedger.Max = recCnt + 1

    'VOUCHMST_P//VNO,DATED,VTYPE,REMARKS,byUser
    strShow = "select A.Id,A.cmnt,A.VNO,A.DATED,B.IDNO,B.IDNAME,B.AMOUNT,B.DR_CR,B.VNARRATION,A.REMARKS,C.DealInvNo, B.CQ_TYPE, B.BANKNAME, B.BANKBRANCH, B.CQ_NO from VOUCHMST A,VOUCHDAT B,mPurchase C "
    strShow = strShow & " where A.VNO=B.VNO and (A.REMARKS='CASH PURCHASE RETURN' OR A.REMARKS='CREDIT PURCHASE RETURN' OR A.REMARKS='CREDIT PURCHASE' OR A.REMARKS='CASH PURCHASE' OR A.REMARKS='PAYMENT' OR A.REMARKS='CREDIT NOTE') "
    strShow = strShow & " and A.DATED between #" & Format(dtFrom.Value, "MM/dd/yyyy") & "# "
    strShow = strShow & " and #" & Format(dtTo.Value, "MM/dd/yyyy") & "# "
    strShow = strShow & " and B.IDNO = '" & Trim(txtCustomerId.Text) & "' "
     strShow = strShow & " and A.VREFNO = C.PurBillNo  "
    strShow = strShow & " order by A.ID,A.DATED,A.VNO"
    rsShow.Open strShow, cn

    Dim mPur, mPayRet, mAnyAdv, mTempVNO
    mPur = 0
    mPayRet = 0
    mAnyAdv = 0

    mSlNo = 1
    ShowPaymentHeader
    Do While Not rsShow.EOF
        mTempVNO = rsShow("VNO")

        Set NewItem = listViewPayment.ListItems.Add(, "C" & mSlNo, Format(rsShow("DATED"), "dd/MM/yyyy"))
        NewItem.SubItems(1) = rsShow("VNO")
        NewItem.SubItems(13) = rsShow("DealInvNo")

        NewItem.SubItems(2) = IIf(IsNull(rsShow("IDNAME")), "", CommaFilterText(rsShow("IDNAME"), 1))
        If Trim(rsShow("REMARKS")) = "CASH PURCHASE" Then
            NewItem.SubItems(3) = FormatTakaPaisa(rsShow("AMOUNT"))
            NewItem.SubItems(4) = FormatTakaPaisa(rsShow("AMOUNT"))
        ElseIf Trim(rsShow("REMARKS")) = "CREDIT PURCHASE" Then
            mAnyAdv = ShowPartialAdvance(rsShow("VNO"))
            NewItem.SubItems(3) = FormatTakaPaisa(rsShow("AMOUNT") + Val(mAnyAdv))
            If Val(mAnyAdv) > 0 Then
                NewItem.SubItems(4) = FormatTakaPaisa(mAnyAdv)
            Else
                NewItem.SubItems(4) = ""
            End If
        Else
            NewItem.SubItems(3) = ""
            NewItem.SubItems(4) = FormatTakaPaisa(rsShow("AMOUNT"))
            NewItem.SubItems(7) = rsShow("CQ_TYPE")
            NewItem.SubItems(8) = rsShow("BANKNAME")
            NewItem.SubItems(9) = rsShow("BANKBRANCH")

            **    
            > NewItem.SubItems(9) = rsShow("cmnt")

            **

        End If
        NewItem.SubItems(6) = rsShow("IDNO")

        mPur = mPur + Val(NewItem.SubItems(3))
        mPayRet = mPayRet + Val(NewItem.SubItems(4))

        NewItem.SubItems(5) = rsShow("REMARKS")
        NewItem.SubItems(12) = GetVoucherRefNo(mTempVNO)

        pgrPartyLedger.Value = mSlNo

        mSlNo = mSlNo + 1
        rsShow.MoveNext
    Loop
    rsShow.Close

    lblTotPur.Caption = FormatTakaPaisa(mPur)
    lblTotPayRet.Caption = FormatTakaPaisa(mPayRet)
    lblBalance.Caption = FormatTakaPaisa(mPur - mPayRet)
    pgrPartyLedger.Value = 0        
End Sub

我收到该行的类型不匹配运行时错误 13，请帮助我

Answer 1

根据您的数据库设计和查询，您可能有包含空值的字段或包含零长度字符串的字段。您应该始终检查这一点，尤其是在执行外部联接或查询中的多个联接时。

如果您仅检查 table 的内容并且您看到字段都已填充，这并不意味着结果集将 return 只有有效值 - 但这是超出了这个答案的范围。

在处理记录集时，有多种常见做法可以检查字段值和捕获错误。仅举几例：

On Error Resume ...块：避免这个，你还没有概览发生了什么
检查 Null 值、DBNull 值、Empty 值或检查 Field Type。只有一个示例：

If IsNull(rsShow("cmnt").value) = True Then NewItem.SubItems(9) = "" Else NewItem.SubItems(9) = rsShow("cmnt") End If

注意：您应该明确字段的 value 属性。

如果您进行字段类型检查，请学习使用 VB IDE 中集成的对象浏览器，这将是您最好的朋友。
检查字段的ActualSize 属性：参见MSDN：The Field Object
另一个常见的快捷方式是在字段的 return 值前添加或附加一个零长度的字符串，这仅在您不必区分 Null 值和 Blank 值，你只需要在标签或列表中显示结果，因为你的情况是： NewItem.SubItems(9) = "" & rsShow("cmnt")

关于Error 13：在VBIDE中，打开Immediate Window，输入：? 0 = ""然后回车。结果如何？

最后但并非最不重要的一点是，始终仔细检查字段名称，每个数据库开发人员都面临过因拼写错误而导致的错误，尤其是在处理包含数十个 table 和数百个的财务应用程序时字段。

在 ADODB Recordset 循环期间，vb6 中的类型不匹配错误 13

Type Mismatch error 13 in vb6, during ADODB Recordset loop

vb6

ms-access

adodb