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!

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

[Aspic]

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

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

[alaa_85]

faut que tu ouvre la connaiction et par la suite tu peut faire ta commande.
compris ?

[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
Je m'y remet!!

[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.

[Frosaf]

Je suis en train de testé ta classe, si je trouve la solution! je préviens

[Frosaf]

J'ai trouvé comment faire!!
Je retourne sous mysql!
On verra access une autre fois ^^

[Aspic]

Ok bonne chance ^^

[Frosaf]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Aspic]

Oui c'est mieux

Enfin parfois faut pas chercher trop loin ^^