1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
|
req = "select t1.d1, t2.d2 from t1 left join t2 on t1.id=t2.id2 where t2.numero = " & "'" & cmb_B.Text & "'"
consulterBD(req)
While dr.Read
T_date_b.Text = If(dr.IsDBNull(1), " ", CType(dr.GetDateTime(1), String))
date_b_maj = If(dr.IsDBNull(1), Nothing, dr.GetDateTime(1))
T_montant_b.Text = If(dr.IsDBNull(2), " ", CType(dr.GetValue(2), String))
montant_maj = If(dr.IsDBNull(2), Nothing, dr.GetValue(2))
'T_acheteur.Text = If(dr.IsDBNull(9), " ", dr.GetString(9))
acheteur_maj = If(dr.IsDBNull(9), " ", dr.GetString(9))
End While
dr.Close()
'MsgBox(acheteur_maj)
'affichage des données
T_date_b.Text = If(date_bc_maj = Nothing, " ", CType(date_b_maj, String))
T_montant_b.Text = If(montant_maj = Nothing, " ", CType(montant_maj, String))
'acheteur
req = "select contact from Acheteur"
consulterBD(req)
While dr.Read
cmb_acheteur.Items.Add(dr.GetString(0))
End While
dr.Close()
cmb_acheteur.SelectedItem = acheteur_maj |
Partager