Discussion :

[philguio]

Bonjour à tous
Voila je bloque sur ce qui suit

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
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'strid1 = Mid(Me.Combofour.Text, 1, 5)
        Dim MyConnexion3 As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Application.StartupPath & "\Pharmacie_seniors.mdb;Jet OLEDB:Database Password=philguio;")
        Dim Mycommand3 As OleDbCommand = MyConnexion3.CreateCommand()
        Dim qté As String
        Dim nomproduit As String
        nomproduit = Me.ComboBox1.SelectedItem
        Me.TextBox4.Text = nomproduit
        Mycommand3.CommandText = "SELECT sum(qtecom) as qte FROM T_COMMANDE WHERE nomprod = '" & nomproduit & "'"
 
        MyConnexion3.Open()
        Dim myReader3 As OleDbDataReader = Mycommand3.ExecuteReader()
 
 
        qté = myReader3.GetString(0)
        Me.TextBox1.Text = qté
 
 
        myReader3.Close()
 
        MyConnexion3.Close()
    End Sub

La requette doit permettre de lire la qte de produits et avec myreader3 je cherche a recupérer le total qte

Merci de me donner une piste, je continue.

@+
Philippe

[olsimare]

Bonjour.

Il faut faire un :

Code :

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

1
2
 
myReader3.read

Soit dit en passant, pour récupérer une somme, faut mieux utiliser :

Code :

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

1
2
 
qté = Mycommand3.ExecuteScalar

En ajoutant un coalesce dans la requête pour pas planter quand elle ne renvoie rien.

Cdt.

[philguio]

Bonjour
Merci pour la réponse je regarde ça
@+
Philippe

[philguio]

Merci pour ton aide ça marche SUPER
@+
Philippe