Discussion :

[Frosaf]

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 AsNew OleDb.OleDbConnection

oconnexion.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" & My.Application.Info.DirectoryPath & "\BDDGestion.mdb"

Dim Res_InsCli AsString = ("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 AsNew OleDbCommand(Res_InsCli, oconnexion)

oconnexion.Open()

inserer_Cli.ExecuteNonQuery()

If inserer_Cli.ExecuteNonQuery() Then
MessageBox.Show(
"Client " + txt_nom.Text + " ajouté")
Else
MessageBox.Show(
"Problème lors de l'insertion")
EndIf

Catch ex As Exception
MessageBox.Show(ex.ToString)


Finally
oconnexion.Close()

EndTry
EndSub

Dans 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) :

PrivateSub NouveauClient_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

Try
oconnexion.ConnectionString =

"PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" & My.Application.Info.DirectoryPath & "\BDDGestion.mdb"
oconnexion.Open()


Dim REQ_Statut AsString = ("select * from statut")

Dim JE_Statut As OleDbDataReader

Dim RecupStatut AsNew OleDbCommand(REQ_Statut, oconnexion)
JE_Statut = RecupStatut.ExecuteReader


While JE_Statut.Read

Dim Objetstatut AsNew ClassStatut(JE_Statut.Item("nostatut"), JE_Statut.Item("NOMstatut"))
lst_Statut.Items.Add(Objetstatut)


EndWhile

Catch ex As Exception
MessageBox.Show(ex.ToString)


Finally
oconnexion.Close()


EndTry

EndSub

Aidez moi svp. Sa commence à m'énervé! je comprend pas
Merci

[Aspic]

Double post :

Réponse dans ce thread :
http://www.developpez.net/forums/sho...d.php?t=355081