在vb6中获取类型不匹配错误

Question

我正在使用此代码并获得类型不匹配的错误，运行时错误'13'错误在下面标记的行中，而具体错误是由于其中条件（prereq.paid="rs1！付费""）在查询...

rs1.Open "select name,nposts,postad.paid as paid from ad,post,postad where ad.adid = " +
         cmbAdno.Text +
         " and ad.adid=postad.adid and postad.pid=post.pid ", con, adOpenDynamic, 
         adLockOptimistic

While Not rs1.EOF
  cmbTitle.AddItem (rs1!Name)    
  rs1.MoveNext
Wend

rs1.MoveFirst

cmbTitle.Text = rs1!Name
txtNposts.Text = rs1!nposts

If IsNumeric(rs1!paid) Then
  MsgBox (rs1!paid + 1)
End If

**rs2.Open "select title from postad,prereq where postad.paid = prereq.paid and prereq.paid=" + 
        rs1!paid + " ", con, adOpenDynamic, adLockOptimistic**

While Not rs2.EOF
  lstPrereq.AddItem (rs2!Title)
  rs2.MoveNext
Wend

rs2.Close

rs1.Close

Answer 1

rs1！在数据库中支付了布尔值吗？如果是这样，可能是用于制作查询字符串的conat存在问题。在过去，当我使用VB6时，我从未访问过这样的字段。我使用了类似rstRecordSet的东西。字段（0）或rstRecordSet。字段（“field d1”），但如果字段存在，这不应该是问题。在之前创建一个字符串并将查询的连接传递给它并验证它是否被填充。

另外，你有"...postad.paid..."，为什么？你不需要在那里重命名字段...

Answer 2

呼，那个代码需要一些工作！

不过，加号操作员是罪魁祸首。您可以通过一个小测试用例轻松验证这一点。

Dim ADO_Field_Value As Variant
Dim S As String

ADO_Field_Value = True

On Error Resume Next
S = "text" + ADO_Field_Value + ""
If Err Then MsgBox "Plus failed, err " & CStr(Err)
Err.Clear
S = "text" & ADO_Field_Value & ""
If Err Then MsgBox "Amp failed, err " & CStr(Err)

如果运行此命令，则“”将产生错误13，而

使用&号进行连接。加号only sorta，有点适用于向后兼容古代。使用它需要编译器猜测您的意图，以解决运算符的软重载。

你的“空黑客”将一个空字符串关联到。价值并不是特别聪明。如果rs1有一个空值，那么最终会出现SQL语法错误，除非使用“”这会导致错误。

通过显式使用，可以更安全地访问ADO字段值。值，而不是让编译器猜测您想要字段的默认属性。While/Wend已经过时了，那些多余的括号是怎么回事？

你要求编译器做一些在这段代码中可能不应该做的事情。