如何从MS Access获取数据到ListView VB6

Question

I have data in listview VB6 like this.

and this is the coding for insert data to my listview from textbox "Receivedata"

Private Sub AddList_Click()  
Dim i As Long
Dim sLines() As String
Dim sValues() As String
Dim oItem As ListItem

sLines() = Split(receivedata.Text, vbCrLf)
For i = 0 To UBound(sLines)
   If sLines(i) > vbNullString Then ' skip for empty line
      sValues() = Split(sLines(i), ".")

      Set oItem = ListView1.ListItems.Add(, , sValues(0))
      Call oItem.ListSubItems.Add(, , sValues(1))
      Call oItem.ListSubItems.Add(, , sValues(2))
   End If
Next i
End Sub

and this is my database in ms access:

i want to get data "Product_Name" and "Price" from ms access by matching the barcode's data.

how to connect the ms access with VB6 and get thedata from ms access to my listview? i builded connection from ADODC like this:

please help me..

Answer 1

The simplest possible approach: once you have successfully connected to your database table, You may use the (almost forgotten) Filter property of the ADODB.Recordset .

Inside the loop of your received data, you should restrict the price master data of your product to just only the one row you need:

Adodc1.Recordset.Filter = "Barcode = '" & sValues(1) & "'"

Then, depending from your connection string, you may find the product name and price inside the Recordset Fields collection. For example:

ProductName = Adodc1.Recordset.Fields("Product_Name")
Price = Adodc1.Recordset.Fields("Price")

Additional information:

As your question is somewhat broader than just only the ADO Data Control, an additional discussion is required. I'm posting the discussion here, because it doesn't fit inside a comment.

You should think about the questions below and try to get an answer by yourself.

Premise: from the screenshot of your Products Table, it seems to me you have defined the autoincrement Number field as Primary Key.

Q: How can you be sure, when you apply the Filter , that there will be just only one row for each Barcode? Is there in your database table a constraint which can avoid such a scenario?

Q: What happened, and what action you should undertake if you find two rows with different prices?

Below are the Fields from the Price List table of a popular international ERP software:

• Product Code
• Customer Code
• Product Group
• Customer Group
• Currency Code
• Minimum Quantity
• Starting Date
• Ending Date
• Price (Local Currency)
• Price (Foreign Currency)
• Barcode

Q: what are the fields of the Primary Key?

Q: why isn't the field Product Name inside this table?

Q: Why isn't the field Ending Date in the Primary Key?

Q: How many Foreign Keys exists in the database, which are related to this Price List table?

Q: Why there is another Barcode field in the Product table, but doesn't contain the same data?

Happy learning!