Récupérer la valeur d'une requete MAX() sous vb6

**levasseur62** · 03/04/2011, 12h28

Bonjour ,

je débute sous vb6, je n'arrive pas à récupérer la valeur d'une requete max(),
pour résumer je voudrais connaitre le numéro le plus grand (d'une colone ex:Numéro de réservation ) dans une table Réservation ;

mon code est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Dim db As DAO.Database
Set db = OpenDatabase("", dbDriverComplete, False, "ODBC;DSN=MYSQL;UID=root;PWD=;Database=campingabl")
Dim sql1, sql2, sql3, sql4, sql5 As String
Dim rs1, rs2, rs3, rs4, rs5 As DAO.Recordset
Dim cpt, n As Integer
 
sql2 = "SELECT MAX(NUMRES) FROM réservation"
Set rs2 = db.OpenRecordset(sql2)
Text1 = rs2("MAX(NUMRES)")

L'erreur est "Run time error '3265' élément non trouvé dans cette collection"

Ma base de données est MYSQL

Merci

**SfJ5Rpw8** · 03/04/2011, 12h34

sur qu'elle ligne l'erreur ? une des ligne en commentaire ?

MySQL accepte les nom de tables comprenant des accents

?

**levasseur62** · 03/04/2011, 13h40

vb6 me souligne en jaune cette ligne :

Text1 = rs2("NUMRES")

Oui je pense ne pas avoir eu de probleme,j'ai fais des requetes select et update et sa à l'air de marché, tu penserais que l'erreur viendrais de là?

**SfJ5Rpw8** · 03/04/2011, 13h54

Envoyé par levasseur62

vb6 me souligne en jaune cette ligne :

Text1 = rs2("NUMRES")....

je vois pas cette ligne dans ton code ..!

**levasseur62** · 03/04/2011, 14h17

Oups j'ai pas fais attention :/

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim db As DAO.Database
Set db = OpenDatabase("", dbDriverComplete, False, "ODBC;DSN=MYSQL;UID=root;PWD=;Database=campingabl")
Dim sql1, sql2, sql3, sql4, sql5 As String
Dim rs1, rs2, rs3, rs4, rs5 As DAO.Recordset
Dim cpt, n As Integer
 
sql2 = "SELECT MAX(NUMRES) FROM réservation"
Set rs2 = db.OpenRecordset(sql2)
Text1 = rs2("NUMRES")

**SfJ5Rpw8** · 03/04/2011, 14h30

insère les lignes suivantes avant la ligne qui te cause problème :

Code :

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

1
2
Debug.Print "[" & rst.Fields(0).Name & "]=" & rst.Fields(0)
Stop

puis regarde le résultat dans la fenêtre exécution CTRL+G

**levasseur62** · 03/04/2011, 14h41

il me souligne en jaune cette ligne :

Debug.Print "[" & rst.Fields(0).Name & "]=" & rst.Fields(0)

lorsque je fait CTRL + G : une fenêtre apparait,intitulé "Immediate" et il n'y a

rien du tout :/

**SfJ5Rpw8** · 03/04/2011, 14h47

j'ai oublié de changer rst par rs2.... pour l'adapter a ton code..

**levasseur62** · 03/04/2011, 14h57

il me souligne la ligne stop en jaune :

et j'obtiens ce message : [Expr1000]=14

**SfJ5Rpw8** · 03/04/2011, 15h07

Le Expr1000 c'est le nom qui est donné au champ résultant de ta requête de calcul par DAO... c'est pour cela que ton champ ["NUMRES"] est inaccessible car non présent dans la colonne.

utilise :

Code :

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