Discussion :

[kitcarflo]

Bonjour à tous, j'ai un petit soucis pour récupérer la valeur max d'une colonne dans une base de donnée. Je bug et ne trouve pas la solution, malgré l'aide microsoft et gooooooogooooole

le 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
Public Sub Recup_dernier_comune(ByRef SerieC)
 
Dim conna As New ADODB.Connection
Dim sqla1 As New ADODB.Command
Dim orsa1 As New ADODB.Recordset
 
conna.Provider = "Microsoft.Jet.OLEDB.4.0"
conna.ConnectionString = LienBDD_carte
conna.Open()
 
sqla1.ActiveConnection = conna
sqla1.CommandText = "SELECT MAX(Num_serie) FROM Info_general"
orsa1.Open(sqla1)
 
SerieC = orsa1("Num_serie").Value
 
orsa1.Close()
orsa1 = Nothing
sqla1 = Nothing
 
conna.Close()
conna = Nothing
 
End Sub

l’erreur se produit sur la ligne :

Code :

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

SerieC = orsa1("Num_serie").Value

ça me remonte :

Impossible de trouver l'objet dans la collection correspondant au nom ou à la référence ordinale demandé.

Si quelqu'un aurais la solution, je vous en remercie.

[Pol63]

il faut donner un alias à ton opérande max
orsa1("Num_serie") ici cette colonne n'existe pas dans le select car max(Num_serie) n'est pas Num_serie

pour Sql Server ça se fait SELECT MAX(Num_serie) as maxi FROM Info_general, (y a des chances que ca passe avec access)
et donc
orsa1("maxi")

[Phil Rob]

Bonjour,
Pol63 a raison, il te suffit ensuite de lire le champ résultat "maxi" pour avoir ce que tu cherches.
Tu peux aussi t'intéresser à ExecuteScalar, c'est fait pour ce type d'opération.
...

[kitcarflo]

Merci Pol63, ça marche super par contre ça me fait ..... parce que je pige pas pourquoi........ ça ne suis pas la logique du Select, Delete, Inser, me faut étudier ça.

En tout cas merci beaucoup.

PS,,, avez vous un lien avec toutes les possibilités pour les "select".... Max, Min, etc etc etc ???

[popo]

Une simple recherche Google : access select
Premiers liens :
https://support.microsoft.com/fr-fr/...0-bd1d19a5de91
https://docs.microsoft.com/fr-fr/off...oft-access-sql