Edited by 69255, 23 March 2012 - 04:44 PM.
Posted 20 February 2012 - 01:31 PM
Edited by 69255, 23 March 2012 - 04:44 PM.
Posted 20 February 2012 - 01:48 PM
Posted 20 February 2012 - 01:50 PM
Edited by jchd, 20 February 2012 - 02:04 PM.
Posted 20 February 2012 - 01:56 PM
#include <array.au3> #include <SQLite.au3> #NoTrayIcon _SQLite_Startup() If @error Then Exit _SQLite_Open("Test.db") If @error Then Exit _CreateDatabase() ; Query Global $aResult, $iRows, $iColumns, $iRval $iRval = _SQLite_GetTable2d(-1, "SELECT * FROM Test;", $aResult, $iRows, $iColumns) If $iRval = $SQLITE_OK Then _ArrayDisplay($aResult) Else MsgBox(16, "SQLite Error: " & $iRval, _SQLite_ErrMsg()) EndIf _SQLite_Close() _SQLite_Shutdown() FileDelete(@ScriptDir & "Test.db") Func _CreateDatabase() _SQLite_Exec(-1, "BEGIN;") _SQLite_Exec(-1, "CREATE TABLE Test ('Column1' TEXT, 'Column2' TEXT, 'Column3' TEXT);") _SQLite_Exec(-1, "INSERT INTO Test VALUES ('Test 1', 'Test 2', 'Test 3');") _SQLite_Exec(-1, "INSERT INTO Test VALUES ('Test 4', 'Test 5', 'Test 6');") _SQLite_Exec(-1, "UPDATE Test SET Column2 = 'Update Test' WHERE Column1 = 'Test 1';") _SQLite_Exec(-1, "COMMIT;") EndFunc ;==>_CreateDatabase
OS: Windows 7 - 64bit - Ultimate, AutoIt Version: 3.3.8.1, AutoIt Editor: SciTE, Website: http://www.funk.eu, My unsolved Questions: Get default Window Size and Position, Posted 20 February 2012 - 01:58 PM
Posted 20 February 2012 - 02:00 PM
New to me, I like it...in square brackets [column 1]
Func _CreateDatabase() _SQLite_Exec(-1, "BEGIN;") _SQLite_Exec(-1, "CREATE TABLE Test ([Column 1] TEXT, [Column 2] TEXT, [Column 3] TEXT);") _SQLite_Exec(-1, "INSERT INTO Test VALUES ('Test 1', 'Test 2', 'Test 3');") _SQLite_Exec(-1, "INSERT INTO Test VALUES ('Test 4', 'Test 5', 'Test 6');") _SQLite_Exec(-1, "UPDATE Test SET [Column 2] = 'Update Test' WHERE [Column 1] = 'Test 1';") _SQLite_Exec(-1, "COMMIT;") EndFunc ;==>_CreateDatabase
OS: Windows 7 - 64bit - Ultimate, AutoIt Version: 3.3.8.1, AutoIt Editor: SciTE, Website: http://www.funk.eu, My unsolved Questions: Get default Window Size and Position, Posted 20 February 2012 - 02:40 PM
#AutoIt3Wrapper_Au3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7 #include <array.au3> #include <SQLite.au3> #NoTrayIcon _SQLite_Startup() If @error Then Exit _SQLite_Open("Test.db") If @error Then Exit _CreateDatabase() ; Query Global $aResult, $iRows, $iColumns, $iRval $iRval = _SQLite_GetTable2d(-1, "SELECT * FROM Test;", $aResult, $iRows, $iColumns) If $iRval = $SQLITE_OK Then _ArrayDisplay($aResult) Else MsgBox(16, "SQLite Error: " & $iRval, _SQLite_ErrMsg()) EndIf _SQLite_Close() _SQLite_Shutdown() FileDelete(@ScriptDir & "Test.db") Func _CreateDatabase() _SQLite_Exec(-1, "BEGIN;") _SQLite_Exec(-1, "CREATE TABLE Test ([Column 1] TEXT UNIQUE, [Column 2] TEXT UNIQUE, [Column 3] TEXT UNIQUE);") _SQLite_Exec(-1, "INSERT INTO Test VALUES ('Test 1', 'Test 2', 'Test 3');") _SQLite_Exec(-1, "INSERT INTO Test VALUES ('Test 4', 'Test 5', 'Test 6');") _SQLite_Exec(-1, "INSERT INTO Test VALUES ('Test 1', 'Test 22', 'Test 33');") _SQLite_Exec(-1, "INSERT INTO Test VALUES ('Test 12', 'Test 2', 'Test 33');") _SQLite_Exec(-1, "INSERT INTO Test VALUES ('Test 32', 'Test 32', 'Test 3');") _SQLite_Exec(-1, "UPDATE Test SET [Column 2] = 'Update Test' WHERE [Column 1] = 'Test 1';") _SQLite_Exec(-1, "COMMIT;") EndFunc ;==>_CreateDatabase
OS: Windows 7 - 64bit - Ultimate, AutoIt Version: 3.3.8.1, AutoIt Editor: SciTE, Website: http://www.funk.eu, My unsolved Questions: Get default Window Size and Position, Posted 20 February 2012 - 02:50 PM
Posted 21 February 2012 - 02:43 PM
#AutoIt3Wrapper_Au3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7 #include "SQLite.au3" #NoTrayIcon _SQLite_Startup() If @error Then Exit OnAutoItExitRegister("_SQLite_Shutdown") Global $hDb = _SQLite_Open("TestAutoInc.db") If @error Then Exit OnAutoItExitRegister("_CloseAllDBs") _CreateDatabase($hDb) _LoadDB($hDb) Func _CloseAllDBs() _SQLite_Close($hDb) EndFunc Func _LoadDb($hDb) Local $s_ID = "A'A" _SQLite_Exec($hDb, "BEGIN;") _SQLite_Exec($hDb, "INSERT INTO Test (id) VALUES (" & X($s_ID) & ");") _SQLite_Exec($hDb, "INSERT INTO Test (id) VALUES (" & X($s_ID) & ");") _SQLite_Exec($hDb, "INSERT INTO Test (id) VALUES (" & X('why not ?') & ");") _SQLite_Exec($hDb, "INSERT INTO Test (id) VALUES (" & X($s_ID) & ");") _SQLite_Exec($hDb, "INSERT INTO Test (id) VALUES (" & X('Something else') & ");") _SQLite_Exec($hDb, "INSERT INTO Test (id) VALUES (" & X($s_ID) & ");") _SQLite_Exec($hDb, "COMMIT;") EndFunc Func X($s) Return("'" & StringReplace($s, "'", "''") & "'") EndFunc Func _CreateDatabase($hDb) _SQLite_Exec($hDb, "CREATE TABLE if not exists Test (" & _ " ID CHAR NOT NULL, " & _ " Counter INTEGER DEFAULT 1, " & _ " CONSTRAINT pk PRIMARY KEY (ID COLLATE NOCASE) ON CONFLICT IGNORE" & _ ");" & _ "CREATE TRIGGER if not exists trIncOccurCount BEFORE INSERT ON Test " & _ "WHEN exists (select 1 from Test where id = new.id) " & _ "BEGIN " & _ " update Test set counter = counter + 1 where id = new.id; " & _ "END;") ; deal with (unlikely) errors here EndFunc
Posted 22 February 2012 - 07:21 AM
Posted 22 February 2012 - 08:07 AM
Posted 22 February 2012 - 08:39 AM
OS: Windows 7 - 64bit - Ultimate, AutoIt Version: 3.3.8.1, AutoIt Editor: SciTE, Website: http://www.funk.eu, My unsolved Questions: Get default Window Size and Position, Posted 22 February 2012 - 09:54 AM
Posted 22 February 2012 - 10:56 AM
What do you main? ... Or did you switch ANSI for ASCII? As ASCII is the lower subset of ANSI.... and caseless for lower ASCII only)
Posted 22 February 2012 - 11:39 AM
Posted 22 February 2012 - 12:32 PM
o.ONo, things are clear to me but too many people confuse ASCII and ANSI so that I rather restrict this way.
Edited by MvGulik, 22 February 2012 - 12:34 PM.
Posted 22 February 2012 - 12:48 PM
OS: Windows 7 - 64bit - Ultimate, AutoIt Version: 3.3.8.1, AutoIt Editor: SciTE, Website: http://www.funk.eu, My unsolved Questions: Get default Window Size and Position, Posted 22 February 2012 - 01:24 PM
0 members, 0 guests, 0 anonymous users