SQLite csv Export

International Deutsch
1

Hallo,
ich habe eine SQL Lite Datenbank mit mehr als 250.000 Datenstzen und ich muss aus dieser ca. 50.000 Datenstze
exportieren (csv).
Ich mache das derzeit so:
last = rs.RecordCount
for i=0 to last-1
c=c+""""+str(i)+""""+";"+""""+rs.Field(“Test1”).StringValue+""""+";"+""""+rs.Field(“Test2”).StringValue+""""+";"+""""+rs.Field(“Status”).StringValue+""""+_
“;”+""""+rs.Field(“Test3”).StringValue+""""+";"+""""+rs.Field(“Test4”).StringValue+""""+_
“;”+""""+rs.Field(“Test5”).StringValue+""""+";"+""""+rs.Field(“Test6”).StringValue+""""+";"+""""+rs.Field(“Test7”).StringValue+""""+ “;”+chr(13
rs.MoveNext
next
Der Export dauert ca. 10 Minuten. Wie kann ich diesen beschleunigen?
Gru
Klemens

2

Hallo

Muss das mit XOJO gemacht werden ?

Mit dem SQLIteManger exportiert man ein Table mit 80.000 Rows und 60 Columns in etwa 20 Sekunden

in eine Datei (ca. 30 MB)

3

Use an array don’t use concatenation
dim data() as string
dim i as integer
while not rs.eof
dim cdata() as array
cdata.append “”""+str(i)
cdata.append rs.field(“test1”).stringValue
…
cdata.append rs.field(“test7”).stringValue+""";"
data.append join(cdata,""";"")
i=i+1
rs.moveNext
wend
dataToWrite->join(data,chr(13))

4

Very thanks, works fine.
Now export 110.000 Records in 2 seconds!