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
| If txtNumTiers.Text <> "" Then
Dim cmdRechTiers As New SqlCommand("sprechtiersid", cnx)
cmdRechTiers.CommandType = CommandType.StoredProcedure
cmdRechTiers.Parameters.Add("@idtiers", SqlDbType.Int).Value = Me.txtNumTiers.Text
da_tiers = New SqlDataAdapter(cmdRechTiers)
ds_tiers.Clear()
da_tiers.Fill(ds_tiers, "sprechtiersid")
dt_tiers = ds_tiers.Tables(0)
Else
Dim cmdRechTiers As New SqlCommand("sprechtiersnom", cnx)
cmdRechTiers.CommandType = CommandType.StoredProcedure
cmdRechTiers.Parameters.Add("@tanom", SqlDbType.VarChar).Value = Me.txtNomTiers.Text
cmdRechTiers.Parameters.Add("@tatel", SqlDbType.VarChar).Value = Me.txtTelTiers.Text
cmdRechTiers.Parameters.Add("@tacodepost", SqlDbType.VarChar).Value = Me.txtCpTiers.Text
cmdRechTiers.Parameters.Add("@talocalite", SqlDbType.VarChar).Value = Me.txtLocaliteTiers.Text
da_tiers = New SqlDataAdapter(cmdRechTiers)
ds_tiers.Clear()
da_tiers.Fill(ds_tiers, "sprechtiersnom")
dt_tiers = ds_tiers.Tables(0)
End If
Me.Close()
frmListeTiers.Show()
frmListeTiers.dgvTiers.DataSource = dt_tiers |
Partager