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

Version imprimable

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:

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:

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

08/06/2007, 18h17
Aspic

La syntaxe de Insert n'est pas bonne je pense :

Citation:

INSERT INTO tblClients ( [Numéro Client], [Nom Client], [Prénom Client], Remise )
VALUES ("160017", "Inisan", "Hervé", 1);

Voila sinon vu que tu es de loin le seul à avoir eu des problemes avec Access je te suggères de rechercher sur le forum !

Sinon Tutoriels et classes ACCESS

Cdl
08/06/2007, 18h26
alaa_85

faut que tu ouvre la connaiction et par la suite tu peut faire ta commande.
compris ?
08/06/2007, 18h36
Frosaf

Pour commencer, je vous remercie de vos réponses!
J'ai testé la modification de la syntaxe de ma requête, mais sa n'a rien fait...
Quand à ma connexion, regarde bien je l'ouvre juste avent d'executé ma requête.
Je vais continuer à cherché de mon coté, et si vous avez d'autres idée... Je suis preneur :yaisse2:
Je m'y remet!!:bug:
08/06/2007, 18h56
Aspic

As tu tester ma classe ? je pense qu'en deux minutes tu trouveras le probleme si tu compares mon code et le tien ! Sinon tu peux toujours utiliser ma classe qui s'adapte à toutes les bases Access. ;)
08/06/2007, 19h59
Frosaf

Je suis en train de testé ta classe, si je trouve la solution! je préviens :)
11/06/2007, 12h45
Frosaf

J'ai trouvé comment faire!!
Je retourne sous mysql! :yaisse2:
On verra access une autre fois ^^
11/06/2007, 12h54
Aspic

Ok bonne chance ^^;)

G trouvé la réponse...
et tu avais raison dès le départ ^^
Ma syntaxe de mon insert était mauvaise...
Voila ce qui marche!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 oconnexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\Documents and Settings\Jo\Mes documents\Visual Studio 2005\Projects\GestionClientCompta\GestionClientCompta\Resources\BDDGestion.MDB';Persist Security Info=True"
            Dim Req_InsCli As String = ("INSERT INTO client (  NOSTATUT , NOMCLI , PRECLI , ADRESSECLI , CPCLI , VILLECLI , NOTELCLI , FORFAITDEPLACEMENT )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 + "," + txt_FFDep.Text + ");")
            Dim inserer_Cli As New OleDbCommand(Req_InsCli, oconnexion)
 
            oconnexion.Open()
            If inserer_Cli.ExecuteNonQuery() Then
                MessageBox.Show("Client " + txt_nom.Text + " ajouté")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        Finally
            oconnexion.Close()
            oconnexionSave.Close()
        End Try

11/06/2007, 16h58
Aspic

Oui c'est mieux 8-)

Enfin parfois faut pas chercher trop loin ^^