Bonjour, je me suis mis à vb.net il y a peu de temps et je réalise une insertion dans une base Access en Ado.net mais comme je pense (enfin j'espère il y a 2 façon).
J'ai réalisé les 2 façon est celle-ci marche mais le concept reste très flou, si quelqu'un pourrais m'expliqué plus clairement merci d'avance.

1ère façon :
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
 
'Enregistrement de l'utilisateur dans la base
    Public Sub Ajouter(ByVal NewUser As USER)
        'Try
        Dim cnx As OleDb.OleDbConnection = Nothing
        Dim cmd As OleDb.OleDbCommand
        cnx = Open_connexion()
        cmd = New OleDb.OleDbCommand
        cmd.CommandType = CommandType.Text
        Dim sql As String = "INSERT INTO UTILISATEUR (identifiant, mdp, question, reponse) VALUES (@login, @password, @question, @reponse)"
        cmd.CommandText = sql
        cmd.Parameters.AddWithValue("@login", NewUser.Login)
        cmd.Parameters.AddWithValue("@password", NewUser.Password)
        cmd.Parameters.AddWithValue("@question", NewUser.Question)
        cmd.Parameters.AddWithValue("@reponse", NewUser.Reponse)
        cmd.Connection = cnx
        cmd.ExecuteNonQuery()
        'Catch ex As Exception
        'Throw New Exception("Erreur ajout utilisateur" & Environment.NewLine & ex.Message)
        'End Try
    End Sub
la 2ième façon (mode déconnecté, c'est flou pour moi)
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
 
Private AdaptUtilisateur As OleDbDataAdapter
    Private DtSet As New DataSet()
 
Private Sub init()
        Dim cnx As OleDb.OleDbConnection = Nothing
        Dim sql As String = "select * from UTILISATEUR"
        cnx = Open_connexion()
        AdaptUtilisateur = New OleDb.OleDbDataAdapter(sql, cnx)
        AdaptUtilisateur.Fill(DtSet, "UTILISATEUR")
        cnx = Close_connexion()
    End Sub
 
Public Sub autre_ajout(ByVal NewUser As USER)
        Dim cnx As OleDb.OleDbConnection = Nothing
        init()
        Dim newline As DataRow
        newline = DtSet.Tables("UTILISATEUR").NewRow
        newline(0) = NewUser.Login
        newline(1) = NewUser.Password
        newline(2) = NewUser.Question
        newline(3) = NewUser.Reponse
        DtSet.Tables("UTILISATEUR").Rows.Add(newline)
        cnx = Open_connexion()
        Dim cmdBuild As OleDb.OleDbCommandBuilder
        cmdBuild = New OleDb.OleDbCommandBuilder(AdaptUtilisateur)
        AdaptUtilisateur.InsertCommand = cmdBuild.GetInsertCommand()
        AdaptUtilisateur.Update(DtSet, "UTILISATEUR")
        cnx = Close_connexion()
    End Sub