Public Sub ExportTableToCSV
Dim data As List
data.Initialize
Dim rs As ResultSet = B4XTable1.sql1.ExecQuery("SELECT * FROM data")
Do While rs.NextRow
Dim row(B4XTable1.Columns.Size) As String
For i = 0 To B4XTable1.Columns.Size - 1
Dim c As B4XTableColumn = B4XTable1.Columns.Get(i)
row(i) = rs.GetString(c.SQLID)
Next
data.Add(row)
Loop
rs.Close
If data.Size>0 Then
Dim su As StringUtils
su.SaveCSV(xui.DefaultFolder, CSVFile, ",", data)
End If
End Sub