Show posts
1. If $Viewfile has a length the output goes to a text file and is displayed using default text viewer.
2. If $Viewfile is remarked, the output goes to the command line environment.
3. All select statements must be terminated with a semi-colon.
4. Backup, clone, import, export, view sql, ...
5. Many commands can be sent at once by separating each semi-colon terminated command with a $CRLF
Example:
sdatabase= "sample.db3"
sheller "select * from parts;" + $CRLF
2. If $Viewfile is remarked, the output goes to the command line environment.
3. All select statements must be terminated with a semi-colon.
4. Backup, clone, import, export, view sql, ...
5. Many commands can be sent at once by separating each semi-colon terminated command with a $CRLF
Example:
sdatabase= "sample.db3"
sheller "select * from parts;" + $CRLF
Code Select
'SQLite3Sheller - script processor 6/24/19
'All select statements must be terminated with a semi-colon.
'Many uses; including backup, clone, import, export, view sql, ...
DECLARE FUNCTION ShellExecute LIB "Shell32.dll" ALIAS "ShellExecuteA" ( _
BYVAL hwnd AS DWORD, lpOperation AS ASCIIZ, lpFile AS ASCIIZ, _
lpParameters AS ASCIIZ, lpDirectory AS ASCIIZ, BYVAL nShowCmd AS LONG) _
AS DWORD
$CommandFile="cj.cmd" 'file read by SQLite3.exe
$BatchFile ="cj.bat" 'file shelled to
'$ViewFile ="cj.txt" '<--- remark to use cmd.exe or unremark to view .txt file
'=====================================================================================
FUNCTION PBMAIN () AS LONG 'sqlite commands .modes ascii column html insert line list tabs tcl
LOCAL s,sdatabase AS STRING
sdatabase= "sample.db3"
#IF %DEF($ViewFile)
s=CHR$(".output ",$ViewFile,$CRLF)
#ENDIF
s+= CHR$("select '10 records of '||count(*)||' records (.mode tab)' from parts;",$CRLF)
s+= CHR$(".mode tabs",$CRLF)
s+= CHR$("select rowid,redref,substr(product,1,40) from parts limit 10;",$CRLF)
s+= CHR$("select '';",$CRLF)
s+= CHR$("select '10 records of '||count(*)||' records (.mode csv)' from parts;",$CRLF)
s+= CHR$(".mode csv",$CRLF)
s+= CHR$("select rowid,redref,substr(product,1,40) from parts limit 10;",$CRLF)
sheller sdatabase,s
#IF %DEF($ViewFile)
DisplayTextFile $ViewFile
#ENDIF
END FUNCTION
'=====================================================================================
FUNCTION sheller(sDataBase AS STRING,sCommands AS STRING) AS LONG
LOCAL stemp AS STRING, h AS LONG
h = FREEFILE
OPEN $CommandFile FOR OUTPUT AS #h
IF ERR THEN ? "Unable to open " + $CommandFile,%MB_SYSTEMMODAL,"Error":EXIT FUNCTION
PRINT #h,sCommands;
CLOSE #h
h = FREEFILE
OPEN $BatchFile FOR OUTPUT AS #h
IF ERR THEN ? "Unable to open " + $BatchFile,%MB_SYSTEMMODAL,"Error":EXIT FUNCTION
stemp = "sqlite3.exe " + sdatabase + " < " + $CommandFile
PRINT #h,"@cls"
PRINT #h,"@echo off"
PRINT #h,stemp
#IF NOT %DEF($ViewFile) 'viewfile not wanted
PRINT #h,"pause" 'pause batch file so we can see results
#ENDIF
CLOSE #h
#IF %DEF($ViewFile)
h = SHELL($BatchFile,0)
#ELSE
h = SHELL($BatchFile)
#ENDIF
END FUNCTION
'=====================================================================================
FUNCTION DisplayTextFile(sFileName AS STRING) AS LONG
LOCAL zFileName AS ASCIIZ * 257
zFileName = sFileName
ShellExecute (0, "OPEN", zFileName, BYVAL 0, CURDIR$, %SW_SHOWNORMAL)
END FUNCTION