type de variable

Version imprimable

type de variable

bonjour tt le monde

comment se fait il que vb6 me fait une concaténation au lieu d'afficher les chiffres correctement ? la valeur qui doit être 360.000
a la place, il m'affiche 360205 (205 qui est la valeur de x que j'entre dans l'inputbox)

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
 
Option Explicit
 
Sub main()
Dim x As Long
x = InputBox("valeur x")
Dim db As Database
Dim record As Recordset
Dim list As ListItem
Dim Montant As Long
Dim s As String
s = "SELECT  [COMMANDER].[QTE],[ARTICLE].[PU],[BON_DE_COMMANDE].[NUM_BC] FROM ARTICLE,COMMANDER,[BON_DE_COMMANDE] WHERE [ARTICLE].[REF_ART] = [COMMANDER].[REF_ART] AND [BON_DE_COMMANDE].[NUM_BC] = [COMMANDER].[NUM_BC] AND [BON_DE_COMMANDE].[NUM_BC] like " & x & ""
Set db = OpenDatabase(App.Path & "\Base de données\Base.mdb")
Set record = db.OpenRecordset(s, dbOpenDynaset)
record.MoveFirst
While record.EOF = False
    Montant = (record.Fields(0) * record.Fields(1)) + ((record.Fields(0) * record.Fields(1)) * (20 / 100))
    x = x + Montant
    record.MoveNext
Wend
    MsgBox x
record.Close
db.Close
End Sub

merci d'avance

09/12/2015, 11h53
l_autodidacte

Les champs QTE et PU sont-il déclarés Numérique dans la base de données ?

Essaie avec

Code:

s = "SELECT [COMMANDER].[QTE],[ARTICLE].[PU],[BON_DE_COMMANDE].[NUM_BC] FROM ARTICLE,COMMANDER,[BON_DE_COMMANDE] WHERE [ARTICLE].[REF_ART] = [COMMANDER].[REF_ART] AND [BON_DE_COMMANDE].[NUM_BC] = [COMMANDER].[NUM_BC] AND [BON_DE_COMMANDE].[NUM_BC] like '%" & x & "%'"

en ajoutant '% avant x et %' après
09/12/2015, 13h25
carterjr

oui PU et QTE sont bien de type numérique

il m'affiche maintenant "aucun enregistrement en cours"

j'ai trouvé

j'ai essayer ceci et ça marche nickel

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
Option Explicit
Public Function NetaPayer(x As Variant)
Dim db As Database
Dim record As Recordset
Dim List As ListItem
Dim Montant As Long
Dim s As String
s = "SELECT [COMMANDER].[QTE],[ARTICLE].[PU],[BON_DE_COMMANDE].[NUM_BC] FROM ARTICLE,COMMANDER,[BON_DE_COMMANDE] WHERE [ARTICLE].[REF_ART] = [COMMANDER].[REF_ART] AND [BON_DE_COMMANDE].[NUM_BC] = [COMMANDER].[NUM_BC] AND [BON_DE_COMMANDE].[NUM_BC] like '" & x & "'"
Set db = OpenDatabase(App.Path & "\base.mdb")
Set record = db.OpenRecordset(s, dbOpenDynaset)
 If record.RecordCount = 0 Then
    x = 0
 Else
    x = 0
    record.MoveFirst
    While record.EOF = False
        Montant = ((record.Fields(0) * record.Fields(1)) + ((record.Fields(0) * record.Fields(1)) * (20 / 100)))
        x = x + Montant
        record.MoveNext
    Wend
End If
NetaPayer = x
record.Close
db.Close
End Function

encore merci