[VB.Net] Comment insérer dans une BD ? [Fait]

**zzzmoi** · 25/07/2006, 09h50

Bonjour,

Mon problème est simple : je n'arrive pas à insérer dans ma base.

J'arrive à lire et à supprimer.
Voici mon code :

les paramètres envoyés :

Code :

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

1
2
3
4
5
 
insertion.inserer_projet("PROJET", _
   Me.TextBox_proj_nom.Text, Me.TextBox_proj_resp.Text, _
   Me.DateTimePicker_proj_crea.Value, Me.TextBox_proj_particip.Text, _
   Me.TextBox_proj_num.Text, Me.TextBox_proj_descrip.Text)

la fonction qui traite :

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
 
Public Sub inserer_projet(ByVal table As String, _
    ByVal proj_nom As String, ByVal proj_resp As String, _
    ByVal proj_dat As Date, ByVal proj_particip As String, _
    ByVal proj_num As String, ByVal proj_desc As String)
 
    Dim connectString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
 Source=C:\Documents and Settings\...\maBase.mdb"
    Dim maConnexion As New OleDb.OleDbConnection(connectString)
 
    Try
            Dim laDate As Date
            laDate = proj_dat.ToShortDateString()
 
            Dim myCommand As New OleDb.OleDbCommand
 
            'ouverture de connexion BD
            maConnexion.Open()
 
            myCommand.Connection = maConnexion
 
            'initialisation de la requète
            myCommand.CommandText = "INSERT INTO " & table & _
 "(projet_id, projet_libelle,  projet_responsable, projet_date_crea,
 projet_particip, projet_num, projet_descriptif) VALUES (projet_id.nextval,
 "  + "'" + proj_nom + "'" + ", " + "'" + proj_resp + "'" + ", " _
 + laDate + ", " + "'" + proj_particip + "'" + ", " _
 + "'" + proj_num + "'" + ", " + "'" + proj_desc + "'" + ")"
 
 
            myCommand.ExecuteNonQuery()
 
    Catch ex As Exception
            MessageBox.Show(ex.Message.ToString, "Erreur",
 MessageBoxButtons.OK, MessageBoxIcon.Stop)
 
    Finally
            'fermeture connexion BD
            maConnexion.Close()
 
    End Try
End Sub

Le message d'erreur qui survient au moment de l'ExecuteNonQuery est :

"aucune valeur donnée pour un ou plusieurs des paramètres requis."

Je ne comprends pas bien son sens puisque mes champs/textbox ont bien des valeurs (j'ai vérifié).
Si quelqu'un avait une idée, ça m'aiderait énormément ! Merci.

**Angath** · 25/07/2006, 10h45

As tu essayé d'executer ta requete directement dans ta BDD, pour vérifier la syntaxe ?

Sinon, vérifie le format de ton champ Date par rapport au format attendu par ta Bdd, ca pose toujours problème les dates dans les requêtes

(de mémoire pour acces il faut mettre les champ Date entre des #, mais je travaille surtout avec SQL donc je peux me tromper)

**neguib** · 25/07/2006, 11h20

Sur le principe, je te conseillerai bien d'utiliser une requête paramétrée, histoire peut être d'y voir plus clair

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
 
  ' Initialiser un tableau de OleDbParameter
  Dim parameters() As OleDbParameter
  parameters = New OleDbParameter(5){}
 
  parameters.SetValue(New OleDbParameter("nom", _
   Me.TextBox_proj_nom.Text),0)
  parameters.SetValue(New OleDbParameter("resp", _
   Me.TextBox_proj_resp.Text),1)
  parameters.SetValue(New OleDbParameter("dat", _
   Me.DateTimePicker_proj_crea.Value.ToShortDateString),2)
  parameters.SetValue(New OleDbParameter("particip", _
   Me.TextBox_proj_particip.Text),3)
  parameters.SetValue(New OleDbParameter("num", _
   Me.TextBox_proj_num.Text),4)
  parameters.SetValue(New OleDbParameter("desc", _
   Me.TextBox_proj_descrip.Text),5)
 
  ' Lancer l'insertion
  insertion.inserer_projet(parameters)

puis modifier la signature de ta fonction

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
Public Sub inserer_projet(ByVal parameters As OleDbParameter())
 
    Dim connectString As String = "Provider=Microsoft.Jet.OLEDB.4.0; _
Data Source=C:\Documents and Settings\...\maBase.mdb"
    Dim maConnexion As New OleDb.OleDbConnection(connectString)
 
    Dim query As String = "INSERT INTO PROJET(projet_id,projet_libelle, _
projet_responsable,projet_date_crea,projet_particip,projet_num, _
projet_descriptif) VALUES(projet_id.nextval,?,?,?,?,?,?)"
 
    Dim myCommand As OleDb.OleDbCommand = Nothing
    Dim param As OleDbParameter
 
    Try
            ' ne pas oublier d'assigner la connection et la requête
            myCommand As New OleDb.OleDbCommand(query,maConnexion)
 
            'initialisation de la requête
            For Each param In parameters
               myCommand.Parameters.Add(param)
            Next
 
            ' ouvrir la connexion
            maConnexion.Open()
 
            ' executer la requête
            myCommand.ExecuteNonQuery()
 
    Catch ex As Exception
            MessageBox.Show(ex.ToString(), "Erreur", _
 MessageBoxButtons.OK, MessageBoxIcon.Stop)
    Finally
            'fermeture connexion BD
            maConnexion.Close()
    End Try
 
End Sub

à tester car je ne l'ai pas fait et me suis simplement appuyer sur une réponse récente que j'ai faite

**zzzmoi** · 25/07/2006, 14h55

je débute en vb.net, et en vb tout court d'ailleurs alors je m'excuse d'avance si mes questions vous paraissent élémentaires ou vous désespèrent.

donc merci pour vos conseils, j'ai compris le principe de la solution de nequib ...
... mais par quelle "valeur" dois-je remplacer les " ? " : par des @... ?

les @... sont dans une autre classe, j'ai essayé de préfixer par son nom mais il ne reconnait pas le sigle @ dans la classe des requetes.

si vous aviez une petite idée ... elle serait la bienvenue

encore merci ...

**neguib** · 25/07/2006, 18h15

Envoyé par zzzmoi

je débute en vb.net, et en vb tout court d'ailleurs alors je m'excuse d'avance si mes questions vous paraissent élémentaires ou vous désespèrent.

donc merci pour vos conseils, j'ai compris le principe de la solution de nequib ...
... mais par quelle "valeur" dois-je remplacer les " ? " : par des @... ?

les @... sont dans une autre classe, j'ai essayé de préfixer par son nom mais il ne reconnait pas le sigle @ dans la classe des requetes.

si vous aviez une petite idée ... elle serait la bienvenue

encore merci ...

As-tu été voir la doc MSDN de la Classe OleDbParameter

**amazircool** · 27/07/2006, 19h21

neguib tu peu me situer les avantages des requêtes paramètre,
Et merci de nous indiquer un Tutorial concerner les requêtes paramétrer.

**neguib** · 29/07/2006, 10h39

Envoyé par amazircool

neguib tu peu me situer les avantages des requêtes paramètre,
Et merci de nous indiquer un Tutorial concerner les requêtes paramétrer.

Plus rapides et plus sécurisées, pour un tuto spécifique au client SQLServer il y a celui de Webman chez nous Requêtes paramétrées avec SQL Server et .Net , sinon à partir du lien mis dans mon message précédent

MSDN n'est pas avare d'informations

[VB.Net] Comment insérer dans une BD ? [Fait]

Accès aux données

Discussions similaires

Partager

Partager