Hello everyone,

I'm a ColdFusion programmer whose been tasked with creating a VB6 application for the marketing department of my company. It's a simple application, and here's basically how it works:

You search for a product from a textbox. The results of the search populate a combo box. When you select something from the combo box, it populates a series of text fields with information about the product (title, format, catalog number, price, etc...). From there you can click an "add to shopping cart" button, which stores that product into a shopping cart database table. Make sense so far?

Okay, so I have the search working. What I can't get is populating the combo box and subsequent text fields once you select something in the combo box. After reading a few of the books we have lying around, I figured it would be best to create a UDT to store the information. So I did that:

VB Code:
  1. Private Type ProductUDT

  2.     the_title As String

  3.     Title As String

  4.     Format As String

  5.     Price As String

  6.     ID As String

  7.     SKU As String

  8. End Type

  9. Dim Products() As ProductUDT, i As Long

Then I run the query:

VB Code:
  1. Dim SQL_Search As ADODB.Recordset

  2.     Set SQL_Search = New ADODB.Recordset

  3.  
  4.     Dim searchtext As String

  5.     searchtext = txt_search.Text

  6.  
  7.     SQL_Search.Source = "SELECT (title & '('&Format&')') As the_title, title, ID, format, sku, price FROM lkpProduct WHERE (title LIKE '%" & searchtext & "%') OR (sku LIKE '%" & searchtext & "%') ORDER BY title"

  8.     Set SQL_Search.ActiveConnection = db

  9.     SQL_Search.Open

Then I have the code to populate the combo box (but it doesn't work yet):

VB Code:
  1. For i = LBound(Products) To UBound(Products)

  2.         combo_search_results.AddItem Products(i).Title

  3.         combo_search_results.ItemData(combo_search_results.NewIndex) = i

  4.     Next

Based on what the book says, there needs to be code to tie together the query results to the "Products" UDT that is created. Unforunately, the author purposely omitted the code to do that.

If someone can please help me to figure out (a) how to tie the query to the UDT; and then (b) how to tie the query information from the selected item in the combo box to the text fields.

MUCH APPRECIATED! The bosses will be pleased if I can get this working.

Josh Sager
www.tlavideo.com