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
A voir également:
Mes données ne s'affiche pas dans ma base de données acces
