#include <sqlite.au3>
#include <array.au3>
Global $hQuery, $aR, $iRows, $iColumns, $aResult
Dim $left[2], $right[2]
GUICreate('', 1200, 300)
$left_lv = GUICtrlCreateListView('клиент|адрес', 10, 10, 550, 280)
$right_lv = GUICtrlCreateListView('дата приёма|полученная сумма', 570, 10, 550, 280)
_SQLite_Startup()
_SQLite_Open('clients.db')
_SQLite_Exec(-1, "CREATE TABLE IF NOT EXISTS clients (name, adress, date_adopted, summ);")
_SQLite_Exec(-1, "INSERT INTO clients VALUES ('Вася Пупкин','Воронеж ул.Лизюкова д.20','01.04.2009','миллион');")
_SQLite_Exec(-1, "INSERT INTO clients VALUES ('Анна Каренина','Питер Невкий проспект д.16','09.06.1860','1000');")
$result = _SQLite_GetTable(-1, "SELECT name, adress FROM clients;", $left, $iRows, $iColumns)
;~ _ArrayDisplay($left)
For $i = 3 To UBound($left) - 1 Step 2
GUICtrlCreateListViewItem($left[$i] & '|' & $left[$i+1], $left_lv)
Next
$result_2 = _SQLite_GetTable(-1, "SELECT date_adopted, summ FROM clients;", $right, $iRows, $iColumns)
;~ _ArrayDisplay($right)
For $i = 3 To UBound($right) - 1 Step 2
GUICtrlCreateListViewItem($right[$i] & '|' & $right[$i+1], $right_lv)
Next
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = -3
Exit
EndSelect
WEnd