UPDATE TABLE Acces en erreur sous vb.net

Question

Bonjour tout le monde,
J'ai un programme en vb.net qui accéde à des tables Access 2016. Ce matin, tout marché bien, mais depuis des maj windows plus rien ne marche pour les UPDATE (SELECT et INSERT OK).
Mes commandes :

UPDATE [Jeux_Déjà] Set [Jeux_Déjà].Coche=■, [Jeux_Déjà].Titre='Haunted Hotel - Personal Nightmare Deluxe' WHERE [Jeux_Déjà].Titre='Haunted Hotel - Personal Nightmare Deluxe';

OU :

UPDATE Jeux_Deja SET Jeux_Deja.Coche = '♥', Jeux_Deja.Titre = 'Haunted Hotel - Personal Nightmare Deluxe'
WHERE (((Jeux_Deja.Titre)='Haunted Hotel - Personal Nightmare Deluxe'));

Message : La requête «  » est altérée.'

Dans mon programme, j'ai ceci :

       
        Dim myconnex As New OleDbConnection(myconnStr)
        Dim mycommand As New OleDbCommand

If Trim(La_Coche) = "" Then
            myconnex.Open()
            mycommand = New OleDbCommand("DELETE FROM [Jeux_Déjà] WHERE Titre=@id", myconnex)
            mycommand.Parameters.AddWithValue("@titre", Le_Titre)
            If mycommand.ExecuteNonQuery() = 0 Then
                myconnex.Close()
                Exit Sub
            Else
                mycommand.ExecuteNonQuery()
                myconnex.Close()
                Exit Sub
            End If
        End If

myconnex.Open()

mycommand = New OleDbCommand("UPDATE [Jeux_Déjà] Set Coche=@coche, Titre=@titre WHERE Titre=@titreids", myconnex)
        mycommand.Parameters.AddWithValue("@coche", La_Coche)
        mycommand.Parameters.AddWithValue("@titre", Le_Titre)
        mycommand.Parameters.AddWithValue("@titreids", Le_Titre)

If mycommand.ExecuteNonQuery() = 0 Then
            mycommand = New OleDbCommand("INSERT INTO [Jeux_Déjà] (Coche, Titre) VALUES (@coche,@titre)", myconnex)
            mycommand.Parameters.AddWithValue("@coche", La_Coche)
            mycommand.Parameters.AddWithValue("@titre", Le_Titre)
            mycommand.ExecuteNonQuery()
            myconnex.Close()
        Else
            mycommand.ExecuteNonQuery()
            myconnex.Close()
        End If


J'ai fait des test direct sous Access, idem.
Message : La requête « Requête1 » est altérée.

J'ai détruit la database, tout recrée, idem. Ceci sur toutes mes tables et bien sur toutes mes procédures

J'ai mis des semaines à écrire ce programme qui fonctionnait bien jusqu'à ce matin. Je l'ai fait pour des Canadiens.

Si quelqu'un à une idée, elle est la bienvenue. Au fait je suis Windows 7 Pro Access 2016.
Merci à tous de m'avoir lu.

jean67190 · Answer

Je me répond à moi même, j'ai trouvé, très dur à localiser.

vb95 · Answer

Bonsoir !
Tu as trouvé : bravo !
Reste à partager la solution en expliquant au cas où quelqu'un aurait le même problème. Ce serait sympa à mon avis !

UPDATE TABLE Acces en erreur sous vb.net

2 réponses

Votre réponse

Discussions similaires