如何通过在一个表中使用外键在 Visual Basic 6.0 中使用另一个表中的主键来获取记录

Question

i have two tables in same database:

• table1 contains order_no(primery key) and cust_name
• table2 contains order_no(foreign key) (which also have duplicates entry per food item ordered in single order), table_no , items , date , cust_name and so on...

so my question is how can i show the records in listbox and datagrid or in textbox using table1's primery key order_no so i can get all the records which have assigned the foreign key with same order number in table2

i am using visual basic 6.0

Answer 1

Try something like this

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