Discussion :

[dlefebvre]

Bonjour j'ai une base de données Access dans un projet VB.NET (version 2008) je fais le code suivant pour ajouter le contenu de mon textbox et mon Combobox à une table de ma BD et je n'y arrive pas. Quand je trace tout ce passe bien, mon programme ne plante pas mais rien n'est ajouter dans ma table ... il me manque quoi ???


Merci

Danick

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
37
38
39
40
41
42
43
 
        Try
            strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=SimpleBudget.mdb;"
            ObjetConnection = New OleDbConnection
 
            'Donner à la propriété ConnectionString les paramètres de connexion
 
            ObjetConnection.ConnectionString = strConn
 
 
 
            'Instancier un objet Commande
 
            ObjetCommand = New OleDbCommand
 
            'Lier Commande et Connexion
 
            ObjetCommand.Connection = ObjetConnection
 
            'Ouvrir la connexion
 
            ObjetConnection.Open()
 
            'Indiquer le type de commande
 
            ObjetCommand.CommandType = CommandType.Text
 
            'Donner le texte de la commande SQL
 
            'ObjetCommand.CommandText = "INSERT INTO Creanciers (Nom_Creancier,Categorie) values (""Visa"",""Carte de credit"")"
            ObjetCommand.CommandText = "INSERT INTO Creanciers (Nom_Creancier,Categorie) values (""" & txtNomCreancier.Text & """,""" & cbCategorie.Text & """)"
 
 
            'on exécute la commande
 
            ObjetCommand.ExecuteNonQuery()
 
            'Fermer la connexion
 
            ObjetConnection.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

[khouja]

essai ceci

Code :

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

ObjetCommand.CommandText = "INSERT INTO Creanciers (Nom_Creancier,Categorie) values ('" & txtNomCreancier.Text & "','" & cbCategorie.Text & "')"

[Sankasssss]

essai ceci

Code :

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

ObjetCommand.CommandText = "INSERT INTO Creanciers (Nom_Creancier,Categorie) values ('" & txtNomCreancier.Text & "','" & cbCategorie.Text & "')"

et qu'arrivera-t-il si txtNomCreancier ou cbCategorie contienne une apostrophe?
On ne le dira jamais assez (et ca a encore fait une polémique dans un autre poste) utilisé les requêtes paramétrées, sa évite pas mal d'erreur...

A voir pour plus d'exemple : OleDbCommand.Parameters et OleDbParameter

Ce qui donne :

Code :

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

1
2
3
4
 
ObjetCommand.CommandText = "INSERT INTO Creanciers (Nom_Creancier,Categorie) values ( ? , ? )"
ObjetCommand.Parameters.Add("NomCreancier",  OleDb.OleDbType.VarChar).value = txtNomCreancier.Text 
ObjetCommand.Parameters.Add("Categorie",  OleDb.OleDbType.VarChar).value = cbCategorie.Text

de cette manière tu n'a plus à géré les apostrophes, les dates et autre changement du à un changement de base de donnée...
Attention de bien rentré tes paramètres dans l'ordre de la requête...

[dlefebvre]

Merci Sankasssss, j'avoue que c'est plus claire en y allant avec des paramètres mais ça ne fonctionne pas plus ???

Je ne plante pas mais rien ne s'inscrit dans la table ???

La connexion ce fait bien car si je change le nom d'un champs dans ma table je plante ??

Je sais que c'est surement une niaiserie mais je ne ne vois pas quoi ça pourrait être !!

Merci !!

[Sankasssss]

Je n'ai pas d'idée...
Vérifie toujours ton string de connexion, tu ne met pas d'user ni de password : http://www.connectionstrings.com/access

Aussi non tu peux essayer de voir si ton ExecuteNonQuery a effectivement fait son boulot avec :

Code :

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

1
2
3
dim iNbre as integer
iNbre = ObjetCommand.ExecuteNonQuery()
console.writeLine("Nombre de ligne affectée par la requête : {0}", iNbre)

[dlefebvre]

Je viens d'essayer ce que tu viens de me dire en remplaçant console.writeLine par un msgbox car c'est une application windows et j'obtiens 1 dans ma variable iNbre mais toujours riens dans ma table.

Code :

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

1
2
3
4
 
            Dim iNbre As Integer
            iNbre = ObjetCommand.ExecuteNonQuery()
            MsgBox("Nombre de ligne affectée par la requête : " & iNbre)

[Sankasssss]

Tu fais comment pour voir le contenu de ta table?
(je vais allé dormir donc bonne nuit )

P.S. : Avec console.writeLine tu sais voir les valeurs,même sur une application windows, dans le débugger sur l'onglet "sortie" ce qui évite d'avoir à enlever les msgbox après le débogage, donc c'est pratique pour débugger

[dlefebvre]

Salut Sankasssss, c'est réglé, je savais que ça serait une niaiserie mais je ne comprend pas pareil !!

Dans ma connexion à la ligne suivante :

Code :

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

1
2
 
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=SimpleBudget.mdb;"

Je n'indiquais pas le chemin car je croyais que si la base de données était dans le même répertoire que l'application, le chemin n'était pas nécessaire mais si j'y ajoute le chemin au complet....ça fonctionne !!!!

C'est bizarre car mon application voyait quand même ma base de données car si je changeais un champs j'avais une erreur mais j'étais incapable d'écrire dedans ??

Bref finalement ça foncionne et merci pour ton aide et surtout ta patience

Danick

[Sankasssss]

C'est bizarre en effet mais le principal est que ca fonctionne.
Bonne soirée