VB6.0 与 DataControl 数据库编程

Question

嘿，我能问你一件事吗？我正在使用 VB6.0，但通过 DataControl 连接数据库时遇到了一些问题。我有一个名为 tblEmployee 的表，另一个是 tblPosition 然后我将这两个表的值传递给分别是两个 DataControls。然后我怎样才能获得 Position 字段的某一行的值。使用我的代码，我的 Position 字段仅返回第一行。这是我的代码

Private Sub cmdSearchEmployee_Click()
With datEmployee.Recordset
    datEmployee.Recordset.Index = "idxid"
    datEmployee.Recordset.Seek "=", txtIDNumber.Text

    If .NoMatch = True Then
        MsgBox ("No Record Found!")
    Else
        Me.txtLastName.Text = .Fields("lname")
        Me.txtFirstName.Text = .Fields("fname")
        Me.txtMiddleName.Text = .Fields("mi")

        With datPosition.Recordset
            Me.txtPosition.Text = .Fields("position")

        End With
    End If
End With

结束子

Answer 1

我看不到您已将值“传递”到名为 datPosition 的 DataControl。这可能是问题吗？例如你在哪里

    With datPosition.Recordset
        Me.txtPosition.Text = .Fields("position")

    End With

...应该更像这样：

    With datPosition.Recordset
        .Index = "some_index??"
        .Seek "=", "some_value??"
        Me.txtPosition.Text = .Fields("position")
    End With

还可以考虑使用记录集的Filter 删除与您的条件不匹配的行，然后使用RecordCount 循环遍历与您的条件匹配的行。

进一步考虑通过在 SQL 代码中创建 tblEmployee 和 tblPosition 之间的连接来返回单个记录集，或者使用带有 SHAPE 语法的 MsDataShape 返回分层记录集。