[VB6] Query DAO 3.6 e lettura righe di un recordset

[L'Aquila]

Ciao ragazzi!

Ho creato una connessione ad un database con DAO 3.6 e fino a qui tutto va bene; quando apro una query legge solo una riga: che faccio?

[L'Aquila]

Vi posto il codice fin'ora sviluppato:

NomeDB = App.Path & "\db1.mdb"
MySql = ""
MySql = MySql & "SELECT * "
MySql = MySql & "FROM Piante INNER JOIN Specie "
MySql = MySql & "ON Piante.Specie = Specie.codiceSpecie"
Set MyDB = OpenDatabase(NomeDB, False, False)
Set Table = MyDB.OpenRecordset(MySql)

[mgmg]

Dopo :
Set Table = MyDB.OpenRecordset(MySql)
hai fatto un loop di lettura(1), oppure il tuo codice si ferma a quello che hai postato? :
(1)

Do Until Table.Eof
 .....
 Table.Movenext
Loop

Ciao

[L'Aquila]

ho fatto un loop di lettura basato su un ciclo for

For i = 0 To Table.RecordCount - 1
    .............
    Table.MoveNext
Next i

ma la proprietà RecordCount mi restituisce sempre e solo 1

[L'Aquila]

ho appena provato ad usare il ciclo DO UNTIL che mi hai proposto tu e...

FUNZIONA!

Ti ringrazio!

[mgmg]

Di niente! Devi sapere che in DAO non hai subito la proprietà recordcount dopo una select su un recordset, a differenza di ADO, ma devi fare un movelast.
Ciao