Как получить записи с помощью внешнего ключа в одной таблице, используя простой ключ другой таблицы в Visual Basic 6.0

Question

У меня есть две таблицы в одной базе данных:

• table1 содержит order_no(primery key) и cust_name
• table2 содержит order_no(foreign key) (которые также имеют дублирующиеся записи для каждого заказанного продукта питанияв одном порядке), table_no, items, date, cust_name и так далее ...

, поэтому мой вопрос заключается в том, как я могу показать записи в списках и в таблице данных илив текстовом поле, используя первичный ключ table1 order_no, чтобы я мог получить все записи, которым назначен внешний ключ с тем же номером заказа в table2

Я использую Visual Basic 6.0

Answer 1

Попробуйте что-то вроде этого

Private Sub mLoadData(lOrder_no As Long)
    ' add a reference to Microsoft ActiveX Data Objects 2.8 Library
    ' add a MSHFLXGD (Microsoft Hierarchical FlexGrid) control named grData to form
    Dim rc As ADODB.Recordset
    Dim db As New ADODB.Connection
    Dim sConnString As String, sSQL As String

    'sConnString = create a connection string according to your database - https://www.connectionstrings.com/
    db.Open sConnString

    sSQL = "SELECT * FROM table2 WHERE order_no =" & lOrder_no
    Set rc = db.Execute(sSQL)
    Set grData.DataSource = rc

End Sub