Code: Select all
...
STRINGA = ""
rsObject.Open strSQL, adoCon
Do While Not rsObject.EOF
For I = 0 To rsObject.Fields.Count - 1
STRINGA = STRINGA & """;""" & Trim(rsObject(I))
Next I
Print #F2, STRINGA
STRINGA = ""
rsObject.MoveNext
Loop
...
during the creation of txt i see:
";"uuuuuuu":"........":"rrrrrrrrrr":"
i need
"uuuuuuu":"........":"rrrrrrrrrr"
perphs this resolve;
Do While Not rsObject.EOF
Print #F2, rsObject.GetString(, 1000, ";", vbCrLf, "");
rsObject.MoveNext
Loop