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

Signaler
-
 cr65stian -
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

2 réponses

Messages postés
2427
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
6 mai 2021
137
Bonjour
Pourquoi avoir mis ton post dans la catégorie VBA ?
J'ai fait la modification : Visual Basic 2010 est du VB Net
je me suis peut etre trompé de catégorie mais xi quelqun peut maider