about our 4096 bytes limitation, one solution could be this one :
works very well !
Code: Select all
Procedure.s GetDatabaseText()
If DatabaseQuery("SELECT LENGTH(text) FROM table WHERE 1;")
If NextDatabaseRow()
result$="" : size=Val(GetDatabaseString(0))
For i=1 To size Step 4095
If DatabaseQuery("SELECT SUBSTRING(text,"+Str(i)+",4095) FROM table WHERE 1;")
If NextDatabaseRow() : result$+GetDatabaseString(0) : EndIf
EndIf
Next
ProcedureReturn result$
EndIf
EndIf
EndProcedure