| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 
 |  
            con.Open()
            Dim cm As SqlCommand
            cm.Connection = con
            'cm.CommandType = CommandType.Text
            Dim req = "select  distinct commandes.n_commande,commandes.n_commandeINT,commandes.date_commande,commandes.code_commercial,commandes.code_client,commandes.n_dépôt,détails_commandes.code_produit,détails_commandes.quantité_commandée,détails_commandes.prix_unitaire,détails_commandes.total_prix from commandes inner join détails_commandes on commandes.n_commande=détails_commandes.num_commande where commandes.n_commande= " & txt1.Text & " "
            cm = New SqlCommand(req)
            Dim d1 As SqlDataReader
            d1 = cm.ExecuteReader
            While d1.Read
                txt_1.Text = d1.Item(0)
                t1.Text = d1.Item(1)
                t2.Text = d1.Item(2)
                T4.Text = d1.Item(3)
                T5.Text = d1.Item(4)
                cbo1.SelectedValue = d1.Item(5)
                T7.Text = d1.Item(6)
                T8.Text = d1.Item(7)
                T9.Text = d1.Item(8)
                T3.Text = d1.Item(9)
            End While
 
            d1.Close()
            con.Close() | 
Partager