Problème insertion dans bdd access. Via VB express 2005Résolu

Question

Bonjour!
Je suis en train de développé une appli qui utilise une bdd sur access.
Mon problème est lors de l'insertion de données.
Aucun messages d'erreurs ne m'est renvoyé.
Mais les données ne sont pas insérées.
Ma connexion fonctionne.
Ma base est la bonne.
Voici le code!

Private

Sub btn_ajouter_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles btn_ajouter.Click

Try

Dim oconnexion 
As
New OleDb.OleDbConnection

oconnexion.ConnectionString =  "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" & 
My.Application.Info.DirectoryPath & 
"\BDDGestion.mdb"

Dim Res_InsCli 
As
String = (
"INSERT INTO CLIENT(NOSTATUT, NOMCLI, PRECLI, ADRESSECLI, CPCLI, VILLECLI, NOTELCLI)VALUES ('" + Convert.ToString(lst_Statut.SelectedItem.GetNoStatut) + 
"', '" + txt_nom.Text + 
"', '" + txt_prenom.Text + 
"', '" + txt_adresseCli.Text + 
"', " + txt_CPcli.Text + 
", '" + txt_ville.Text + 
"', " + txt_NoTel.Text + 
")")MessageBox.Show(Res_InsCli.ToString)

Dim inserer_Cli 
As
New OleDbCommand(Res_InsCli, oconnexion)oconnexion.Open()

inserer_Cli.ExecuteNonQuery()

If inserer_Cli.ExecuteNonQuery() 
ThenMessageBox.Show(

"Client " + txt_nom.Text + 
" ajouté")

ElseMessageBox.Show(

"Problème lors de l'insertion")

End
If

Catch ex 
As ExceptionMessageBox.Show(ex.ToString)

Finallyoconnexion.Close()

End
Try

End
SubDans mon appli la connexion est déclaré en globale.
Je fais bien le import de system.data.oledb

Par contre j'arrive a afficher des données provenant de la base.
Le code (la connexion  est  déclaré en globale) :

Private
Sub NouveauClient_Load(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles
MyBase.Load

Tryoconnexion.ConnectionString  = 

"PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" & 
My.Application.Info.DirectoryPath & 
"\BDDGestion.mdb"oconnexion.Open()

Dim REQ_Statut 
As
String = (
"select * from statut")

Dim JE_Statut 
As OleDbDataReader

Dim RecupStatut 
As
New OleDbCommand(REQ_Statut, oconnexion)JE_Statut = RecupStatut.ExecuteReader

While JE_Statut.Read

Dim Objetstatut 
As
New ClassStatut(JE_Statut.Item(
"nostatut"), JE_Statut.Item(
"NOMstatut"))lst_Statut.Items.Add(Objetstatut)

End
While

Catch ex 
As ExceptionMessageBox.Show(ex.ToString)

Finallyoconnexion.Close()

End
Try

End
Sub

Aidez moi svp. Sa commence à m'énervé! je comprend pas 
Merci

Frosaf · Accepted Answer

g trouvé la solution! 
ct ma requête ki était mal faite

Problème insertion dans bdd access. Via VB express 2005

1 réponse

Votre réponse