VB6.0 с программированием базы данных DataControl

Question

Эй, можно тебя кое о чем спросить?Я использую VB6.0, и у меня есть некоторые проблемы с подключением моей базы данных через DataControl .У меня есть таблица с именем tblEmployee , а другая - tblPosition , затем я передал значение двух таблиц двум DataControls соответственно.Как тогда я могу получить значение определенной строки Положение поля.С моим кодом мое поле 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

End Sub

Answer 1

Я не вижу, чтобы вы "передали значение" в свой DataControl с именем datPosition.Может ли это быть проблемой?например, где у вас есть

    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, чтобы выполнить цикл по строкам, которые соответствуют вашим критериям.

Далее рассмотрите возможность возврата одного набора записей, создав соединение между tblEmployee и tblPosition, либо в коде SQL, либо возвратив иерархический набор записей сMsDataShape с синтаксисом SHAPE .