AutoHotkey Community

Code: Select all

WITH RECURSIVE nodes(x) 
AS (
SELECT 'Node_1' 
UNION 
SELECT Destination_Node FROM Edges JOIN nodes ON Source_Node=x
) 
SELECT x FROM nodes;

Code: Select all

If !RegExMatch(SQL, "i)^\s*(SELECT|PRAGMA)\s") {
	This.ErrorMsg := A_ThisFunc . " requires a query statement!"
	Return False
}

Code: Select all

SalesDB := New SQLiteDB
SalesDB.OpenDB("C:\Users\Desktop\AHK Scripts\SalesData.db")
arg:="SELECT * FROM CustomerFollowUp"

ExportDB2Csv(SalesDB,arg,"OutputFile.csv")

    ExportDB2Csv(MyDB,arg,DestFile,OverWrite:=0) ; arg is for the SELECT statement; set OverWrite to 1 to Overwrite the Destination file, or 0 to append
    {
        ; Last Updated - 2022-01-05, 15:39:33 ; https://www.autohotkey.com/boards/viewtopic.php?f=6&t=1064&p=435741#p435741
        If !MyDB.GetTable(arg, objTable) 
        {
            MsgBox, % "SQLite GETTABLE Error`n`nMessage: " . MyDB.ErrorMsg . "`nCode: " . MyDB.ErrorCode . "`nQuery: " . arg ; error message
            return
        }
        For i,v in objTable.ColumnNames
        {
            If (i=1)
                line:= """" v """"
            Else
                line.= ",""" v """"
        }
        Table:=line
        For i,v in objTable.Rows
        {
            line:=""
            For p,q in v
            {
                If (p=1)
                    line:= """" q """"
                Else
                    line.= ",""" q """"
            }
            Table.="`n" line
        }
        if (OverWrite=1)
            FileDelete, % DestFile
        FileAppend,% Table,% DestFile
    }

Code: Select all

#include <class_sqlitedb>

db := new sqlitedb
db.opendb(a_scriptdir "\dummy.db")

If !db.exec("CREATE TABLE IF NOT EXISTS tweets(id,user,msg);")
	msgbox % "table create error"


;if !db.exec("DELETE FROM TWEETS;")
	;msgbox % "delete error"


if !db.prepare("INSERT OR IGNORE INTO tweets(id,user,msg) VALUES(?,?,?);",prepareSt)
	msgbox % "prepare error"


;generate unique set of parameters across multiple tests
basis := a_tickcount

If !prepareSt.bind(1, "Int", basis)	;works
	msgbox % "error binding id"
	
;slot 2 works with Int, issue is not position related
;If !prepareSt.bind(2, "Int",  (basis + 1))
	;msgbox % "error binding user"

If !prepareSt.bind(2, "Text", "user-" basis)	;inserts blank string (not a NULL)
	msgbox % "error binding user"

If !prepareSt.bind(3, "Text", "msg-" basis)	;same as above
	msgbox % "error binding msg"


If !prepareSt.step()	;works
	msgbox % "error on step"
If !prepareSt.reset()	;works
	msgbox % "error on reset"