Discussion :

[fab2503]

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.

[D4rkTiger]

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 :

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

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 ?!

[fab2503]

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

[fab2503]

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

[D4rkTiger]

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 :

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

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 :

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

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 :

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

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 :

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

1
2
Ajout.ExecuteNonQuery

par :

Code :

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

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

[fab2503]

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