Bonjour à tous
Voila je bloque sur ce qui suit
La requette doit permettre de lire la qte de produits et avec myreader3 je cherche a recupérer le total qte
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
Merci de me donner une piste, je continue.
@+
Philippe
Partager