DADOS EM COLLECTION

IRENKO 16/04/2013 08:56:35
#422004
Dim Lista As New Collection

Set RdsGeral = New ADODB.Recordset

If RdsGeral.State = 1 Then RdsGeral.Close
sql = [Ô]SELECT Entrada.Representante,Entrada.Id From Entrada Where Entrada.Representante = [ô][Ô] & QuardaRepresentante & [Ô][ô] ;[Ô]
Set RdsGeral = ConexaoContrato.Execute(sql)

A pergunta é: Como jogo os dados do campo ID no objeto Collection (Lista) e depois percorro o mesmo?

Relamente não sei fazer!!!
KERPLUNK 16/04/2013 10:41:41
#422013 Resposta escolhida 

Do while not RdsGeral.EOF
    Lista.Add(RdsGeral!Id)
    RdsGeral.MoveNext
Loop

For i% = 0 to List.Count - 1
    msgbox Lista(i%)
Next i%


Facinho...
Tópico encerrado , respostas não são mais permitidas
Voltar