Discussion :

[thomasaurelien]

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

[shayw]

Salut
le mieux c'est de lire les cours
http://plasserre.developpez.com/cour...bases-donnees1

[Pol63]

ta première méthode est la plus performante (mais de très peu je pense)
la deuxième utilise des classes pour ceux qui ne savent pas ou ne veulent pas taper les requêtes

ton code manque de try catch et de using/end using, donc lire le cours peut etre une bonne idée !

aussi, ton code est long pour rien

Code :

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

1
2
Dim cmd As OleDb.OleDbCommand
cmd = New OleDb.OleDbCommand

=>

Code :

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

Dim cmd As New OleDb.OleDbCommand

Code :

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

cmd.CommandType = CommandType.Text

ce n'est pas la peine, c'est la valeur par défaut
dim sql as string, ce n'est pas la peine non plus, la requête n'est pas super longue, tu peux mettre le string directement dans CommandText

[thomasaurelien]

shayw merci pour le lien cela ma permit de mieux comprendre chaque outil avec les définitions.

Pol63 je suis d'accord avec toi sur le principe que le code est trop long mais cela viens juste du principe que j'ai suivi un tutoriel donc tous n'est pas simplifié. Pareil pour les try catch j'en avais pas mis pour l'instant le temps que je débeugais je les met seulement quand j'ai tester. Par contre using/end using je n'ai jamais utiliser je vais me documenter si t'as des liens c'est pas de refus.

Merci à vous

[Pol63]

le lien pour using, c'est tu tapes using tu met ton curseur dessus et tu fais F1 ^^