[VB.net] Problème insertion dans table

Bonjour,

Je rencontre un problème avec ma base de données access dans visual basic
2005.
Voilà le code qui me permet d'insérer une ligne dans ma table :
Dim titre As String
Dim c As New connexion
Dim cmd As New OleDbCommand
Dim prm As New OleDbParameter
c.ouvrir()
titre=teval.text 'textbox dans mon formulaire
cmd.Connection = c.maconnexion
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "AjoutEval" 'requete d'ajout créé dans access
prm.ParameterName = "Titeval" ' paramatre de la requete
prm.Value = titre
cmd.Parameters.Add(prm)
cmd.ExecuteNonQuery()

End Sub

Je vous précise que j'ai crée une classe connection dt voici le code:
Public Class connexion
Public maconnexion As OleDbConnection

Public Sub ouvrir()
maconnexion = New
OleDbConnection(My.Settings.GESTQUALITEConnectionString)
Try
maconnexion.Open()
Catch ex As OleDbException
MessageBox.Show(ex.Message)
End Try
End Sub

Public Sub fermer()
Try
maconnexion.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

End Class

A l'exécution tout fonctionne mais lorsque je vérifie dans ma base aucune
ligne n'a été ajouté. Pourriez vous m'aider à comprendre

Merci d'avance.

Tu peux faire plus simple comme ajout dans une base de donnée Access

Tu écris ta Commande dans le programme en lui - même.

Exemple:

Code:

---

1 2	Dim Ajout As New OleDb.OleDbCommand("INSERT INTO table VALUES(variable1, ..., ...), MaConnexion)

---

Et au fait est ce que tu pourrais préciser ta requête STP ?! :roll:

merci de ta réponse ma requete s'appelle AjoutEval voici son code
INSERT INTO evaluation ( Titre )
VALUES (Titeval);

sinon g déjà tenté de faire l'ajout en utilisant directement la commande mais le résultat est le meme g aucune erreur mais les lignes ne s'ajoutent pas dans ma base

Déjà dans ta requête tu as un problème c'est que dans une requête SQL pour Access la paramètres sont caractériser par des ? donc ta requête va devenir :

Code:

---

1 2	Dim Ajout As new OleDb.OleDbCommand("INSERT INTO evaluation ( Titre ) VALUES (?)", c.maconnexion)

---

Ensuite pour ton paramètre tu le déclares comme ceci :

Code:

---

1 2 3 4 5

Dim ParamTitre As New OleDb.OleDbParameter("Titre", OleDb.OleDbType.VarWChar) ParamTitre.Value = Me.teval.Text ' -> titre (variable inutile) Ajout.Paramaters.Add(ParamTitre)

---

Cela donne pour finir ce Code là :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim c As New connexion Dim Ajout As new OleDb.OleDbCommand("INSERT INTO evaluation ( Titre ) VALUES (?)", c.maconnexion) Dim ParamTitre As New OleDb.OleDbParameter("Titre", OleDb.OleDbType.VarWChar) c.Ouvrir() 'Ajout du Paramètre après attribution de sa valeur ParamTitre.Value = Me.teval.Text ' -> titre (variable inutile) Ajout.Paramaters.Add(ParamTitre) Exécution de la requête Ajout.ExecuteNonQuery' c.Fermer()

---

Et là nromalement tu devrais avoir ta ligne d'ajouter.

Si jamais cela ne fonctionnait pas remplace :

Code:

---

1 2	Ajout.ExecuteNonQuery

---

par :

Code:

---

1 2 3 4 5 6 7 8 9

Try Ajout.ExecuteNonQuery Catch ex As Exception MessageBox.Show("Requête: " & Ajout.CommandText & Chr(13) & ex.ToString) Finally c.Fermer End Try

---

Voilà, maintenant à toi d'essayer ;)

g testé ta solution g pas d'erreur à l'exécution mais les lignes ne s'ajoutent toujours pas à ma table

Est - ce que tu peux me donner ta ligne de Connexion STP ?

maconnexion = New OleDbConnection(My.Settings.GESTQUALITEConnectionString)

gestqualiteconnectionstring = C:\Documents and Settings\Fabienne\Mes documents\Visual Studio 2005\Projects\GESTQualité\GESTQualité\GESTQUALITE.mdb

il faut aussi que je précise que j'ai déjà utilisé ma connexion dans mon projetpour lire des données dans des tables et ça a très bien fonctionné

Est ce que tu pourrais m'envoyer ton Projet au complet pour que je puisse regarder ?

(Fais une archive) et envoies le tout à D4rkTiger@gmail.com