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