Database - Leggere Dinamicamente Tutti I Campi Di Un Recordset O Query!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Tabelle # Private Function Settacampo(ByVal CRITERIO As String, ByVal Secondo As Boolean)
Dim MioCampo(0 To 100) As String
Dim MioMDB As Database
Dim MioRST As Recordset, fldRecordset As Field
Dim I As Integer
Set MioMDB = OpenDatabase(DirLavoro & "\Agentex.mdb")
Set MioRST = MioMDB.OpenRecordset(CRITERIO)
' Assegna alle variabili di oggetto un oggetto

' Field da insiemi Fields differenti.

On Error GoTo errore
List2.Clear
List4.Clear
For I = 0 To MioRST.Fields.Count
Set fldRecordset = MioRST.Fields(I)
If Secondo = False Then
List2.AddItem OutputCampo("Recordset", fldRecordset)
Else
List4.AddItem OutputCampo("Recordset", fldRecordset)
End If
Next

errore:
MioRST.Close
MioMDB.Close
End Function

'---------------------------------------------

' funzione che intercetta il nome del campo

Private Function OutputCampo(strTemp As String, fldTemp As Field)
Dim PrpCiclo As Property
OutputCampo = fldTemp.Name
End Function