[ADO, Access]_Paramètre ?_2 n'a pas de valeur par défaut?

**Gdal** · 03/03/2008, 22h30

Bonsoir,

Voilà mon soucis: J'ai un soucis au moment de l'update de mon dataset

J'ai un formulaire contenant un datagridview ayant pour source un dataset.
Je charge le dataset avec un DataAdapter. Le formulaire et le Datagridview se charge bien, je retrouve les enregistrements (entrés manuellement dans ma table access).
Au moment de l'update, objDataAdapter.Update(objDataSet, strTable), j'obtiens l'erreur: [ADO, Access]_Paramètre ?_2 n'a pas de valeur par défaut?. Si je place un point d'arrêt sur la ligne update et que je regarde le dataset, il contient les bonnes valeurs (type, cellules non vides,...)

Comment savoir de quel paramètre il s'agit ?

J'ai posté un peu vite, je viens de voir ce post:
http://www.developpez.net/forums/sho...am%E8tre+%3F_2
Mais pour ma défense

, mon DataAdapter est créé en copiant le code générer par le Dataset.Designer.vb
' > Dans l'explorateur de solutions, sélectionner "Afficher tous les fichiers"
' > Créer un élément "DataSet" au projet
' > Insérer la table du DataAdapter à créer
' > Afficher le code de "DataSet.Designer.vb" (sous élément de l'élément "DataSet")
' > Rechercher "Private Sub InitAdapter()"
' > Copier/Coller l'ensemble du sub dans la classe et l'adapter
' > Adapter l'ensemble

Ma table Tbl_Plein contient:
- ID_Plein
- ID_TblVehicule
- DatePlein
- Kilometrage
- Quantite

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
  Private Function CreerDataAdapter(Optional ByVal strFiltreTrie As String = "") As OleDbDataAdapter
 
        Dim objDataAdapter As New OleDbDataAdapter
        Dim tableMapping As New Common.DataTableMapping
 
        Try
 
            ' Mapping de la table
            tableMapping.SourceTable = "Tbl_Plein"
            tableMapping.DataSetTable = "TblPlein"
            tableMapping.ColumnMappings.Add("ID_Plein", "ID_Plein")
            tableMapping.ColumnMappings.Add("ID_TblVehicule", "ID_TblVehicule")
            tableMapping.ColumnMappings.Add("DatePlein", "Date du plein")
            tableMapping.ColumnMappings.Add("Kilometrage", "Kilométrage")
            tableMapping.ColumnMappings.Add("Quantite", "Quantité")
            objDataAdapter.TableMappings.Add(tableMapping)
 
            ' SELECTCOMMAND
            objDataAdapter.SelectCommand = New OleDb.OleDbCommand
            'objDataAdapter.InsertCommand.Connection = objConnexion
            objDataAdapter.SelectCommand.CommandText = "SELECT Tbl_Plein.* FROM Tbl_Plein " & strFiltreTrie
            objDataAdapter.SelectCommand.CommandType = CommandType.Text
 
            ' INSERTCOMMAND 
            objDataAdapter.InsertCommand = New OleDb.OleDbCommand
            'objDataAdapter.InsertCommand.Connection = objConnexion
            objDataAdapter.InsertCommand.CommandText = "INSERT INTO Tbl_Plein (ID_TblVehicule, DatePlein, Kilometrage, Quantite)" & _
                                                        "VALUES (?, ?, ?, ?)"
            objDataAdapter.InsertCommand.CommandType = CommandType.Text
            objDataAdapter.InsertCommand.Parameters.Add(New OleDb.OleDbParameter("ID_TblVehicule", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ID_TblVehicule", DataRowVersion.Current, False, Nothing))
            objDataAdapter.InsertCommand.Parameters.Add(New OleDb.OleDbParameter("DatePlein", OleDb.OleDbType.[Date], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "DatePlein", DataRowVersion.Current, False, Nothing))
            objDataAdapter.InsertCommand.Parameters.Add(New OleDb.OleDbParameter("Kilometrage", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Kilometrage", DataRowVersion.Current, False, Nothing))
            objDataAdapter.InsertCommand.Parameters.Add(New OleDb.OleDbParameter("Quantite", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Quantite", DataRowVersion.Current, False, Nothing))
 
            ' UPDATECOMMAND
            objDataAdapter.UpdateCommand = New OleDb.OleDbCommand
            'objDataAdapter.UpdateCommand.Connection = objConnexion
            objDataAdapter.UpdateCommand.CommandText = "UPDATE Tbl_Plein" & _
                                                        " SET ID_TblVehicule = ?, DatePlein = ?, Kilometrage = ?, Quantite = ?" & _
                                                        " WHERE ((ID_Plein = ?)" & _
                                                        " AND ((? = 1 AND ID_TblVehicule IS NULL) OR (ID_TblVehicule = ?))" & _
                                                        " AND ((? = 1 AND DatePlein IS NULL) OR (DatePlein = ?))" & _
                                                        " AND ((? = 1 AND Kilometrage IS NULL) OR (Kilometrage = ?))" & _
                                                        " AND ((? = 1 AND Quantite IS NULL) OR (Quantite = ?)))"
            objDataAdapter.UpdateCommand.CommandType = CommandType.Text
            objDataAdapter.UpdateCommand.Parameters.Add(New OleDb.OleDbParameter("ID_TblVehicule", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ID_TblVehicule", DataRowVersion.Current, False, Nothing))
            objDataAdapter.UpdateCommand.Parameters.Add(New OleDb.OleDbParameter("DatePlein", OleDb.OleDbType.[Date], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "DatePlein", DataRowVersion.Current, False, Nothing))
            objDataAdapter.UpdateCommand.Parameters.Add(New OleDb.OleDbParameter("Kilometrage", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Kilometrage", DataRowVersion.Current, False, Nothing))
            objDataAdapter.UpdateCommand.Parameters.Add(New OleDb.OleDbParameter("Quantite", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Quantite", DataRowVersion.Current, False, Nothing))
            objDataAdapter.UpdateCommand.Parameters.Add(New OleDb.OleDbParameter("Original_ID_Plein", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ID_Plein", DataRowVersion.Original, False, Nothing))
            objDataAdapter.UpdateCommand.Parameters.Add(New OleDb.OleDbParameter("IsNull_ID_TblVehicule", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ID_TblVehicule", DataRowVersion.Original, True, Nothing))
            objDataAdapter.UpdateCommand.Parameters.Add(New OleDb.OleDbParameter("Original_ID_TblVehicule", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ID_TblVehicule", DataRowVersion.Original, False, Nothing))
            objDataAdapter.UpdateCommand.Parameters.Add(New OleDb.OleDbParameter("IsNull_DatePlein", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "DatePlein", DataRowVersion.Original, True, Nothing))
            objDataAdapter.UpdateCommand.Parameters.Add(New OleDb.OleDbParameter("Original_DatePlein", OleDb.OleDbType.[Date], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "DatePlein", DataRowVersion.Original, False, Nothing))
            objDataAdapter.UpdateCommand.Parameters.Add(New OleDb.OleDbParameter("IsNull_Kilometrage", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Kilometrage", DataRowVersion.Original, True, Nothing))
            objDataAdapter.UpdateCommand.Parameters.Add(New OleDb.OleDbParameter("Original_Kilometrage", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Kilometrage", DataRowVersion.Original, False, Nothing))
            objDataAdapter.UpdateCommand.Parameters.Add(New OleDb.OleDbParameter("IsNull_Quantite", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Quantite", DataRowVersion.Original, True, Nothing))
            objDataAdapter.UpdateCommand.Parameters.Add(New OleDb.OleDbParameter("Original_Quantite", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Quantite", DataRowVersion.Original, False, Nothing))
 
            ' DELETECOMMAND
            objDataAdapter.DeleteCommand = New OleDb.OleDbCommand
            'objDataAdapter.DeleteCommand.Connection = objConnexion
            objDataAdapter.DeleteCommand.CommandText = "DELETE FROM Tbl_Plein" & _
                                                        " WHERE ((ID_Plein = ?)" & _
                                                        " AND ((? = 1 AND ID_TblVehicule IS NULL) OR (ID_TblVehicule = ?))" & _
                                                        " AND ((? = 1 AND DatePlein IS NULL) OR (DatePlein = ?))" & _
                                                        " AND ((? = 1 AND Kilometrage IS NULL) OR (Kilometrage = ?))" & _
                                                        " AND ((? = 1 AND Quantite IS NULL) OR (Quantite = ?)))"
            objDataAdapter.DeleteCommand.CommandType = CommandType.Text
            objDataAdapter.DeleteCommand.Parameters.Add(New OleDb.OleDbParameter("Original_ID_Plein", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ID_Plein", DataRowVersion.Original, False, Nothing))
            objDataAdapter.DeleteCommand.Parameters.Add(New OleDb.OleDbParameter("IsNull_ID_TblVehicule", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ID_TblVehicule", DataRowVersion.Original, True, Nothing))
            objDataAdapter.DeleteCommand.Parameters.Add(New OleDb.OleDbParameter("Original_ID_TblVehicule", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "ID_TblVehicule", DataRowVersion.Original, False, Nothing))
            objDataAdapter.DeleteCommand.Parameters.Add(New OleDb.OleDbParameter("IsNull_DatePlein", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "DatePlein", DataRowVersion.Original, True, Nothing))
            objDataAdapter.DeleteCommand.Parameters.Add(New OleDb.OleDbParameter("Original_DatePlein", OleDb.OleDbType.[Date], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "DatePlein", DataRowVersion.Original, False, Nothing))
            objDataAdapter.DeleteCommand.Parameters.Add(New OleDb.OleDbParameter("IsNull_Kilometrage", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Kilometrage", DataRowVersion.Original, True, Nothing))
            objDataAdapter.DeleteCommand.Parameters.Add(New OleDb.OleDbParameter("Original_Kilometrage", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Kilometrage", DataRowVersion.Original, False, Nothing))
            objDataAdapter.DeleteCommand.Parameters.Add(New OleDb.OleDbParameter("IsNull_Quantite", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Quantite", DataRowVersion.Original, True, Nothing))
            objDataAdapter.DeleteCommand.Parameters.Add(New OleDb.OleDbParameter("Original_Quantite", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Quantite", DataRowVersion.Original, False, Nothing))
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, ex.Source, MessageBoxButtons.OK, MessageBoxIcon.Stop)
 
        End Try
 
        Return objDataAdapter
 
    End Function

Merci d'avance pour le coup de main.

Gdal

**Gdal** · 04/03/2008, 22h19

Salut,

Voici la réponse au problème:
J'ai renommé les colonnes datasetColumn dans tableMapping.ColumnMappings.Add, sans renommer sourceColumn dans ".Parameters.Add"

Maintenant sa fonctionne.

' Création facile du DataAdapter
' > Dans l'explorateur de solutions, sélectionner "Afficher tous les fichiers"
' > Créer un élément "DataSet" au projet
' > Insérer la table du DataAdapter à créer
' > Afficher le code de "DataSet.Designer.vb" (sous élément de l'élément "DataSet")
' > Rechercher "Private Sub InitAdapter()"
' > Copier/Coller l'ensemble du sub dans la classe et l'adapter
' > Adapter l'ensemble:
' >> Me._adapter devient objDataAdapter
' >> Me.Connection " objConnexion
' >> System.Data. " SUPPRIMER
' >> ` " SUPPRIMER
' >> Mettre en commentaire les lignes "objConnexion"
' >> Réordonner les requêtes SQL
' >> Créer SelectCommand:
' SELECTCOMMAND
' objDataAdapter.SelectCommand = New OleDb.OleDbCommand
' objDataAdapter.InsertCommand.Connection = objConnexion
' objDataAdapter.SelectCommand.CommandText = "SELECT Tbl_Assurance.* FROM Tbl_Assurance " & strFiltreTrie
' objDataAdapter.SelectCommand.CommandType = CommandType.Text
' ATTENTION: En renommant "datasetColumn" dans le tableMapping.ColumnMappings.Add, il faut aussi renommer "sourceColumn" dans ".Parameters.Add"
' Ex.:
' tableMapping.ColumnMappings.Add("DatePlein", "Date du plein")
' objDataAdapter.InsertCommand.Parameters.Add(New OleDb.OleDbParameter("DatePlein", OleDb.OleDbType.[Date], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Date du plein", DataRowVersion.Current, False, Nothing))
' objDataAdapter.UpdateCommand.Parameters.Add(New OleDb.OleDbParameter("DatePlein", OleDb.OleDbType.[Date], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Date du plein", DataRowVersion.Current, False, Nothing))
' objDataAdapter.UpdateCommand.Parameters.Add(New OleDb.OleDbParameter("IsNull_DatePlein", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Date du plein", DataRowVersion.Original, True, Nothing))
' objDataAdapter.UpdateCommand.Parameters.Add(New OleDb.OleDbParameter("Original_DatePlein", OleDb.OleDbType.[Date], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Date du plein", DataRowVersion.Original, False, Nothing))
' objDataAdapter.DeleteCommand.Parameters.Add(New OleDb.OleDbParameter("IsNull_DatePlein", OleDb.OleDbType.[Integer], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Date du plein", DataRowVersion.Original, True, Nothing))
' objDataAdapter.DeleteCommand.Parameters.Add(New OleDb.OleDbParameter("Original_DatePlein", OleDb.OleDbType.[Date], 0, ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Date du plein", DataRowVersion.Original, False, Nothing))

Gdal

[ADO, Access]_Paramètre ?_2 n'a pas de valeur par défaut?

Accès aux données

Discussions similaires

Partager

Partager