Discussion :

[itokia]

Bonjour,

Je suis en train d'essayer d'enregistrer les modifications qu'il y a eu lieux sur mon dataSet dans une base postgreSql, mais j'obtiens l'erreur suivante : System.invalidCastException

Ma fonction d'insertion

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
 
 Public Sub setAgent(username As String, ByRef dataSetAgent As DataSet, idNext As Integer)
        Dim sql As String = "INSERT INTO agents(id,num_agent,username, nom_agent,prenom_agent,mail,serv_local,commentaire,organisation,b_prod,b_plan,site) values (@id,'@numagent','@username','@nom','@prenom','@mail','@serv','@com','@orga',@bprod,@bplan,@site)"
        Dim pgCommand As New NpgsqlCommand(sql, conPG)
        pgCommand.Parameters.Add("@id", NpgsqlTypes.NpgsqlDbType.Integer)
        pgCommand.Parameters.Add("@numagent", NpgsqlTypes.NpgsqlDbType.Varchar)
        pgCommand.Parameters.Add("@username", NpgsqlTypes.NpgsqlDbType.Varchar)
        pgCommand.Parameters.Add("@nom", NpgsqlTypes.NpgsqlDbType.Varchar)
        pgCommand.Parameters.Add("@prenom", NpgsqlTypes.NpgsqlDbType.Varchar)
        pgCommand.Parameters.Add("@mail", NpgsqlTypes.NpgsqlDbType.Varchar)
        pgCommand.Parameters.Add("@serv", NpgsqlTypes.NpgsqlDbType.Varchar)
        pgCommand.Parameters.Add("@com", NpgsqlTypes.NpgsqlDbType.Varchar)
        pgCommand.Parameters.Add("@orga", NpgsqlTypes.NpgsqlDbType.Varchar)
        pgCommand.Parameters.Add("@bprod", NpgsqlTypes.NpgsqlDbType.Boolean)
        pgCommand.Parameters.Add("@bplan", NpgsqlTypes.NpgsqlDbType.Boolean)
        pgCommand.Parameters.Add("@site", NpgsqlTypes.NpgsqlDbType.Integer)
        Dim Adaptateur As New NpgsqlDataAdapter(pgCommand)
 
        Dim nvLigne As DataRow = dataSetAgent.Tables("agents").NewRow
        nvLigne("id") = idNext
        nvLigne("username") = username
        dataSetAgent.Tables("agents").Rows.Add(nvLigne)
 
        Adaptateur.Fill(dataSetAgent, "agents")
 
        pgCommand = Nothing
    End Sub

Faut il renseigner tous les champs dans ma requête? que ce soit dans la déclaration du parameters et du dataset?
J'essaye d'ajouter une ligne à mon dataset et d'enregistrer les modifications.

Merci

[itokia]

J'ai réussi de cette facon, mais j'ai un doute sur l'optimisation du code.

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
 
Public Sub setAgent(username As String, ByRef dataSetAgent As DataSet, idNext As Integer)
        Dim pgCommand As New NpgsqlCommand("SELECT id, username from agents", conPG)
        Dim Adaptateur As New NpgsqlDataAdapter(pgCommand)
        Adaptateur.Fill(dataSetAgent, "agents")
 
        Dim sql As String = "INSERT INTO agents(id,username,b_prod,b_plan) values (@id,@username,@bprod,@bplan)"
        Adaptateur.InsertCommand = New NpgsqlCommand(sql, conPG)
        Adaptateur.InsertCommand.Parameters.AddWithValue("@id", NpgsqlTypes.NpgsqlDbType.Integer, idNext)
        Adaptateur.InsertCommand.Parameters.AddWithValue("@username", NpgsqlTypes.NpgsqlDbType.Varchar, username)
        Adaptateur.InsertCommand.Parameters.AddWithValue("@bprod", NpgsqlTypes.NpgsqlDbType.Boolean, False)
        Adaptateur.InsertCommand.Parameters.AddWithValue("@bplan", NpgsqlTypes.NpgsqlDbType.Boolean, False)
        'Dim Adaptateur As New NpgsqlDataAdapter(pgCommand)
 
        Dim nvLigne As DataRow = dataSetAgent.Tables("agents").NewRow
        nvLigne("id") = idNext
        nvLigne("username") = username
        dataSetAgent.Tables("agents").Rows.Add(nvLigne)
 
        Adaptateur.Update(dataSetAgent, "agents")
 
        dataSetAgent.Clear()
        Try
            Adaptateur.Fill(dataSetAgent, "agents")
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
        Adaptateur = Nothing
    End Sub

Quelqu'un pourrait me dire si c'est la meilleur facon svp?

[champy]

Faut il renseigner tous les champs dans ma requête?

Les champs obligatoire sont ceux qui sont not null dans ta base de données.

que ce soit dans la déclaration du parameters et du dataset?

Si tu valorise un champ il doit apparaître dans les parameters obligatoirement.

Pour ce qui est de ton InvalidCastException je verrais bien un champs non valoriser initialisé par défaut à null qui est impossible à convertir vers un entier ou un Boolean, mais je suppose juste je n'utilise jamais les DataSets.