This correctly returns all the 10,000 rows.
Results are returned into results.txt and shelled to so it loads in my default
.txt viewer notepad.
Please change the IP address and port on the slConnect line.
Added a counter RowCount to physically count the lines returned
and it will be displayed at the end of the results.
Hope this is of some help.
#INCLUDE "\sql\inc\sqlitening.inc" 'sqlite routines
#INCLUDE "win32api.inc"
$OutputFile = "results.txt"
FUNCTION PBMAIN () AS LONG 'testsample.bas
LOCAL COLUMN,LastColumn AS LONG,sData AS STRING 'define variables
LOCAL RowCount AS LONG
slConnect "192.168.1.2",51234 'connect remote
OPEN $OutputFile FOR OUTPUT AS #99
'slConnect "192.168.1.2",51234 'connect remote server on port 51234
slOpen "sample.db3","C" 'Open database or create if not exists
slsel "select * from parts;
LastColumn = slGetColumnCount 'number of columns
RowCount = 0
DO WHILE slGetRow 'while row exists loop
INCR RowCount
sData = ""
FOR COLUMN = 1 TO LastColumn ' column loop
sData = sData + slf(COLUMN) + $TAB ' combine columns
NEXT ' loop
sData = LEFT$(sData,(LEN(sData)-1))
PRINT #99, sData
LOOP 'row loop
PRINT #99, "RowCount";RowCount
CLOSE #99
SLEEP 1000 'give system some time to complete
Sheller
END FUNCTION
FUNCTION Sheller AS LONG
LOCAL zText AS ASCIIZ * 256
zText = $OutputFile
ShellExecute (%NULL, "OPEN", zText, BYVAL %NULL, CURDIR$, %SW_SHOWNORMAL)
END FUNCTION
slsel "SELECT * FROM sqlite_master
table parts parts 2 CREATE TABLE [parts] (
[MANUF] TEXT NOT NULL,
[REDREF] TEXT,
[PRODUCT] TEXT,
[LANGUAGE] TEXT,
[CPU_OS] TEXT,
[MEDIA] TEXT,
[TYPE] TEXT,
[PGROUP] TEXT,
[PRICE] NUMERIC)
index MANUF parts 3 CREATE INDEX [MANUF] ON [parts] ([MANUF])
RowCount 2