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 |