Access query ed array

di Anonimizzato620 il
3 risposte
/
Anonimizzato620
Utente anonimizzato
Ciao a tutti, volevo chiedervi un aiuto ad un problema.
Com'è possibile inizializzare un array con i valori di un campo di una query?
Grazie a tutti.

3 Risposte

  • Avatar di Toki
    Moderatore
    Iscritto da
    gen, 2001
    Messaggi
    3900
    Devi vare il classico ciclo di scorrimento del recordset, e a ogni step memorizzare il valore del campo nell' array

    Ciao
  • /
    Anonimizzato620
    Utente anonimizzato
    Grazie Toki, ma non avresti per caso un esempio da mostrarmi?
    Ciao.
  • /
    Anonimizzato620
    Utente anonimizzato
    Per chi interessa, ho risolto così.
    Se ci sono commenti sono bene accetti.

    Ciao.



    Public Sub ElencoSquadre()

    Dim dbs As Database, rst As Recordset
    Dim strSQL As String, i As Integer, fine As Integer, Serie As String
    Static Elenco(20) As Variant, Partita As Integer, Giornata As Integer

    Serie = Me.Testo33
    Set dbs = CurrentDb
    strSQL = "SELECT * FROM Squadre WHERE Squadre![Categoria] = '" & Serie & "'"
    Set rst = dbs.OpenRecordset(strSQL)
    rst.MoveLast
    Debug.Print rst.RecordCount
    fine = rst.RecordCount
    rst.MoveFirst
    For i = 1 To fine
    Elenco(i) = rst!Squadra
    rst.MoveNext
    Next i
    rst.Close
    Set dbs = Nothing

    End Sub
Devi accedere o registrarti per scrivere nel forum
3 risposte