VB6 et requête SQL

**sperrel** · 14/02/2013, 13h41

Bonjour tout le monde,

j'ai un soucis de débutant qu doit griller les étapes. J'ai besoin d'interroger une base Access 2003. Je suis arrivé à faire la connexion. J'ai le retour d'une requête simple.
strMinJpH = "SELECT DISTINCT * FROM pH WHERE Date =#1/20/2013#"est OK au niveau Label1.Caption = oRst!Val_pH
Mais quand je remplace par la requête qui m'intéresse erreur
strMinJpH = "SELECT MIN(pH.Val_pH) AS Expr1 From pH WHERE (((pH.Date)>#1/19/2013# And (pH.Date)<#1/21/2013#));
Bien sur ce que je cherche c'est à obtenir la valeur minimum d'une colonne entre 2 dates. Et là j'ai une erreur au mieux 3625 au pire 450

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub Form_Load()
  ' Initialisation de la chaîne de connexion
    'Définition de la chaîne de connexion
    strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Hydroguard\Hydroguard.mdb;"
 
    Set oCon = New Connection
    Call oCon.Open(strConnect)
 
    'Préparation des requêtes SQL pour la récupération des valeurs Min, Max et Moyenne des dernières 24H pour le pH et la Conductimètrie
   ' Si cette ligne est active pas d'erreur strMinJpH = "SELECT DISTINCT * FROM pH WHERE Date =#1/20/2013#"
    'mais avec celle d'en dessous erreur 3625
     strMinJpH = "SELECT MIN(pH.Val_pH) AS Expr1 From pH WHERE (((pH.Date)>#1/19/2013# And (pH.Date)<#1/21/2013#));"
 
 
    Set oRst = New Recordset
 
 
    Call oRst.Open(strMinJpH, oCon, adOpenForwardOnly, adLockReadOnly, adCmdText)
    ' Bouclage sur le recordset
 
 
    'On Error Resume Next
 
   Do While Not oRst.EOF
 
        'TempA.Caption = oRst!Temperature
        MsgBox (strMinJpH)
        Label1.Caption = oRst!Val_pH
        Label2.Caption = oRst!Val_pH
        'MsgBox (oRst!Temperature)
        oRst.MoveNext
    Loop
 
    ' Fermeture propre des connexions et destruction des objets
 
 
    oRst.Close
    Set oRst = Nothing
 
    oCon.Close
    Set oCon = Nothing
 
 
End Sub

Je vous remercie par avance de votre aide