vb6 - 检查记录集是否有空字段

Question

我正在尝试 pre-view如果recordset的字段是否为空/空。

If IsNull(rs.Fields("fieldname")) = True Then ...

If IsNull(rs.Fields("fieldname")).Value = True Then ...  

if IsNull(rs.Fields("fieldName").Value) Then...

所有这些方法都会引发错误......为什么？我如何检查 recordset在我将它的值赋给一个变量之前为空。

Answer 1

如果我理解正确，您希望确保记录集中存在一个字段。如果这是正确的，您需要迭代字段以查找您正在搜索的字段，或者尝试直接访问该字段并捕获任何错误。这是一个迭代字段集合并在该字段存在时返回 True 的方法。

Public Function FieldExists(ByVal rsRecSet As ADODB.Recordset, ByVal FieldName As String) As Boolean
    Dim fld As ADODB.Field
    Dim Rtn As Boolean

    If Not rsRecSet Is Nothing Then
        For Each fld In rsRecSet.Fields
            If StrComp(fld.Name, FieldName, vbTextCompare) = 0 Then
                Rtn = True
                Exit For
            End If
        Next fld
    End If

    FieldExists = Rtn

End Function