[R] SQLITE récupération d'un select
Posté : jeu. 03 juil. 2014 16:11
par Bayo
Bonjour,
j'ai un petit souci sur une requête SQLITE pour la récupération d'un Select, j'ai essayé plusieurs solutions entre le _SQLite_GetTable2d et le _SQLite_Query mais je n'y arrive pas, voici mon début de code.
Merci de votre aide.
j'ai un petit souci sur une requête SQLITE pour la récupération d'un Select, j'ai essayé plusieurs solutions entre le _SQLite_GetTable2d et le _SQLite_Query mais je n'y arrive pas, voici mon début de code.
Merci de votre aide.
► Afficher le texte
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <MsgBoxConstants.au3>
Const $dimbouton = 20
Const $topbouton = 56
#Region ### START Koda GUI section ### Form=
Global $lexique = GUICreate("Lexique", 580, 622, 495, 306)
Global $a = GUICtrlCreateButton("A", 30, $topbouton, $dimbouton, $dimbouton)
Global $b = GUICtrlCreateButton("B", 50, $topbouton, $dimbouton, $dimbouton)
Global $c = GUICtrlCreateButton("C", 70, $topbouton, $dimbouton, $dimbouton)
Global $d = GUICtrlCreateButton("D", 90, $topbouton, $dimbouton, $dimbouton)
Global $e = GUICtrlCreateButton("E", 110, $topbouton, $dimbouton, $dimbouton)
Global $f = GUICtrlCreateButton("F", 130, $topbouton, $dimbouton, $dimbouton)
Global $g = GUICtrlCreateButton("G", 150, $topbouton, $dimbouton, $dimbouton)
Global $h = GUICtrlCreateButton("H", 170, $topbouton, $dimbouton, $dimbouton)
Global $i = GUICtrlCreateButton("I", 190, $topbouton, $dimbouton, $dimbouton)
Global $j = GUICtrlCreateButton("J", 210, $topbouton, $dimbouton, $dimbouton)
Global $k = GUICtrlCreateButton("K", 230, $topbouton, $dimbouton, $dimbouton)
Global $l = GUICtrlCreateButton("L", 250, $topbouton, $dimbouton, $dimbouton)
Global $m = GUICtrlCreateButton("M", 270, $topbouton, $dimbouton, $dimbouton)
Global $n = GUICtrlCreateButton("N", 290, $topbouton, $dimbouton, $dimbouton)
Global $o = GUICtrlCreateButton("O", 310, $topbouton, $dimbouton, $dimbouton)
Global $p = GUICtrlCreateButton("P", 330, $topbouton, $dimbouton, $dimbouton)
Global $q = GUICtrlCreateButton("Q", 350, $topbouton, $dimbouton, $dimbouton)
Global $r = GUICtrlCreateButton("R", 370, $topbouton, $dimbouton, $dimbouton)
Global $s = GUICtrlCreateButton("S", 390, $topbouton, $dimbouton, $dimbouton)
Global $t = GUICtrlCreateButton("T", 410, $topbouton, $dimbouton, $dimbouton)
Global $u = GUICtrlCreateButton("U", 430, $topbouton, $dimbouton, $dimbouton)
Global $v = GUICtrlCreateButton("V", 450, $topbouton, $dimbouton, $dimbouton)
Global $w = GUICtrlCreateButton("W", 470, $topbouton, $dimbouton, $dimbouton)
Global $x = GUICtrlCreateButton("X", 490, $topbouton, $dimbouton, $dimbouton)
Global $y = GUICtrlCreateButton("Y", 510, $topbouton, $dimbouton, $dimbouton)
Global $z = GUICtrlCreateButton("Z", 530, $topbouton, $dimbouton, $dimbouton)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $hQuery, $aRow,$iRows,$iColumns
_SQLite_Startup()
_SQLite_Open(@ScriptDir & "\lexique.sqlite")
_SQLite_Exec(-1, 'CREATE TABLE IF NOT EXISTS frjap(id INTEGER NOT NULL, motfr TEXT, motjap TEXT, type TEXT, complement TEXT);')
_SQLite_Exec(-1, 'INSERT INTO frjap VALUES (1,"rouge","aka ","adjectif","couleur");')
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
_SQLite_Close()
_SQLite_Shutdown()
Case $a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k,$l,$m,$n,$o,$p,$q,$r,$r,$s,$t,$u,$v,$w,$x,$y,$z
$lettre=_GUICtrlButton_GetText($nMsg)
_SQLite_GetTable2d(-1, "SELECT motfr,motjap FROM frjap WHERE motjap LIKE 'a%';",$hQuery,$iRows,$iColumns)
_SQLite_Display2DResult($hQuery)
EndSwitch
WEnd
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <MsgBoxConstants.au3>
Const $dimbouton = 20
Const $topbouton = 56
#Region ### START Koda GUI section ### Form=
Global $lexique = GUICreate("Lexique", 580, 622, 495, 306)
Global $a = GUICtrlCreateButton("A", 30, $topbouton, $dimbouton, $dimbouton)
Global $b = GUICtrlCreateButton("B", 50, $topbouton, $dimbouton, $dimbouton)
Global $c = GUICtrlCreateButton("C", 70, $topbouton, $dimbouton, $dimbouton)
Global $d = GUICtrlCreateButton("D", 90, $topbouton, $dimbouton, $dimbouton)
Global $e = GUICtrlCreateButton("E", 110, $topbouton, $dimbouton, $dimbouton)
Global $f = GUICtrlCreateButton("F", 130, $topbouton, $dimbouton, $dimbouton)
Global $g = GUICtrlCreateButton("G", 150, $topbouton, $dimbouton, $dimbouton)
Global $h = GUICtrlCreateButton("H", 170, $topbouton, $dimbouton, $dimbouton)
Global $i = GUICtrlCreateButton("I", 190, $topbouton, $dimbouton, $dimbouton)
Global $j = GUICtrlCreateButton("J", 210, $topbouton, $dimbouton, $dimbouton)
Global $k = GUICtrlCreateButton("K", 230, $topbouton, $dimbouton, $dimbouton)
Global $l = GUICtrlCreateButton("L", 250, $topbouton, $dimbouton, $dimbouton)
Global $m = GUICtrlCreateButton("M", 270, $topbouton, $dimbouton, $dimbouton)
Global $n = GUICtrlCreateButton("N", 290, $topbouton, $dimbouton, $dimbouton)
Global $o = GUICtrlCreateButton("O", 310, $topbouton, $dimbouton, $dimbouton)
Global $p = GUICtrlCreateButton("P", 330, $topbouton, $dimbouton, $dimbouton)
Global $q = GUICtrlCreateButton("Q", 350, $topbouton, $dimbouton, $dimbouton)
Global $r = GUICtrlCreateButton("R", 370, $topbouton, $dimbouton, $dimbouton)
Global $s = GUICtrlCreateButton("S", 390, $topbouton, $dimbouton, $dimbouton)
Global $t = GUICtrlCreateButton("T", 410, $topbouton, $dimbouton, $dimbouton)
Global $u = GUICtrlCreateButton("U", 430, $topbouton, $dimbouton, $dimbouton)
Global $v = GUICtrlCreateButton("V", 450, $topbouton, $dimbouton, $dimbouton)
Global $w = GUICtrlCreateButton("W", 470, $topbouton, $dimbouton, $dimbouton)
Global $x = GUICtrlCreateButton("X", 490, $topbouton, $dimbouton, $dimbouton)
Global $y = GUICtrlCreateButton("Y", 510, $topbouton, $dimbouton, $dimbouton)
Global $z = GUICtrlCreateButton("Z", 530, $topbouton, $dimbouton, $dimbouton)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $hQuery, $aRow,$iRows,$iColumns
_SQLite_Startup()
_SQLite_Open(@ScriptDir & "\lexique.sqlite")
_SQLite_Exec(-1, 'CREATE TABLE IF NOT EXISTS frjap(id INTEGER NOT NULL, motfr TEXT, motjap TEXT, type TEXT, complement TEXT);')
_SQLite_Exec(-1, 'INSERT INTO frjap VALUES (1,"rouge","aka ","adjectif","couleur");')
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
_SQLite_Close()
_SQLite_Shutdown()
Case $a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k,$l,$m,$n,$o,$p,$q,$r,$r,$s,$t,$u,$v,$w,$x,$y,$z
$lettre=_GUICtrlButton_GetText($nMsg)
_SQLite_GetTable2d(-1, "SELECT motfr,motjap FROM frjap WHERE motjap LIKE 'a%';",$hQuery,$iRows,$iColumns)
_SQLite_Display2DResult($hQuery)
EndSwitch
WEnd