Abrir XML no VB6 e obter dados

ricmrq

Power Member
Fiz uma aplicaçao para guardar tabelas de uma base de dados em XML.

Agora queria abrir o ficheiro XML com um recordset (ou doutra forma) e obter os dados de cada campo de cada linha!
alguem sabe como fazer isto?

utilizei o seguinte codigo:

Dim campos(), valores()
Dim u As Integer
u = -1
Dim rs As New ADODB.Recordset
rs.Open Z
With rs
For X = 0 To .Fields.count -1
u = u + 1
ReDim Preserve campos(u)
ReDim Preserve valores(u)
campos(u) = .Fields(X).Name
valores(u) = .Fields(X).Value
Next X
.Close
End With

ora, o problema é que apenas consigo obter os dados da 1a linha!
e o ".fields.count-1" da-me o nº de campos. aqui o que interessa é o nº de linhas!!

please help :(

cumps
 
Back
Topo