Returning Parameters

[Qualinwraith]

I'm accessing an MS Access 2000 DB through VB6 within a module and I need to return a table's worth of fields (8 or so) back to the form tha is interfacing with the module. Since I'm used to work on VB.NET and need to do this on VB6 I'm completely lost.

[dee-u]

Have a search for ADOX...

[Qualinwraith]

What is ADOX? I'm using ADODB and all I need to know is how VB6 returns data from functions

[dee-u]

Here is a quicky for you, reference Microsoft ADO 2.something Ext. for DDL and Security...

Private Sub Command1_Click()
    Dim x As ADOX.Catalog
    Dim y As New ADOX.Table
    Set x = New ADOX.Catalog
    x.ActiveConnection = connImport
    Set y = x.Tables("ImpHBL")
    MsgBox y.Columns.Count
End Sub

[Qualinwraith]

If for example I had to have a Sub that generates an array in a module, can't I return that array to the form in anyway? this is what I need

[Shuja Ali]

Subs don't return anything. Although you can use a function in a way similar to this

Public Function returnArray() As String()
    Dim someArray(10) As String
    Dim i As Integer
    For i = 0 To 9
        someArray(i) = "Value at : " & Str(i)
    Next
    returnArray = someArray
End Function
 
Public Sub main()
    Dim returnedArray() As String
    returnedArray = returnArray
End Sub

[Qualinwraith]

Thanks a lot my friend