Skysnake at 10:30, 24 August 2015

2015-08-24T10:30:55Z

← Older revision		Revision as of 10:30, 24 August 2015
Line 1:		Line 1:
	~~(work in progress)~~

	Example of a typical READ MODIFY WRITE cycle using SQLite, Array and Combo.		Example of a typical READ MODIFY WRITE cycle using SQLite, Array and Combo.

Skysnake at 10:28, 18 August 2015

2015-08-18T10:28:22Z

← Older revision		Revision as of 10:28, 18 August 2015
Line 10:		Line 10:
	AutoIt Version: 3.3.14.1		AutoIt Version: 3.3.14.1
	Author: kylomas		Author: kylomas
			Edit: Skysnake

	Script Function:		Script Function:

Skysnake: Created page with "(work in progress) Example of a typical READ MODIFY WRITE cycle using SQLite, Array and Combo. The code below creates a small SQLite database, queries the content, populat..."

2015-08-18T10:14:37Z

Created page with "(work in progress) Example of a typical READ MODIFY WRITE cycle using SQLite, Array and Combo. The code below creates a small SQLite database, queries the content, populat..."

New page

(work in progress)

Example of a typical READ MODIFY WRITE cycle using SQLite, Array and Combo.

The code below creates a small SQLite database, queries the content, populates a Combo box, allows edit in the combo and then updates the SQLite db. Note that the SQLite rowid is stored in the array, but not displayed in the combo.

<syntaxhighlight lang='autoit'>
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.14.1
Author: kylomas

Script Function:
Example AutoIt script.
Read SQLite database to Array
Populate Combo with Array
Modify Combo data
Write to SQLite db
Note that the SQLite rowid is stored in the Array but not displayed in the combo

#ce ----------------------------------------------------------------------------

#include <GUIConstantsEx.au3>
#include <array.au3>
#include <sqlite.au3>
#include <GuiComboBox.au3>

#AutoIt3Wrapper_Add_Constants=n

_SQLite_Startup()
_SQLite_Open("sql2combo.db3")

Local $sql, $aRows, $iCols, $iRows, $LastSelected
$sql = 'create table T1 (Fname, MI, Lname);'
$sql &= 'insert into T1 values("Thomas","R","Jones");'
$sql &= 'insert into T1 values("William","X","Smith");'
$sql &= 'insert into T1 values("James","T","Kirk");'
$sql &= 'insert into T1 values("Rastus","P","Badass");'
$sql &= 'insert into T1 values("John","R","Prince");'
$sql &= 'insert into T1 values("Harry","X","Jackson");'
$sql &= 'insert into T1 values("Dick","T","Mitchell");'
$sql &= 'insert into T1 values("Tom","P","Camden");'
_SQLite_Exec(-1, $sql)

Local $gui010 = GUICreate('SQLite _rowid_ Example')
GUICtrlCreateLabel('Middle Initial', 140, 15, 100, 20)
Local $cMI = GUICtrlCreateCombo('', 140, 30, 100, 50)
Local $dummyenter = GUICtrlCreateDummy()
GUICtrlCreateLabel('Hit [ENTER] to update DB entry', 110, 70, 200, 20)

_pop_combo()

GUISetState()

Local $aAcKeys[1][2] = [["{Enter}", $dummyenter]]
GUISetAccelerators($aAcKeys)

While 1
Switch GUIGetMsg()
Case $gui_event_close
Exit
Case $cMI
; add one to combo for SQL rowid
$LastSelected = _GUICtrlComboBox_GetCurSel($cMI)+1
ConsoleWrite("$LastSelected: " & $LastSelected & @CRLF)
;Local $showSelected=$LastSelected+1
Case $dummyenter
If $LastSelected = '' Then ContinueLoop
ConsoleWrite("SQL Row: " & $aRows[$LastSelected][0] & @CRLF)
_SQLite_Exec(-1, 'update T1 set MI = ' & _SQLite_FastEscape(GUICtrlRead($cMI)) & ' where _rowid_ = ' & $aRows[$LastSelected][0] & ';')
_pop_combo()
EndSwitch
WEnd

Func _pop_combo()

_SQLite_GetTable2d(-1, 'select _rowid_, MI, * from T1 order by MI limit 5', $aRows, $iRows, $iCols)

_arraydisplay($aRows)
ConsoleWrite(_ArrayToString($aRows) & @CRLF)

Local $str = '|'

For $i = 1 To UBound($aRows) - 1
$str &= $aRows[$i][1] & '|'
Next
GUICtrlSetData($cMI, $str, $aRows[1][1])

$LastSelected = ''

EndFunc ;==>_pop_combo
</syntaxhighlight>

Snippets ( Combo ) - Revision history

Skysnake at 10:30, 24 August 2015

Skysnake at 10:28, 18 August 2015

Skysnake: Created page with "(work in progress) Example of a typical READ MODIFY WRITE cycle using SQLite, Array and Combo. The code below creates a small SQLite database, queries the content, populat..."