Comment faire un recherche dans une base access en VS12

Signaler
-
 copernix2 -
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.

3 réponses

Salut, voici un code que j'avais fais il ya quelque temps qui permet de charge des comboxbox et textbox j'espère que tu comprendra.
Dim chaine As String
            chaine = My.Settings.ISSBConnectionString
            Dim connection As New System.Data.OleDb.OleDbConnection()
            connection.ConnectionString = chaine
            Dim iden_sexe As String
            Try

                connection.Open()
                'déclaration d'un nouveau dataset 
                Dim dat As New System.Data.DataSet
                'requete de selection des pavillons
                Dim query As String = "SELECT client.nom_client, client.adresse, client.tel_fix, client.cellulaire, client.email, client.sexe, client.age, client.instruction, client.sit_mat, client.bank, client.profession, client.sec_act, client.nb_compt, client.ancien, client.cod_client FROM(Client) WHERE (((client.cod_client)='" & cod_client.Text & "'));"

                Dim adapter As New System.Data.OleDb.OleDbDataAdapter(query, connection)

                adapter.Fill(dat, "client")
                'chargement du datagrid de pavillon
                nom_client.Text = dat.Tables("client").Rows(0).Item("nom_client")
                adress.Text = dat.Tables("client").Rows(0).Item("adresse")
                tel.Text = dat.Tables("client").Rows(0).Item("tel_fix")
                cellulaire.Text = dat.Tables("client").Rows(0).Item("cellulaire")
                email.Text = dat.Tables("client").Rows(0).Item("email")
                iden_sexe = dat.Tables("client").Rows(0).Item("sexe")
                If iden_sexe = "masculin" Then
                    macul.Checked = True

                Else
                    féminin.Checked = True
                End If
                age.Text = dat.Tables("client").Rows(0).Item("age")
                instruction.Text = dat.Tables("client").Rows(0).Item("instruction")
                sit_mat.Text = dat.Tables("client").Rows(0).Item("sit_mat")
                bank.Text = dat.Tables("client").Rows(0).Item("bank")
                profess.Text = dat.Tables("client").Rows(0).Item("profession")
                sec_act.Text = dat.Tables("client").Rows(0).Item("sec_act")
                nombre_com.Text = dat.Tables("client").Rows(0).Item("nb_compt")
                ancien.Text = dat.Tables("client").Rows(0).Item("ancien")

                'liberer les ressources du dataset
                dat.Dispose()
                'fermer et libérer la connection
                connection.Close()
                connection.Dispose()
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try



Copernix2
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
78
Salut MoMeBe

Les réponses aux questions "comment faire" se trouvent parmi les sources du site ou parmi les précédentes questions du forum.
Le forum n'a pas pour but de faire de la formation, mais de répondre à des problèmes techniques.
C'est à toi de faire les recherches et d'apprendre.
Suffit de rechercher "base de données" parmi les codes en .Net pour avoir des exemples !
Jack, je crois que tout le monde n'est pas au même niveau d'informations. donc on peut s’entraider toujours. il te suffit juste de poste les liens pour l'indiquer où ça été fait

Copernix2