Récuperer valeur SQL et lui ajouter un entier

Version imprimable

30/09/2007, 15h15
GrooveRage

Récuperer valeur SQL et lui ajouter un entier

Bonjour,

J'ai une base de donnée access, je souhaite récuperer la valeur maximale et lui ajouter une valeur choisit par mes soins dans un formulaire et lorque l'on fait validé, cela crée une nouvelle entrée dans la base avec dans un des attributs cette valeur auto modifié.

Je ne sais pas si je suis très clair, donc voici un exemple.
Je récupère en SQL la valeur 3520 dans ma base de donnée access, je veux afficher non pas 3520 dans ma liste qui affiche le résultat, mais 3530.

Donc j'arrive a afficher 3520, mais pas à augmenter cette valeur.

Voila, ne sachant comment faire, j'espere que vous pourrez m'aider.

Merci
30/09/2007, 18h32
Invité

Bonjour

Peux-tu nous mettre le code que tu utilises pour récupérer la valeur, et en théorie 3520 + 10 = 3530, je ne vois vraiment pas quel est ton soucis.

Starec

Code:

1
2
 
alter table matable alter column monchamp counter(3520,10);

C'est bon, j'ai trouvé !
Comme je ne connais pas trop visual basic, j'ai eut un peu de mal mais c'est bon.
Voici mon code qui fonctionne :D

Code:

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
 
    Dim val As String
    Dim rst As DAO.Recordset
    Dim tmp As Integer
 
    tmp = 1
 
    ' On selectionne tous les numeros d'ordre de la table bilans '
    Set rst = CurrentDb.OpenRecordset("SELECT N°Ordre FROM Bilans")
 
    'On parcours l'ensemble d'enregistrement de la requete effectuée,
    'de maniere a trouver le plus grand.
 
    rst.MoveFirst
    While Not rst.EOF
        If rst!N°Ordre > tmp Then
            tmp = rst!N°Ordre
        End If
        rst.MoveNext
    Wend
 
    'On a trouve le plus grand, on l'incremente donc de 10.
    tmp = tmp + 10
 
    'On affiche cette valeur dans la liste de resultat lstOrdre.
    Me.lstOrdre.RowSource = CStr(tmp)
 
    rst.Close

Merci pour vos réponses !