[R] Problème sur requête avec Access

[Hugues]

Bonjour à tous,

Je suis confronté à un petit problème de requête avec access.

Voici le code:

► Afficher le texte

Code : Tout sélectionner

Global $DBName = @ScriptDir & "\MDB.mdb"

Case $hWndListView2
        Switch $iCode
            Case $NM_CLICK
                _GUICtrlListView_DeleteAllItems($hWndListView3)
                $IndexItemListView2 = _GUICtrlListView_GetNextItem($hListView2) ; -> Numéro de ligne de la colonne
                $tblname = "MesurePoints" ; -> Nom de la Table
                $query = "SELECT * FROM " & $tblname & " WHERE Generation = " & "'" & _GUICtrlListView_GetItemText($hListView, $IndexItemListView) & "' And Station = '" & _GUICtrlListView_GetItemText($hListView2, $IndexItemListView2) & "'"
                ConsoleWrite($query & @CRLF)

                $adoCon = ObjCreate("ADODB.Connection")
                $adoCon.Open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & $dbname) ;Use this line if using MS Access 2003 and lower
                ;$adoCon.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $dbname) ;Use this line if using MS Access 2007 and using the .accdb file extension
                $adoRs = ObjCreate("ADODB.Recordset")
                $adoRs.Open($query, $adoCon)

            Do
                _GUICtrlListView_AddItem($hListView3, $adoRs.Fields("Mesure").value, 0)
                $adoRs.MoveNext
            Until $adoRs.EOF

            $adoCon.Close
        EndSwitch
 

Il me met l'erreur suivante:

Code : Tout sélectionner

U:\Developpement\_AutoIt\_AutoItBestApp\Essai1\MyApp.au3 (155) : ==> The requested action with this object has failed.:
$adoRs.Open($query, $adoCon)
$adoRs.Open($query, $adoCon)^ ERROR

Si quelqu'un a une idée? J'ai pourtant l'habitude avec Excel mais AutoIt...

Merci par avance.

[Hugues]

Bizarre, si j'enlève

Code : Tout sélectionner

And Station = '" & _GUICtrlListView_GetItemText($hListView2, $IndexItemListView2) & "'"

J'ai plus l'erreur de connexion, mais ma requête n'est pas bonne ^^

[jchd]

Ce qui pourrait aider, c'est le résultat de cette instruction :

Code : Tout sélectionner

ConsoleWrite($query & @CRLF)

[Hugues]

Bin pourtant il me met bien une requête qui me semble correcte... comme suit (toto et tata étant les valeur de mes listview)

SELECT * FROM matable WHERE Generation = 'toto' And Station = 'tata'

[Hugues]

Et j'ai essayé de rajouter ";" à la fin de ma requete... idem...
Ca doit venir de mon code pour le "AND...."

[jchd]

Et tu as vraiment des colonnes de ce nom dans ta base ?

Sinon mets en place un gestionnaire d'erreurs COM.

[Hugues]

Oui, dans ma table j'ai 4 colonnes nommée Generation, Station , Mesure et Etape...

Ma requête ne fonctionne que si je fais une demande sur 1 colonne... par sur 2 voir plus...

[Hugues]

Je viens de trouver...

En fait ma table station était déclarée en numérique... Je l'ai déclarée en texte et... ca fonctionne...

Merci de ton aide!