I know how to read data from a database and manipulate it.

I have a database base FName, Lname, and Salary fields.  They are
 strings and integer fields.

I declared my datatype as
Private Type EmployeeList
    Employee_LName As String
    Employee_FName As String
    Employee_Salary As Integer
End Type

I am having trouble loading this into an array.  Can someone
please give me an idea.

thanks.

* Sent from RemarQ http://www.*-*-*.com/ The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!

Don't use an array, use a collection!

Place this User Defined Datatype into a Class module and do offer it through
a collection to the rest of your project.

please visit http://www.vdeveloper.com

--
-------------------------------------------------------------
maxx

www.vdeveloper.com
-------------------------------------------------------------

This is not the best way, but will not be noticeably slower provided there
are not too may records. Best to use inside a class, so you can keep some
state about data etc

count = 0
If Not (myRS.EOF and myRS.BOF)
    With myRS
        While Not .EOF
            Redim Preserve MyAry(count) As EmployeeList
            MyAry(count).Employee_Employee = !SurName
            MyAry(count).Employee_FName = !First_Name
            MyAry(count).Employee_Salary = !Salary
            count = count + 1
            .MoveNext
        Wend
    End With
End If