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!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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) :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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