[R] SQLITE récupération d'un select

[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.

► 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

[jchd]

Tu gères mal la fermeture de la connexion et de la base. Tu ne devrais le faire qu'à la fin du programme.
Laisse les hQuery de côté.
Le type de l'ID pourrait être INTEGER et non INT.

[Bayo]

oops j'avais mis la fermeture de la base en haut car mon script planté, je l'ai édité.

quel est la différence entre INT et INTEGER, c'est pas pareil?

En faite ça marche mais ça me l'affiche dans les log de Scite comment faire pour exploiter les données du Select?

Merci

[jchd]

integer est préférable pour une ID en clé primaire.

Sinon il te suffit d'exploiter le tableau que tu as appelé $hQuery et qui pourrait plutôt s'appeler $aRows.

[Bayo]

Ok c'est bon, j'avais déjà fait ça mais j'avais dû faire les tests avec la fermeture de la base au mauvais endroit. merci. du coup ça donne ça.

► 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, $aRows,$iRows,$iColumns
_SQLite_Startup()
_SQLite_Open(@ScriptDir & "\lexique.sqlite")

_SQLite_Exec(-1, 'CREATE TABLE IF NOT EXISTS frjap(id INT 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

_SQLite_Close()
_SQLite_Shutdown()
Exit
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 '"&$lettre&"%';",$aRows,$iRows,$iColumns)
_ArrayDisplay($aRows)


EndSwitch
WEnd