VB2010 et Access Bouton Rechercher

Question

Salut Tout Le Monde,
J'aimerai avoir de l'aide pour le code du bouton Rechercher  qui permet de rechercher des données acceess a partir VB2010 .

NHenry · Answer

Bonjour,

Tu bloques sur quoi exactement ?

--------------------------------------------------
[list][*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu, pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---

oumniyanabil2 · Answer

J'aimerai aprés avoir récupéré une donnée dun textbox chercher les données dans une tabele access aprtir de cette donnée qui est fournie dans le textbox,exemple chercheR
les données de table Agent en fournissant son Iddans un TextBox ,et en cliquant sur un bouton Rechercher on a les resultats merci davance

NHenry · Answer

Bonjour,

Regardes la clause Where et l'opérateur Like.

Et fais attention à ton orthographe aussi.

--------------------------------------------------
[list][*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu, pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---

oumniyanabil2 · Answer

'Select * From Agent Where Id like TextBox1.tex'?? cjuste??

NHenry · Answer

Bonjour,

Id est un entier ?
Regardes aussi la concaténation de chaines.

--------------------------------------------------
[list][*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu, pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---

oumniyanabil2 · Answer

Salut tout le monde jai trouvé la solution et jaimerai en  profiter tout le monde sa marche bien .
 Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Dim cmd As OleDb.OleDbCommand
        ' Déclaration de sql_modifier, qui contiendra la requête SQL permettant de modifier un enregistrement
        Dim sql_Rechercher As String

        ' On écrit notre requête et on l'assigne à la variable sql_modifier.
        ' Val_ID reprend la valeur ID de l'enregistrement affiché => Voir Navigation()
        sql_Rechercher "Select * From Demande  where Date_Début  Val_Rechercher_D And Date_Fin = Val_Rechercher_F "

        ' Initialisation de la requête
        cmd = New OleDb.OleDbCommand(sql_Rechercher, con)

        ' On définit les paramètres utilisés pour le bon déroulement de la requête
        ' On assigne à Val_modifier_Prenom" le texte contenu dans le textbox Prenom
        cmd.Parameters.AddWithValue("Val_Rechercher_D", TextBox17.Text)
        ' On assigne à Val_modifier_Nom" le texte contenu dans le textbox Nom
        cmd.Parameters.AddWithValue("Val_Rechercher_F", TextBox18.Text)

        ' Ouverture de la connexion
        cmd.Connection.Open()
        ' Exécution de la requête SQL
        cmd.ExecuteReader()
        ' Fermeture de la connexion
        cmd.Connection.Close()


        MsgBox("LA Demande a bien été Trouvée.")
        Val_ID = ds.Tables("Liste_Amis").Rows(Place_Enregistrement).Item(0)
        ' On place ensuite les valeurs dans les textbox, c'est à dire le prénom et le nom du contact affiché

        TextBox19.Text = ds.Tables("Liste_Amis").Rows(Place_Enregistrement).Item(1)
        TextBox12.Text = ds.Tables("Liste_Amis").Rows(Place_Enregistrement).Item(2)

        TextBox13.Text = ds.Tables("Liste_Amis").Rows(Place_Enregistrement).Item(3)
        TextBox14.Text = ds.Tables("Liste_Amis").Rows(Place_Enregistrement).Item(4)
        TextBox15.Text = ds.Tables("Liste_Amis").Rows(Place_Enregistrement).Item(5)
        TextBox16.Text = ds.Tables("Liste_Amis").Rows(Place_Enregistrement).Item(6)

        ' On vide le dataset
        ds.Clear()

        ' et on le réaffiche en faisant appel à Connexion()
        ' pour que notre modification apparaisse bien
        Connexion()
    End Sub

NHenry · Answer

Bonjour, 

Si votre problème est résolu, pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés.
---

VB2010 et Access Bouton Rechercher

7 réponses

Votre réponse