Bonjour, j'ai un drôle de problème que je ne comprends vraiment pas.

J'ai deux procédures stockées (coté Sql Server).

En VB, je demande à mon programme d'executer telle partie selon l'état d'une zone de text (vide ou pas).

Ca se passe bien! ok, ce qui est bizare, c'est quand j'execute ce code pour la première fois, il donne le bon résultat, mais dès que je relance la form et j'essaie de rexecuter (il ne me donne aucun résultat), donc pour finir il execute une seule procédure stockée et ne peut prends pas en considération la condition que je lui pose.

Mon code est le suivant, si je me suis mal exprimé n'hésitez pas de me demander de reformuler mes phrases.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci de votre aide.