Mes données ne s'affiche pas dans ma base de données acces

cr6stian - 8 avril 2017 à 14:17 - Dernière réponse :  cr65stian
- 10 avril 2017 à 10:01
bonjour
je suis en train de conce voir une application windows sous visual basique 2010 et je rencontre un probleme , en effet lorsqe jenregistre mes données a partir de mon formulaire la reponse d'enregistrement que j'ai programmé dans mon module s'affiche mais les données ne se retrouve pas dans ma base de données que jai nommée ici loguimas , svp c'est urgent et j'ai besoin d'aide car je ne sais pas si c'est une erreur dans mon code ou quelque chose que j'ai oublié d'activé , ma base de données etai une base acces 2010 , que j'ai transformés en format 20003 ,
voici mon code du module

Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
Module Module1

    Dim dbConnection As OleDbConnection
    Dim dbCommand As OleDbCommand
    Dim dbDataAdapter As OleDbDataAdapter
    Dim ConnectString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\user\Desktop\loguima\loguimas.mdb;User Id=Admin; Password="
    Dim Sql As String
    Dim dtAjinoMoto1 As DataTable
    Dim cn As New OleDbConnection

    'Gestion de la sécurité des données saisies par les utilisateurs à travers la FONCTION APOS
    Function Apos(ByRef chaine As String) As String
        Apos = Join(Split(chaine, "'"), "''")
    End Function

    Sub Sauvegarder()
        cn.ConnectionString = ConnectString
        If cn.State = ConnectionState.Closed Then
            cn.Open()
            Try
                Dim SqlQuery As String = "INSERT INTO [adherent] (nomadh, prenomadh,dtenaiss,profession,contact,mail,nompere,nommere,nomenfant,villeresidence,matricule,statut) VALUES ( """ & Apos(Form3.nom.Text) & """, """ & Apos(Form3.prenom.Text) & """, """ & Apos(Form3.datenaiss.Text) & """,""" & Apos(Form3.prof.Text) & """,""" & Apos(Form3.cont.Text) & """,""" & Apos(Form3.mail.Text) & """,""" & Apos(Form3.nomper.Text) & """,""" & Apos(Form3.nommere.Text) & """,""" & Apos(Form3.nomenf.Text) & """,""" & Apos(Form3.ville.Text) & """,""" & Apos(Form3.matric.Text) & """,""" & Apos(Form3.statut.Text) & """)"
                Dim SqlCommand As New OleDbCommand
                With SqlCommand
                    .CommandText = SqlQuery
                    .Connection = cn
                    .ExecuteNonQuery()
                End With
                MsgBox("Succes de votre enregistrement")
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            cn.Close()
        Else
            Try
                Dim SqlQuery As String = "INSERT INTO [adherent] (nomadh, prenomadh,dtenaiss,profession,contact,mail,nompere,nommere,nomenfant,villeresidence,matricule,statut) VALUES ( """ & Apos(Form3.nom.Text) & """, """ & Apos(Form3.prenom.Text) & """, """ & Apos(Form3.datenaiss.Text) & """,""" & Apos(Form3.prof.Text) & """,""" & Apos(Form3.cont.Text) & """,""" & Apos(Form3.mail.Text) & """,""" & Apos(Form3.nomper.Text) & """,""" & Apos(Form3.nommere.Text) & """,""" & Apos(Form3.nomenf.Text) & """,""" & Apos(Form3.ville.Text) & """,""" & Apos(Form3.matric.Text) & """,""" & Apos(Form3.statut.Text) & """)"
                Dim SqlCommand As New OleDbCommand
                With SqlCommand
                    .CommandText = SqlQuery
                    .Connection = cn
                    .ExecuteNonQuery()
                End With
                MsgBox("Succes de votre enregistrement")
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
    End Sub

    Sub Modification()
        cn.ConnectionString = ConnectString
        If cn.State = ConnectionState.Closed Then
            cn.Open()
            Try
                Dim SqlQuery As String = "UPDATE [adherent] SET nomadh =""" & Apos(Form3.nom.Text) & """, prenomadh =""" & Apos(Form3.prenom.Text) & """, dtenaiss =""" & Apos(Form3.datenaiss.Text) & """,profession =""" & Apos(Form3.prof.Text) & """, contact =""" & Apos(Form3.cont.Text) & """, mail =""" & Apos(Form3.mail.Text) & """, nompere =""" & Apos(Form3.nomper.Text) & """, nommere=""" & Apos(Form3.nommere.Text) & """, nomenfant =""" & Apos(Form3.nomenf.Text) & """, villeresidence =""" & Apos(Form3.ville.Text) & """, matricule =""" & Apos(Form3.matric.Text) & """, statut =""" & Apos(Form3.statut.Text) & """ WHERE prenom =""" & Apos(Form3.prenom.Text) & """"
                Dim SqlCommand As New OleDbCommand
                With SqlCommand
                    .CommandText = SqlQuery
                    .Connection = cn
                    .ExecuteNonQuery()
                End With
                MsgBox("Succes de votre Modification")
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            cn.Close()
        Else
            Try
                Dim SqlQuery As String = "UPDATE[adherent] SET nomadh =""" & Apos(Form3.nom.Text) & """, prenomadh =""" & Apos(Form3.prenom.Text) & """, dtenaiss =""" & Apos(Form3.datenaiss.Text) & """,profession =""" & Apos(Form3.prof.Text) & """, contact =""" & Apos(Form3.cont.Text) & """, mail =""" & Apos(Form3.mail.Text) & """, nompere =""" & Apos(Form3.nomper.Text) & """, nommere=""" & Apos(Form3.nommere.Text) & """, nomenfant =""" & Apos(Form3.nomenf.Text) & """, villeresidence =""" & Apos(Form3.ville.Text) & """, matricule =""" & Apos(Form3.matric.Text) & """, statut =""" & Apos(Form3.statut.Text) & """ WHERE prenom =""" & Apos(Form3.prenom.Text) & """"
                Dim SqlCommand As New OleDbCommand
                With SqlCommand
                    .CommandText = SqlQuery
                    .Connection = cn
                    .ExecuteNonQuery()
                End With
                MsgBox("Succes de votre Modification")
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            cn.Close()
        End If
    End Sub

    Sub Supprimer()
        Dim cn As New OleDbConnection
        cn.ConnectionString = ConnectString
        If cn.State = ConnectionState.Closed Then
            cn.Open()
            Try
                Dim SqlQuery As String = "DELETE FROM [adherent] WHERE nomadh = """ & Form3.nom.Text & """"
                Dim SqlCommand As New OleDbCommand
                With SqlCommand
                    .CommandText = SqlQuery
                    .Connection = cn
                    .ExecuteNonQuery()
                End With
                MsgBox("Succes de la suppression")
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            cn.Close()
        End If
    End Sub
End Module

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.



aidez moi svp
Afficher la suite 

2 réponses

Répondre au sujet
vb95 1386 Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut 12 décembre 2017 Dernière intervention - 9 avril 2017 à 18:08
0
Utile
Bonjour
Pourquoi avoir mis ton post dans la catégorie VBA ?
J'ai fait la modification : Visual Basic 2010 est du VB Net
Commenter la réponse de vb95
0
Utile
je me suis peut etre trompé de catégorie mais xi quelqun peut maider
Commenter la réponse de cr65stian

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.