VB.Net et Access - Erreur de syntaxe dans l'instruction INSERT INTO

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

Je bute depuis pas mal de temps sur une erreur à l'enregistrement dans une base de donnée Access quand il faut ajouter un nouvel enregistrement. Une erreur "Erreur de syntaxe dans l'instruction INSERT INTO"se produit sans autre précision. J'ai vérifié le nom des différents champs qui ne sont pas des noms réservés Access, J'ai vérifié la contenu de chaque champ dans le nouvel enregistrement qui respecte bien les critères de valeur non nulle et positive. Il doit y avoir un paramètre caché qui m'échappe. Voici ci-dessous la programmation. L'erreur se produit sur l'instruction AdaptateurChantier.Update
La structure du fichier Access est indiquée ci-dessous avec des liaisons de type Intégrité référentielle; Mise à jour en cascade; Effacement en cascade des entegistrements

Pouvez vous me donner quelques pistes de correction?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Requete = "SELECT refChantier, refForage, refEssai, refSonde, refEssaiResistancePropre, refEssaiExpansionPropre, refEssaiPerteDeCharge, refSol, Enregistreur, Operateur, VolSonde, Precision, PrecisVolSonde, nomEssai, dateEssai, heureEssai, difPresEauAir, hauteurCpv, " _ & "presP0, presFluage, presLimite, presLimiteNf, poidsVol, poidsVolDejauge, coefPoisson, modPressio, modPressioNf, modElastique, modElastiqueNf, cohesion, frottement, frottementintergranulaire, " _ & "U0, profNappe, profSonde, coteZeroGeomeca FROM LesEssaisForage" 'definition de la commande Commande = New OleDbCommand(Requete, ConnChantier) ' Définition de l'AdaptateurChantier AdaptateurChantier = New OleDbDataAdapter(Commande) AdaptateurChantier.SelectCommand = Commande 'Pour modifier les valeurs changées dans le DataAdapter ObjetCommandBuilder = New OleDbCommandBuilder(AdaptateurChantier) AdaptateurChantier.AcceptChangesDuringUpdate = True AdaptateurChantier.Update(MonChantier, "LesEssaisForage") MsgBox("Update -LesEssaisForage- successful")
Pièce jointe 526311

23/12/2019, 12h27
Phil Rob

Bonjour,
Il me semble voir une bizarrerie dans ton code :
Tu veux faire un UPDATE mais tu as écrit une requête SELECT ...
Est-ce normal ?
🤔
23/12/2019, 14h34
JMonnet46

Bonjour Phil,

Je ne comprends pas bien ta réponse;
Je pense que tu fais référence à l'instruction : AdaptateurChantier.SelectCommand = Commande .
mais d'après ce que j'ai compris le SelectCommand est là pour "définir l'instruction SQL stockée..."

L'erreur se produit sur l'instruction : AdaptateurChantier.Update(MonChantier, "LesEssaisForage") .

quand je veux créer un nouvel enregistrement avec la méthode UPDATE; quand l'enregistrement existe et qu'il faut le modifier tout va bien; c'est le fait d'ajouter de l'information qui bloque quelque part...
23/12/2019, 15h43
Phil Rob

Sans doute ne suis-je pas très habitués à ces outils, notamment à ... OleDbCommandBuilder ... que je n'ai jamais utilisé ...:D

Mais tout de même, je cherche dans ton code et le seul SQL en rapport avec ton AdaptateurChantier est une requête de sélection et non de mise à jour. Mais s'il doit en être ainsi, c'est qu'il s'agit de manière de faire que je ne connais pas.

Tout de même encore, dans ton dernier message, tu déclares "...je veux créer un nouvel enregistrement avec la methode UPDATE; quand l'enregistrement existe et qu'il faut le modifier tout va bien...". Là aussi il s'agit d'une nouveauté pour moi : j'ai toujours pensé que UPDATE servait à modifier des enregistrements existants et que pour créer un nouvel enregistrement il fallait utiliser INSERT.

Je suis intéressé de connaître tes corrections quand cela fonctionnera, j'aurai beaucoup à apprendre.

Bon travail,

:)
23/12/2019, 16h51
Sankasssss
Bonsoir,

L'objet OleDbCommandBuilder permet effectivement de construire automatiquement les commandes INSERT, UPDATE et DELETE à partir de la commande SELECT.

Pouvez-vous regarder les commandes générées avec :
Code:

1 2 3 debug.WriteLine(ObjetCommandBuilder.GetUpdateCommand.CommandText) debug.WriteLine(ObjetCommandBuilder.GetInsertCommand.CommandText) debug.WriteLine(ObjetCommandBuilder.GetDeleteCommand.CommandText)
A mettre avant :

Code:

AdaptateurChantier.Update(MonChantier, "LesEssaisForage")

?
23/12/2019, 17h03
Phil Rob

Comme je l'indiquais dans mon dernier message, je ne connais pas CommandBuilder.
Comme je le supposais bien, j'avais à apprendre dans ce sujet. Voila qui est fait.
Merci pour l'info Sankasssss.

Nul doute que ça aidera JMonnet46.

Bonne soirée à vous deux,

:D
23/12/2019, 18h37
JMonnet46

Merci à Sankasss pour ces éléments;

Les Debug.WriteLine ne produisent pas de message sur l'écran; par contre en mode Espion on a une réponse :

ObjetCommandBuilder.GetUpdateCommand.CommandText, a pour valeur :

Code:

UPDATE LesEssaisForage SET refChantier = ?, refForage = ?, refEssai = ?, refSonde = ?, refEssaiResistancePropre = ?, refEssaiExpansionPropre = ?, refEssaiPerteDeCharge = ?, refSol = ?, Enregistreur = ?, Operateur = ?, VolSonde = ?, Precision = ?, PrecisVolSonde = ?, nomEssai = ?, dateEssai = ?, heureEssai = ?, difPresEauAir = ?, hauteurCpv = ?, presP0 = ?, presFluage = ?, presLimite = ?, presLimiteNf = ?, poidsVol = ?, poidsVolDejauge = ?, coefPoisson = ?, modPressio = ?, modPressioNf = ?, modElastique = ?, modElastiqueNf = ?, cohesion = ?, frottement = ?, frottementintergranulaire = ?, U0 = ?, profNappe = ?, profSonde = ?, coteZeroGeomeca = ? WHERE (((? = 1 AND refChantier IS NULL) OR (refChantier = ?)) AND ((? = 1 AND refForage IS NULL) OR (refForage = ?)) AND (refEssai = ?) AND ((? = 1 AND refSonde IS NULL) OR (refSonde = ?)) AND ((? = 1 AND refEssaiResistancePropre IS NULL) OR (refEssaiResistancePropre = ?)) AND ((? = 1 AND refEssaiExpansionPropre IS NULL) OR (refEssaiExpansionPropre = ?)) AND ((? = 1 AND refEssaiPerteDeCharge IS NULL) OR (refEssaiPerteDeCharge = ?)) AND ((? = 1 AND refSol IS NULL) OR (refSol = ?)) AND ((? = 1 AND Enregistreur IS NULL) OR (Enregistreur = ?)) AND ((? = 1 AND Operateur IS NULL) OR (Operateur = ?)) AND ((? = 1 AND VolSonde IS NULL) OR (VolSonde = ?)) AND ((? = 1 AND Precision IS NULL) OR (Precision = ?)) AND ((? = 1 AND PrecisVolSonde IS NULL) OR (PrecisVolSonde = ?)) AND ((? = 1 AND nomEssai IS NULL) OR (nomEssai = ?)) AND ((? = 1 AND dateEssai IS NULL) OR (dateEssai = ?)) AND ((? = 1 AND heureEssai IS NULL) OR (heureEssai = ?)) AND ((? = 1 AND difPresEauAir IS NULL) OR (difPresEauAir = ?)) AND ((? = 1 AND hauteurCpv IS NULL) OR (hauteurCpv = ?)) AND ((? = 1 AND presP0 IS NULL) OR (presP0 = ?)) AND ((? = 1 AND presFluage IS NULL) OR (presFluage = ?)) AND ((? = 1 AND presLimite IS NULL) OR (presLimite = ?)) AND ((? = 1 AND presLimiteNf IS NULL) OR (presLimiteNf = ?)) AND ((? = 1 AND poidsVol IS NULL) OR (poidsVol = ?)) AND ((? = 1 AND poidsVolDejauge IS NULL) OR (poidsVolDejauge = ?)) AND ((? = 1 AND coefPoisson IS NULL) OR (coefPoisson = ?)) AND ((? = 1 AND modPressio IS NULL) OR (modPressio = ?)) AND ((? = 1 AND modPressioNf IS NULL) OR (modPressioNf = ?)) AND ((? = 1 AND modElastique IS NULL) OR (modElastique = ?)) AND ((? = 1 AND modElastiqueNf IS NULL) OR (modElastiqueNf = ?)) AND ((? = 1 AND cohesion IS NULL) OR (cohesion = ?)) AND ((? = 1 AND frottement IS NULL) OR (frottement = ?)) AND ((? = 1 AND frottementintergranulaire IS NULL) OR (frottementintergranulaire = ?)) AND ((? = 1 AND U0 IS NULL) OR (U0 = ?)) AND ((? = 1 AND profNappe IS NULL) OR (profNappe = ?)) AND ((? = 1 AND profSonde IS NULL) OR (profSonde = ?)) AND ((? = 1 AND coteZeroGeomeca IS NULL) OR (coteZeroGeomeca = ?)))

ObjetCommandBuilder.GetInsertCommand.CommandText) a pour valeur :

Citation:

Fin d'expression attendue.

ObjetCommandBuilder.GetDeleteCommand.CommandText a pour valeur :

Code:

DELETE FROM LesEssaisForage WHERE (((? = 1 AND refChantier IS NULL) OR (refChantier = ?)) AND ((? = 1 AND refForage IS NULL) OR (refForage = ?)) AND (refEssai = ?) AND ((? = 1 AND refSonde IS NULL) OR (refSonde = ?)) AND ((? = 1 AND refEssaiResistancePropre IS NULL) OR (refEssaiResistancePropre = ?)) AND ((? = 1 AND refEssaiExpansionPropre IS NULL) OR (refEssaiExpansionPropre = ?)) AND ((? = 1 AND refEssaiPerteDeCharge IS NULL) OR (refEssaiPerteDeCharge = ?)) AND ((? = 1 AND refSol IS NULL) OR (refSol = ?)) AND ((? = 1 AND Enregistreur IS NULL) OR (Enregistreur = ?)) AND ((? = 1 AND Operateur IS NULL) OR (Operateur = ?)) AND ((? = 1 AND VolSonde IS NULL) OR (VolSonde = ?)) AND ((? = 1 AND Precision IS NULL) OR (Precision = ?)) AND ((? = 1 AND PrecisVolSonde IS NULL) OR (PrecisVolSonde = ?)) AND ((? = 1 AND nomEssai IS NULL) OR (nomEssai = ?)) AND ((? = 1 AND dateEssai IS NULL) OR (dateEssai = ?)) AND ((? = 1 AND heureEssai IS NULL) OR (heureEssai = ?)) AND ((? = 1 AND difPresEauAir IS NULL) OR (difPresEauAir = ?)) AND ((? = 1 AND hauteurCpv IS NULL) OR (hauteurCpv = ?)) AND ((? = 1 AND presP0 IS NULL) OR (presP0 = ?)) AND ((? = 1 AND presFluage IS NULL) OR (presFluage = ?)) AND ((? = 1 AND presLimite IS NULL) OR (presLimite = ?)) AND ((? = 1 AND presLimiteNf IS NULL) OR (presLimiteNf = ?)) AND ((? = 1 AND poidsVol IS NULL) OR (poidsVol = ?)) AND ((? = 1 AND poidsVolDejauge IS NULL) OR (poidsVolDejauge = ?)) AND ((? = 1 AND coefPoisson IS NULL) OR (coefPoisson = ?)) AND ((? = 1 AND modPressio IS NULL) OR (modPressio = ?)) AND ((? = 1 AND modPressioNf IS NULL) OR (modPressioNf = ?)) AND ((? = 1 AND modElastique IS NULL) OR (modElastique = ?)) AND ((? = 1 AND modElastiqueNf IS NULL) OR (modElastiqueNf = ?)) AND ((? = 1 AND cohesion IS NULL) OR (cohesion = ?)) AND ((? = 1 AND frottement IS NULL) OR (frottement = ?)) AND ((? = 1 AND frottementintergranulaire IS NULL) OR (frottementintergranulaire = ?)) AND ((? = 1 AND U0 IS NULL) OR (U0 = ?)) AND ((? = 1 AND profNappe IS NULL) OR (profNappe = ?)) AND ((? = 1 AND profSonde IS NULL) OR (profSonde = ?)) AND ((? = 1 AND coteZeroGeomeca IS NULL) OR (coteZeroGeomeca = ?)))

Et ca plante avec la même erreur en mode ajout d'un nouvel enregistrement "Erreur de syntaxe dans l'instruction INSERT INTO"
C'est vrai que c'est inextricable; je vais supprimer les variables qui ne posent pas de problème et refaire le test avec seulement les 5 variables qui interviennent dans le Beug...

A suivre....

Avec seulement 7 variables cela donne la même erreur et le contenu des différents Objets sont les suivants :

ObjetCommandBuilder.GetUpdateCommand.CommandText, a pour valeur :

Code:

UPDATE LesEssaisForage SET refChantier = ?, refForage = ?, refEssai = ?, refSonde = ?, Enregistreur = ?, Operateur = ?, Precision = ? WHERE (((? = 1 AND refChantier IS NULL) OR (refChantier = ?)) AND ((? = 1 AND refForage IS NULL) OR (refForage = ?)) AND (refEssai = ?) AND ((? = 1 AND refSonde IS NULL) OR (refSonde = ?)) AND ((? = 1 AND Enregistreur IS NULL) OR (Enregistreur = ?)) AND ((? = 1 AND Operateur IS NULL) OR (Operateur = ?)) AND ((? = 1 AND Precision IS NULL) OR (Precision = ?)))

ObjetCommandBuilder.GetInsertCommand.CommandText) a pour valeur :

Citation:

Fin d'expression attendue.

ObjetCommandBuilder.GetDeleteCommand.CommandText a pour valeur :

Code:

DELETE FROM LesEssaisForage WHERE (((? = 1 AND refChantier IS NULL) OR (refChantier = ?)) AND ((? = 1 AND refForage IS NULL) OR (refForage = ?)) AND (refEssai = ?) AND ((? = 1 AND refSonde IS NULL) OR (refSonde = ?)) AND ((? = 1 AND Enregistreur IS NULL) OR (Enregistreur = ?)) AND ((? = 1 AND Operateur IS NULL) OR (Operateur = ?)) AND ((? = 1 AND Precision IS NULL) OR (Precision = ?)))

Je vais réduire encore de moitié....

C'est la variable Precision qui fait planter l'enregistrement....; si je la supprime alors l'enregistrement fonctionne....Je ne comprends pas pourquoi!!!!!!!!!!!!!
Il n'est aussi pas très normal que ObjetCommandBuilder.GetInsertCommand.CommandText) ait pour valeur : "Fin d'expression attendue". Il y a pparemment un problème de génération de code Pour INSERT!!!
23/12/2019, 23h07
Thumb down
Bonsoir,

Citation:

((? = 1 AND Operateur IS NULL) OR (Operateur = ?))

le point d'interrogation matérialise la valeur d'un champ comme pour Operateur!

? = 1 ne représente aucun champ!
Code:

1 2 3 sql="PARAMETERS [toto] integer; select * from MyTable Where (([TOTO] = 1 AND Operateur IS NULL) OR (Operateur = ?)) "
PARAMETERS se substitue à ?
24/12/2019, 10h19
Sankasssss
@JMonnet46 :
La méthode debug.WriteLine("mon message") affiche quelque chose dans la fenêtre "Immediate Window" que quand on compile en mode Debug sinon l'instruction est ignorée.

Au vu des requêtes générées ont dirait que le framework n'arrive pas à identifier les clés primaires alors qu'on dirait, via le schéma, qu'elles existent bien sur les tables.
Si c'est bien ça le problème, il faudrait essayer de les définir manuellement avant de générer les commandes via ObjetCommandBuilder = New OleDbCommandBuilder(AdaptateurChantier). De cette manière le générateur pourra faire de meilleurs requêtes.

Pouvez-vous nous dire quelle est la base de donnée utilisée?

Citation:

Envoyé par Thumb down

? = 1 ne représente aucun champ!

Non ça ne représente aucun champ, juste une condition booléenne d'activation pour activer ou désactiver le test d'après :
Code:

1 2 (1 = 1 AND Operateur IS NULL) -- activé car 1=1 = True (0 = 1 AND Operateur IS NULL) -- désactivé car 0=1 = False
C'est une manière de rendre la requête dynamique sans devoir la redéfinir pour chaque ligne du dataTable.
24/12/2019, 17h19
Thumb down

On ne peut pas écrire ?=1 car ? ne représente aucun champ alors qu'il est possible d'écrire [toto]=1

Et de gérer toto dans les définition de parameters.

C'est comme la fonction declare en salle serveur!

1 pièce(s) jointe(s)

Bonjour Sankassss:

Citation:

Envoyé par Sankasssss

@JMonnet46
.....
Pouvez-vous nous dire quelle est la base de donnée utilisée?

C'est un fichier Access 2007, mais peut être que cette version est obsolète???? mais je vais essayer d'abord de définir manuellement les clefs primaires comme proposé...

En ajoutant les instructions suivantes qui définissent le clef Primaire :
Code:

1 2 3 4 5 6 7 ' Définition de la clef primaire de la Table "LesEssaisForage" columns(0) = New DataColumn columns(0) = MonChantier.Tables("LesEssaisForage").Columns("refEssai") MonChantier.Tables("LesEssaisForage").PrimaryKey = columns AdaptateurChantier.Update(MonChantier, "LesEssaisForage") MsgBox("Update -LesEssaisForage- successful")
L'erreur de syntaxe se produit quand même; cependant l'évaluation de l'expression :
MonChantier.Tables("LesEssaisForage").PrimaryKey contient un tableau de 1 ligne "System.Data.DataColumn[]" qui contient les valeurs suivantes :

On voit bien dans le champ "EncodedColumnName" la valeur "refEssai" qui définit correctement la clef primaire.... Il me semble que le problème ne se situe pas à ce niveau....

Pièce jointe 526619

La solution provisoire

Pour traiter le problème efficacement et comme l'ajout d'enregistrement fonctionne avec 4 champs, j'ai réécrit le code de la façon suivante, la variable EssaiInitCount compte le nombre d'enregistrement initial du Fichier et EssaiCount compte le nombre d'enregistrement dans la Table du DataSet; si le second est plus grand que le premier, il faut ajouter des enregistrements, ce qui est fait avec succès en utilisant seulement 4 champs; ensuite ce nouvel enregistrement étant créé, le programme met à jour la Table du Fichier Access.
Ce n'est pas très élégant mais ça marche, donc Youpie!!!!!
Merci en tout cas à tous pour la discussion ça m'a permis d'avance sur un problème sur lequel j'étais bloqué depuis presque 1 mois.:lol:

Code:

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
        EssaiCount = MonChantier.Tables("LesEssaisForage").Rows.Count
        If EssaiInitCount < EssaiCount Then
            ' On ajoute un enregistrement à la Table avec des variables réduites
            Requete = "SELECT refChantier, refForage, refEssai, nomEssai FROM LesEssaisForage"
 
            'definition de la commande
            Commande = New OleDbCommand(Requete, ConnChantier)
 
            ' Définition de l'AdaptateurChantier
            AdaptateurChantier = New OleDbDataAdapter(Commande)
 
            AdaptateurChantier.SelectCommand = Commande
 
            'Pour modifier les valeurs changées dans le DataAdapter
            ObjetCommandBuilder = New OleDbCommandBuilder(AdaptateurChantier)
 
            ' Ajout des lignes à la Table "LesEssaisForage"
            AdaptateurChantier.Update(MonChantier, "LesEssaisForage")
            MsgBox("Update -LesEssaisForage- successful")
        End If
 
        ' Mise à jour de la Table "LesEssaisForage"
        ''ma requete
        'If Not (AncienChantier) Then
 
        Requete = "SELECT refChantier, refForage, refEssai, refSonde, refEssaiResistancePropre, refEssaiExpansionPropre, refEssaiPerteDeCharge, refSol, Enregistreur, Operateur, VolSonde, Precision, PrecisVolSonde, nomEssai, dateEssai, heureEssai, difPresEauAir, hauteurCpv, " _
           & "presP0, presFluage, presLimite, presLimiteNf, poidsVol, poidsVolDejauge, coefPoisson, modPressio, modPressioNf, modElastique, modElastiqueNf, cohesion, frottement, frottementintergranulaire, " _
           & "U0, profNappe, profSonde, coteZeroGeomeca FROM LesEssaisForage"
 
        'definition de la commande
        Commande = New OleDbCommand(Requete, ConnChantier)
 
        ' Définition de l'AdaptateurChantier
        AdaptateurChantier = New OleDbDataAdapter(Commande)
 
        AdaptateurChantier.SelectCommand = Commande
 
        'Pour modifier les valeurs changées dans le DataAdapter
        ObjetCommandBuilder = New OleDbCommandBuilder(AdaptateurChantier)
 
        AdaptateurChantier.Update(MonChantier, "LesEssaisForage")
        MsgBox("Update -LesEssaisForage- successful")

Solution finale de l'Erreur de Syntaxe

Bonjour à tous,

Le solution précédente de n'enregistrer que quelques champs quand on ajoute un enregistrement n'est que partielle;
La solution du problème rencontré est lié au fait qu'un des champs de l'enregistrement a pour nom "Precision" , qui n'est a priori pas un mot réservé pour Access (voir https://support.office.com/fr-fr/art...f855bdd9c5a2); cependant son utilisation provoque l'erreur de Syntaxe.
Maintenant, si on change de nom de champ en prenant par exemple "ClassPrecis" alors tout se passe bien et les fichiers Access sont mis à jour. Le code devient :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Requete = "SELECT refChantier, refForage, refEssai, refSonde, refEssaiResistancePropre, refEssaiExpansionPropre, refEssaiPerteDeCharge, refSol, Enregistreur, Operateur, VolSonde, ClassPrecis, PrecisVolSonde, nomEssai, dateEssai, heureEssai, difPresEauAir, hauteurCpv, " _ & "presP0, presFluage, presLimite, presLimiteNf, poidsVol, poidsVolDejauge, coefPoisson, modPressio, modPressioNf, modElastique, modElastiqueNf, cohesion, frottement, frottementintergranulaire, " _ & "U0, profNappe, profSonde, coteZeroGeomeca FROM LesEssaisForage" 'definition de la commande Commande = New OleDbCommand(Requete, ConnChantier) ' Définition de l'AdaptateurChantier AdaptateurChantier = New OleDbDataAdapter(Commande) AdaptateurChantier.SelectCommand = Commande 'Pour modifier les valeurs changées dans le DataAdapter ObjetCommandBuilder = New OleDbCommandBuilder(AdaptateurChantier) AdaptateurChantier.Update(MonChantier, "LesEssaisForage") MsgBox("Update -LesEssaisForage- successful")