Discussion :

[tssi555]

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.

[mounir_hm]

au lieu de mettre
If txtNumTiers.Text <> "" Then
essaie

If txtNumTiers.Text Is Nothing Then

[tssi555]

Merci pour ta réponse.
Ca revient au même..., enfin bon, ca ne change rien.

[Danyel]

au lieu de mettre
If txtNumTiers.Text <> "" Then
essaie
If txtNumTiers.Text Is Nothing Then

Ceci n'est pas exact, il vaut mieux utiliser le "" car le nothing est pour les objet et non pour des valeurs de propriete.
Il y a qq mois, nous avons eu un grand debat à ce sujet.