Bonsoir, tout le monde,

Cela fait plusieurs jour que je suis à la recherche d'une solution à mon problème .

Je souhaite, grâce à un formulaire d'inscription, stocker des données renseignés par l'utilisateur dans ma base de donnée Access, pour cela j'ai donc crée un fomulaire d'inscription avec une connexion à ma base de donné mais je n'arrive pas à comprend comment stocké mes infos dans ma base

j'ai trouvé "INSERT INTO MaTable VALUES (Nom, Prenom)", mais je ne sais pas comment l'utiliser.

Voici mon code :

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
34
35
36
37
38
39
40
41
 
Imports System.Data.OleDb
 
Public Class Form2
    Dim Cn As New OleDbConnection
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data source=c:\users\khriss\documents\visual studio 2010\Projects\Gestion User\Gestion User\Utilisateur1.accdb"
        Cn.Open()
        MsgBox(" OK ", 0 + 46)
 
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        If TXT_NOM.Text = "" Or TXT_PRENOM.Text = "" Or TXT_MAIL.Text = "" Or CB_BAT.Text = "" Or TXT_SALLE.Text = "" Or CB_SERVICE.Text = "" Or TXT_MDP.Text = "" Or TXT_CONF.Text = "" Then
            MsgBox("Veuillez remplir tout le formulaire ")
            Exit Sub
 
            If TXT_MDP.Text <> TXT_CONF.Text Then
                MsgBox(" Les mots de passe ne sont pas identique ")
                Exit Sub
            End If
        End If
 
        Dim NomUSer As String = TXT_NOM.Text
        Dim PrenomUSer As String = TXT_PRENOM.Text
        Dim MAilUSer As String = TXT_MAIL.Text
        Dim ContactUser As String = TXT_CONTACT.Text
        Dim BatimentUser As String = CB_BAT.Text
        Dim SalleUser As String = TXT_SALLE.Text
        Dim ServiceUser As String = CB_SERVICE.Text
        Dim MDPUser As String = TXT_MDP.Text
        Dim ConfirmeMDP As String = TXT_CONF.Text
 
        ''souhaite stocker les infos dans ma base de donnée 
 
    End Sub
End Class

Merci d'avance pour vos réponses