1 2 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