I have a class called “OrdersShipped” which is use to hold data which will subsequently be loaded into a SQLite Database.
The following code is used to get the data from a MySql Database to the Class. The code works OK to get the data, however the data gets sorted by date in a listbox which reorders my data. How do I create an array within the Class to keep my data in the proper order?
Dim CustOrders() As OrdersShipped
Dim rsOrders As RecordSet
rsOrders = MySqlDB.SQLSelect(sql)
Dim Ord As OrderShipped
Ord = New OrderShipped
If rsOrders <> Nil Then
While Not rsOrders.EOF
Ord.OrderDate = rsOrders.Field(“orders_date”)
Ord.CustomerID = rsOrders.Field(“customers_id”)
Ord.BillToName = rsOrders.Field(“billing_name”)
Ord.BillToCompany = rsOrders.Field(“billing_company”)
Ord.BillToAddress1 = rsOrders.Field(“billing_street_address1”)
Ord.BillToAddress2 = rsOrders.Field(“billing_street_address2”)
CustOrders.Append(Ord)
Wend
End If
rsOrderItem.Close