Discussion :

[MoMeBe]

Bonjour tous le monde et surtout qui sont en veille comme moi.

J'ai fais un grand pas dans mon prg (Ajout, Suppression, Modification) et cela grâce a ce forum. il me reste que le procédure de recherche sur 1 critère ("CIN") puis sur 3 critères différents (exemple: "CIN" seul ou "CIN" et "CNRPS" ou "CIN" et "CNRPS" et 'ASSURANCE" sont tous de type Réel Double).

voici mon code de suppression pour donner une idee sur ma connexion a la base et ce qui suit ...

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
 Cn.Open() 'Ouvrir la connexion 
        If Cn.State = ConnectionState.Open Then 'Vérifier si la connexion est faite
            ' MsgBox("La connexion est établit.", 0 + 64, " Réussi") 'Message en cas connexion 
            Cmd.CommandText = "Delete From  TPersonnels where CIN = " & Val(TxTCIN.Text) & ""
            Cmd.Connection = Cn
            Cmd.ExecuteNonQuery()
            TxTCIN.Text = ""
            TxTCNRPS.Text = ""
            TxTAssurance.Text = ""
            TxTGroupe.Text = ""
                        Cn.Close() 'Fermeture de la connexion
            Afficher1()
            MsgBox("Enregistrement Supprimer", 0 + 64, "Réussi")
        Else
            MsgBox("La connexion a échoué. Vérifier la connexion réseau ou l’existence de la base", 0 + 16, " Échec") 'Message en cas d’échec
            Cn.Close() 'Fermeture de la connexion
        End If

ainsi je cherche un aide pour la recherche si cet ouvrier existe ou non lors de sa création ou lors du suppression.

je sais que c'est du gâteau pour vous. merci comme même.

[asmduty]

Bonjour,

Il faudrait penser à utiliser des requêtes paramétrées, ça simplifierait les choses, ça serait plus propre, etc.

En dehors de ça je ne vois pas ce qui vous pose problème exactement ?
Vous ne savez pas comment faire en sorte qu'on choisisse soit 1 critère, soit un autre, soit 2 combinés, soit les 3 combinés ?

Le mieux est probablement de faire un If et de générer la requête avec les Where qui vont bien en fonction de ce que vous voulez comme critères

[MoMeBe]

bonjour.
je voulais un code source qui me fait un recherche suivant un critère (exp: CIN) et m'affiche l'enregistrement dans des TextBox pas dans DataGridView.
C'est la mon problème.
Merci.

[MoMeBe]

EDIT SANKASSSSS : Message provenant d'une deuxième discussion créée par MoMeBe qui a été fusionnée.

Rebonjour.

j'essaye de clarifier ma question, car je crois qu'il y a quelques amis qui sont fâchées de moi (de ma question débile et incompréhensible).

En bref.

J'ai un base de donnée Access 2007, un interface VB (Form)qui contient des TextBox, des ComboBox, des TabPage mais pas de DataGridView .

Ma forme contient tous les champs concernant un enregistrement et pas un tableau de tous les enregistrements, c'est pour cela que je n'utilise pas un DataGrid.

Je peux ajouter un employer, modifier ou supprimer un enregistrement de ma base.

Ma question est comment faire un recherche d'un enregistrement dans ma base et l'afficher dans ma Form ?

J'espere que ma question est lisible.

Merci pour tout le monde.

[Meylin]

Bonjour MoMeBe,

Afin de faciliter la tâche à tout ceux qui souhaitent t'aider, il t'est demandé de fournir les erreurs obtenues, ou d'expliquer le comportement inhabituel de ton code. Te contenter de dire « je voulais un code source qui me fait un recherche suivant un critère » n'est pas suffisant ...
Je t'invite à éditer ton message afin de nous dire où tu bloques précisément.

[rv26t]

Bonjour,

Cela devrait ressembler à ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
        Dim dr As OleDbDataReader
        '...
        ' requête paramètrée, ici exemple pour access
        cmd.CommandText = "SELECT CNRPS, Assurance FROM TPersonnels where CIN = ? "
        cmd.Parameters.Add("CIN", System.Data.OleDb.OleDbType.Double) ' étonnant que la clé soit en double
        cmd.Parameters("CIN").Value = txtId.Text
        dr = cmd.ExecuteReader()
        dr.Read
        TxTCNRPS.Text = dr("CNRPS")
        TxTAssurance.Text = dr("Assurance")

Avec access les paramètres doivent être ajouté dans l'ordre de la requête.

A+, Hervé.

[rv26t]

EDIT SANKASSSSS : Message provenant d'une deuxième discussion créée par MoMeBe qui a été fusionnée.
Bonjour,
Exemple pour une recherche : Exemple dans votre autre post

Cour sur ADO

Cour sur les requêtes paramétrées

Cour général sur ADO

Pour savoir si une ou plusieurs ligne existe lors d'une requête "SELECT" vous avez la fonction HasRows du DataReader qui renvoi une valeur boolean. (True ligne(s) présente(s), False pas de ligne)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
                Using reader As OleDbDataReader = Commande.ExecuteReader()
                    If reader.HasRows Then MessageBox.Show("Une ou plusieurs lignes existent")
                End Using

A+, Hervé

[Sankasssss]

Bonjour,

j'ai fusionné les deux discussions vu qu'il s'agissait du même sujet comme l'a souligné rv26t.
Les messages 4 et 7 proviennent de la deuxième discussion.

[MoMeBe]

Salut

Merci monsieur rv26t pour ton aide. J'ai essayeee ton code mais le meme message d'erreur.

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
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        

        ' Ils ont été déclaré dans un ModuleGlobal.vb
        'Public Cn As New OleDbConnection("Provider=MicroSoft.ACE.OleDb.12.0; Data Source =Y:\DGUI2014\DGUI 2014.accdb")
        'Public Cmd As New OleDbCommand
        'Public Dr As OleDbDataReader
        'Public Da As New OleDbDataAdapter
        'Public Dt As New DataTable
        'Public Ds As New System.Data.DataSet

        Dim SQ As String
        Cn.Open()
        SQ = " Select CNRPS, AssuranceFrom TPersonnels where CIN = '" & TXTCIN.Text & "'"
        Cmd.CommandText = SQ
        Cmd.Parameters.Add("CIN", System.Data.OleDb.OleDbType.Double)
        Cmd.Parameters("CIN").Value = TXTCIN.Text
        Dr = Cmd.ExecuteReader() ' Erreur ICI dans la ligne 18 " Type de données incompatible dans l'expression du critère."
        Dr.Read()
        TXTCNRPS.Text = Dr("CNRPS")
        TXTMutuel.Text = Dr("Assurance")
        Cn.Close()

    End Sub

Je n'ai pas de solution.

[rv26t]

il me reste que le procédure de recherche sur 1 critère ("CIN") puis sur 3 critères différents (exemple: "CIN" seul ou "CIN" et "CNRPS" ou "CIN" et "CNRPS" et 'ASSURANCE" sont tous de type Réel Double).

Edit : Houla j'étais pressé, je corrige.
J'avais indiqué q'il ne faut pas de cote autour de TXTCIN.Text. (Je laisse l'info pour ceux qui procédent ainsi, mais cela n'est pas recommandé)
La requête doit être comme dans le post N°6 que j'avais précédemment écrit comme exemple.
Merci Sankasssss d'avoir rectifié le tir.
Et attention à l'espace manquant entre Assurance et From.

[Sankasssss]

il faut remplacer la ligne 1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
        SQ = " Select CNRPS, AssuranceFrom TPersonnels where CIN = '" & TXTCIN.Text & "'"
        Cmd.CommandText = SQ
        Cmd.Parameters.Add("CIN", System.Data.OleDb.OleDbType.Double)
        Cmd.Parameters("CIN").Value = TXTCIN.Text

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        SQ = " Select CNRPS, AssuranceFrom TPersonnels where CIN = ?"

car vous utilisez (comme il faut le faire) les requêtes paramétrées.

[MoMeBe]

Merci beaucoup cher rv26t.

[MoMeBe]

Bonjour

Je n'arrive pas à dormir. Après avoir eu la réponse je me trouve sur un autre problème inexplicable. Le code source fonctionne correctement sur la Form principale (fenêtre contenants les TextBox où sont afficher les infos d'un Personnel), Le même code dans une Form de recherche ne marche pas.

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
 Private Sub BtnOk_Click(sender As Object, e As EventArgs) Handles BtnOk.Click

        Cn.Open()
        SQ = " Select CNRPS, Mutuel From TPersonnels where CIN = " & TXTCIN.Text & ""
        Cmd.CommandText = SQ
        Cmd.Parameters.Add("CIN", System.Data.OleDb.OleDbType.Double)
        Cmd.Parameters("CIN").Value = TXTCIN.Text
        Dr = Cmd.ExecuteReader() ' Erreur "ExecuteReader: Connection property has not been initialized."
        Dr.Read()
        'FrmPersonnels.TXTCIN.Text = IIf(IsDBNull(Dr("CIN")), "", Dr("CIN"))
        FrmPersonnels.TXTCNRPS.Text = IIf(IsDBNull(Dr("CNRPS")), "", Dr("CNRPS"))
        FrmPersonnels.TXTMutuel.Text = IIf(IsDBNull(Dr("Mutuel")), "", Dr("Mutuel"))
        FrmPersonnels.TXTNumBadge.Text = IIf(IsDBNull(Dr("NumBadge")), "", Dr("NumBadge"))
        FrmPersonnels.TXTPreNomPers.Text = IIf(IsDBNull(Dr("PreNomPers")), "", Dr("PreNomPers"))
        FrmPersonnels.TXTPerePers.Text = IIf(IsDBNull(Dr("CNRPS")), "", Dr("CNRPS"))
        FrmPersonnels.TXTNomPers.Text = IIf(IsDBNull(Dr("NomPers")), "", Dr("NomPers"))
                Dr.Close()
        Cn.Close()

        FrmPersonnels.Show()
        Close()
    End Sub

La Form Recherche contient 4 TextBox (pour la recherche soit par CIN ou par CNRPS ou par Mutuel ou par NumBadge) et 2 Boutons (Ok et Annuler)

il est 04:13 du matin C'est moi

[rv26t]

Bonjour,

La propriété connection pour la commande n'est pas renseignée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cmd.Connection = Cn

Et pensez à utiliser les requêtes paramétrées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SQ = " Select CNRPS, Mutuel From TPersonnels where CIN = ? "

[Sankasssss]

Et pensez à utiliser les requêtes paramétrées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SQ = " Select CNRPS, Mutuel From TPersonnels where CIN = ? "

J'appuie cela pour deux raisons, la première est qu'il y a plein d'avantage à utiliser les requêtes paramétrées (facilement trouvable sur internet), la deuxième est que vous utilisez les paramètres :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        Cmd.Parameters.Add("CIN", System.Data.OleDb.OleDbType.Double)
        Cmd.Parameters("CIN").Value = TXTCIN.Text

Et que si vous ne le mettez pas dans la requête, l'application devrait planter.